Курсовая работа: Расчетная методика проектирования программного комплекса

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

with SaveDialog1 do

if Execute then

begin

Memo1.Lines.SaveToFile(FileName);

Memo1.Modified := False;

// - сохранение текста в файле

Caption := 'Text Editor - ' + ExtractFileName(FileName);

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

with SaveDialog1 do

if FileName = '' then

N4Click(Self)

else

begin

Memo1.Lines.SaveToFile(FileName);

Memo1.Modified := False;

end;

end;

procedure TForm1.N15Click(Sender: TObject);

begin