|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Цитата:
Процесс печати подредактировал: Код:
procedure TForm1.Button2Click(sender: tobject); var i:integer; Prn, Txt: TextFile; begin //Если запущен диалог печати и не было отмены if PrintDialog1.Execute then begin //Задание количества копий Printer.Copies:=PrintDialog1.Copies; //Задание параметров шрифта Printer.Canvas.Font.Name:='Times New Roman'; Printer.Canvas.Font.Size:=14; //Связывание текстового файла с принтером по умолчанию AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер AssignFile(Txt, 'C:\ТекстДок.txt'); Rewrite(Prn); // Готовим принтер к печати Rewrite(Txt); Printer.Canvas.Font:= Memo.Font; // Цикл печати: for i := 0 to Memo.Lines.Count - 1 do begin Writeln(Prn, Memo.Lines[i]); Writeln(Txt, Memo.Lines[i]); end; CloseFile(Prn); CloseFile(Txt); end; end; end. Теперь появилось стандартное диалоговое окно для выбора параметров печати. Текст с Memo автоматически отображается в текстовом документе. Все идеально! Спасибо большущее. Скажите, а если я изменю текст в этом файле, то он отобразится на поле Memo в Delphi автоматически при запуске этого приложения? |
#17
|
||||
|
||||
Цитата:
Код:
Memo.Lines.LoadFromFile('C:\ПутьКФайлу\ИмяФайла.txt'); |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (17.11.2013)
|
#18
|
|||
|
|||
Цитата:
Куда именно лучше вставить этот кусочек кода? |
#19
|
||||
|
||||
Цитата:
Код:
procedure TForm1.FormCreate(Sender: TObject); begin if FileExists('C:\ТекстДок.txt') then // Проверка - вдруг такого файла ещё не существует Memo.Lines.LoadFromFile('C:\ТекстДок.txt'); end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (17.11.2013)
|
#20
|
|||
|
|||
Цитата:
Спасибо большое за помощь в написании кода и разработки в целом. Все идеально функционирует! |
#21
|
|||
|
|||
А каким образом можно произвести печать списка выделенных объектов файловой системы?
|