Печать содержимого TMemo/TListbox |
Previous Top Next |
Как мне вывести на печать все строки компонента TMemo или TListbox?
Нижеприведенная функция в качестве параметра акцептует объект TStrings и распечатывает все строки на принтере, установленном в системе по умолчанию.Поскольку функция использует TStrings, то она может работать с любыми типами компонентов, имеющими свойство типа TStrings, например TDBMemo или TOutline.
Code: |
uses Printers;
procedure PrintStrings(Strings: TStrings); var
Prn: TextFile; i: word; begin
AssignPrn(Prn); try Rewrite(Prn); try for i := 0 to Strings.Count - 1 do writeln(Prn, Strings.Strings[i]); finally CloseFile(Prn); end; except on EInOutError do MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0); end; end; |
©Drkb::03247
Для печати содержимого TMemo или TListbox используйте следующий код:
PrintStrings(Memo1.Lines);
или
PrintStrings(Listbox1.Items);
©Drkb::03248
Взято из Советов по Delphi от Валентина Озерова
Сборник Kuliba