Стр. 227 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
227
Рис. 20.4
4. В разделе объявления глобальных переменных Var объявите перемен-
ную Fn.
//имя текущего текстового файла
fn:string;
5. В инспекторе объектов для формы Form1 создайте обработчик события
OnCreate - процедуру FormCreate.
//процедура, которая происходит при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//заголовок формы
Form1.Caption:='Блокнот';
//фильтр
OpenDialog1.Filter:='Текстовые файлы (*.txt)|*.TXT';
//фильтр
SaveDialog1.Filter:='Текстовые файлы (*.txt)|*.TXT';
Memo1.Anchors:=[akLeft,akTop,akRight,akBottom];
end;
6. . В инспекторе объектов для пункта меню Создать (N4) создайте обра-
ботчик события OnClick - процедуру N4Click.
//процедура, которая происходит при нажатии по компоненту N4 −
//создание чистого файла
procedure TForm1.N4Click(Sender: TObject);
begin
//имя текущего текстового файла
fn:='';
//очистка компонента Memo от старых записей
Memo1.Lines.Clear;
end;
7. В инспекторе объектов для пункта меню Открыть (N5) создайте обра-
ботчик события OnClick - процедуру N5Click.
//процедура, которая происходит при нажатии по компоненту N5 −
//открытие файла