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

Информатика. Программирование в Delphi
228
procedure TForm1.N5Click(Sender: TObject);
begin
//если пользователь в появившемся стандартном диалоге
//выбора файла нажал кнопку Открыть
if OpenDialog1.Execute then
begin
//имя открываемого текстового файла
fn:=OpenDialog1.FileName;
//загрузка файла
Memo1.Lines.LoadFromFile(fn);
end;
end;
8. В инспекторе объектов для пункта меню Сохранить (N6) создайте об-
работчик события OnClick - процедуру N6Click.
//процедура, которая происходит при нажатии по компоненту N6 −
//сохранение файла под старым именем
procedure TForm1.N6Click(Sender: TObject);
begin
//если файл уже сохранен
if fn<>'' then
//сохранение файла под старым именем
Memo1.Lines.SaveToFile(fn)
//если файл новый и не сохранен
else
//если пользователь в появившемся стандартном диалоге
//сохранения файла нажал на кнопку Сохранить
if SaveDialog1.Execute then
begin
//новое имя сохраняемого файла
fn:=SaveDialog1.FileName;
//сохранение файла
Memo1.Lines.SaveToFile(fn);
end;
end;
9. В инспекторе объектов для пункта меню Сохранить как (N7) создайте
обработчик события OnClick - процедуру N7Click.
//процедура, которая происходит при нажатии по компоненту N7 −
//сохранение файла под новым именем
procedure TForm1.N7Click(Sender: TObject);
begin
//если пользователь в появившемся стандартном диалоге
//сохранения файла нажал на кнопку Сохранить как