Печать содержимого 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