2.2.5Текст четвертого модуля

Нижче наведений код четвертого модуля:

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, XPMan;

type

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

XPManifest1: TXPManifest;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);//збереження даних і створення нового файлу

label 1;

var canclose:boolean;

begin

form1.saveDialog1.FileName:='file.txt';

form1.savedialog1.InitialDir:='d:\курсовий проект\файл';

try

begin

StrToFloat(form1.Edit1.text); //перевірка даних на помилку

StrToFloat(form1.Edit2.text);

StrToFloat(form1.Edit6.text);

StrToFloat(form1.Edit4.text);

StrToFloat(form1.Edit5.text);

end;

except

showMessage('Помилка в даних збереження неможливе');

begin

CanClose := True; //створення нового файлу

form1.Memo1.Clear;

form1.OpenDialog1.Filename := '';

form1.Caption := 'Перехідні процеси';

form1.Edit1.Text:='';

form1.Edit2.Text:='';

form1.Edit6.Text:='';

form1.Edit4.Text:='';

form1.Edit5.Text:='';

end;

form4.close;

Exit;

end;

if(StrToFloat(form1.Edit1.text)<=0)then begin //перевірка даних на помилку

showMessage('Помилка в даних збереження неможливе');

goto 1; end else

if (StrToFloat(form1.Edit2.text)<=0) then begin

showMessage('Помилка в даних збереження неможливе');

goto 1; end else

if (StrToFloat(form1.Edit6.text)<=0)then begin

showMessage('Помилка в даних збереження неможливе');

goto 1; end else

if(StrToFloat(form1.Edit4.text)<=0) then begin

showMessage('Помилка в даних збереження неможливе');

goto 1; end else

if(StrToFloat(form1.Edit5.text)<=0) then begin

showMessage('Помилка в даних збереження неможливе');

goto 1;

end;

with form1.saveDialog1 do //збереження даних

if Execute then

begin

form1.memo1.clear;

form1.memo1.Lines.append(form1.Edit1.Text);

form1.memo1.Lines.append(form1.Edit2.Text);

form1.memo1.Lines.append(form1.Edit6.Text);

form1.memo1.Lines.append(form1.Edit4.Text);

form1.memo1.Lines.append(form1.Edit5.Text);

form1.memo1.Lines.SaveToFile(filename);

caption := 'Editor - ' + ExtractFilename(filename);

form1.OpenDialog1.FileName := fileName;

form4.Close;

end;

1:;

form4.Close;

CanClose := True;

if not CanClose then Exit;

form1.Memo1.Clear; //створення нового файлу

form1.OpenDialog1.Filename := '';

form1.Caption := 'Перехідні процеси';

form1.Edit1.Text:='';

form1.Edit2.Text:='';

form1.Edit6.Text:='';

form1.Edit4.Text:='';

form1.Edit5.Text:='';

end;

procedure TForm4.Button2Click(Sender: TObject);//відміна збереження даних і створення нового файлу

var canclose:boolean;

begin

form4.Close; //закриваємо чеверту форму

CanClose := True;

if not CanClose then Exit;

form1.Memo1.Clear;

form1.OpenDialog1.Filename := ''; //створення нового файлу

form1.Caption := 'Перехідні процеси'; //назва фарми

form1.Edit1.Text:='';

form1.Edit2.Text:='';

form1.Edit6.Text:=''; //початкове значення величие елементів

form1.Edit4.Text:='';

form1.Edit5.Text:='';

end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Enabled:=true;

end;

end.