|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
нужно вывести на печать данные из поля мемо
Не получается вывести на печать данные из поля мемо.
Нашла такой код: Код: Код:
procedure TForm6_dover.Button1Click(Sender: TObject); var f:TextFile; i:integer; begin PrintDialog1.Execute; //AssignPrn(f); try Rewrite(f); for i:=0 to Memo1.Lines.Count-1 do Writeln(f, Memo1.Lines[i]); finally CloseFile(f); end; end; не работает. Может кто знает, как справится с проблемой? |
#2
|
||||
|
||||
Цитата:
|
#3
|
|||
|
|||
закомментирована она т.к при запуске на ней выходит ошибка. Что не так написано?
|
#4
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
anghela (17.11.2013)
|
#5
|
|||
|
|||
Спасибо огромное! Все работает)))
|