Нижеприведенная функция в качестве параметра акцептует объект TStrings и распечатывает все строки на принтере, установленном в системе по умолчанию. Поскольку функция использует TStrings, то она может работать с любыми типами компонентов, имеющими свойство типа TStrings, например TDBMemo или TOutline.
{ Начало кода } uses Printers; procedure PrintStrings(Strings: TStrings); var Prn: TextFile;i: word;begin AssignPrn(Prn);tryRewrite(Prn);tryfor i := 0 to Strings.Count - 1 dowriteln(Prn, Strings.Strings[i]);finallyCloseFile(Prn);end;excepton EInOutError doMessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);end;end; { Конец кода } |
Для печати содержимого TMemo или TListbox используйте следующий код:
|
PrintStrings(Memo1.Lines); |
или
PrintStrings(Listbox1.Items); |
[000539]