Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Печать содержимого TMemo или TListBox

Идет Иван царевич по лесу и видит: стоит избушка на курьих ножках. Как обычно, к лесу передом к нему (ну сами знаете). Иван царевич ей и говорит:
- Избушка, избушка! Повернись ко мне передом, а к лесу задом!
А избушка ему в ответ:
- Denied of Service

Следующая функция имеет один параметр в виде объекта TStrings и печатает каждую строку на принтер, установленный в системе по умолчанию. Так как эта функция использует TStrings, то она будет работать с различными компонентами, которые содержат свойство типа TStrings, такие как TDBMemo или TOutline:


 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('Error Printing text.', mtError, [mbOk], 0);
   end;
 end;
 

Чтобы распечатать содержимое TMemo или TListbox, используйте следующие команды:


 PrintStrings(Memo1.Lines);
 

или


 PrintStrings(Listbox1.Items);
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS