Лабораторная работа: Обработка файлов в среде Delphi

Чтобы в диалоговом окне Печать включить возможность выбора диапазона печатаемых страниц и печати выделенного фрагмента, задайте для свойств PrintDialog1. Options.poPageNums и PrintDialog1. Options.poSelection значение True.

После этого в раздел описания модулей добавьте в список USES модуль PRINTERS , чтобы не вводить свою переменную. Этот модуль позволяет управлять процессом печати.

Отредактируйте раздел описания переменных:

Var

Form1: TForm1;

FName: string;

F: TextFile;

S : string ;

Создайте процедуры обработки событий трех кнопок, следующим образом:

1) сохранение:

procedure TForm1. Button1Click (Sender: TObject);

begin

fName:='Text1';

SaveDialog1. FileName:=FName;

if SaveDialog1. Execute then begin

fName:=SaveDialog1. FileName;

case SaveDialog1. FilterIndex of

1: fName:=fName+'.txt';

2: fName:=fName+'.doc';

end;

Memo1. Lines. SaveToFile(fName);

end;

end;

2) открытие:

procedure TForm1. Button2Click (Sender: TObject);

begin

if OpenDialog1. Execute then