طباعة محتوى Tmemo او TListBox

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);

finally

CloseFile(Prn);

end;

except

on EInOutError do

MessageDlg('Error Printing text.', mtError, [mbOk], 0);

end;

end;

PrintStrings(Memo1.Lines);

PrintStrings(Listbox1.Items);