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

Информатика. Программирование в Delphi
233
end;
procedure TForm1.N4Click(Sender: TObject);
begin
fn:='';
Memo1.Lines.Clear;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
if OpenDialog1.Execute then
fn:=OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(fn);
end;
end;
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;
procedure TForm1.N7Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
fn:=SaveDialog1.FileName;
Memo1.Lines.SaveToFile(fn);
end;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.N9Click(Sender: TObject);