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

public

{ Public declarations }

function TextSaved: Boolean;

end;

var

Form1: TForm1;

implementation

uses Unit2, uMath, Unit3, Unit4;

{$R *.dfm}

function TForm1.TextSaved: Boolean;

begin

Result := True;

if Memo1.Modified then

case MessageDlg('Save current document?', mtConfirmation, mbYesNoCancel, 0) of

mrYes:

begin

N3Click(Self);

Result := not Memo1.Modified;

end;

mrCancel: Result := False;

end;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if TextSaved then

begin

Memo1.Lines.Clear;

Caption := 'Text Editor';

SaveDialog1.FileName := '';