[Delphi_Source]

Сообщение от poli-smen

Да. Но присутствия компонента TPrintDialog недостаточно для вывода этого диалогового окна - ещё нужно вызвать метод Execute этого компонента:

Код:

if PrintDialog1.Execute then // Если пользователь нажал кнопку "ОК" в диалоге печати...
begin
  // ... тогда печатаем
end;

Процесс печати подредактировал:

Код:

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 автоматически при запуске этого приложения?

[poli-smen]

Сообщение от Delphi_Source

Скажите, а если я изменю текст в этом файле, то он отобразится на поле Memo в Delphi автоматически при запуске этого приложения?

Нет. Нужно самому загружать этот файл в Memo. Например так:

Код:

Memo.Lines.LoadFromFile('C:\ПутьКФайлу\ИмяФайла.txt');

[Delphi_Source]

Сообщение от poli-smen

Нет. Нужно самому загружать этот файл в Memo. Например так:

Код:

Memo.Lines.LoadFromFile('C:\ПутьКФайлу\ИмяФайла.txt');

Куда именно лучше вставить этот кусочек кода?

[poli-smen]

Сообщение от Delphi_Source

Куда именно лучше вставить этот кусочек кода?

Раз нужно чтобы загружалось в Memo при запуске приложения, тогда лучше на событие OnCreate формы. Примерно так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FileExists('C:\ТекстДок.txt') then // Проверка - вдруг такого файла ещё не существует
    Memo.Lines.LoadFromFile('C:\ТекстДок.txt');
end;

[Delphi_Source]

Сообщение от poli-smen

Раз нужно чтобы загружалось в Memo при запуске приложения, тогда лучше на событие OnCreate формы. Примерно так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FileExists('C:\ТекстДок.txt') then // Проверка - вдруг такого файла ещё не существует
    Memo.Lines.LoadFromFile('C:\ТекстДок.txt');
end;

Спасибо большое за помощь в написании кода и разработки в целом.
Все идеально функционирует!

[Delphi_Source]

А каким образом можно произвести печать списка выделенных объектов файловой системы?