2.2.3Текст другого модуля

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

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, XPMan;

type

TForm2 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

XPManifest1: TXPManifest;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

form1.visible:=true;

form2.Close;

end;

end.

2.2.4Текст третього модуля

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

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, XPMan;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

memo1: TMemo;

XPManifest1: TXPManifest;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit2, Unit4;

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);//процедура відміни збереження

begin

form1.close; //закриваємо всі формули

form2.close;

form3.Close;

form4.close;

end;

procedure perevirka; //процедура перевірки на помилку

begin

try

begin

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

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

form1.close;form2.close;form3.Close;end else

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

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

form1.close;form2.close;form3.Close;end else

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

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

form1.close;form2.close;form3.Close;end else

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

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

form1.close;form2.close;form3.Close;end else

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

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

form1.close;form2.close;form3.Close; end;

end;

except

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

form1.close;form2.close;form3.Close;

end;

end;

procedure TForm3.Button1Click(Sender: TObject); //процедура збереження даних

begin

form1.saveDialog1.FileName:='file.txt'; //початкова назва файлу

form1.savedialog1.InitialDir:='d:\курсовий проект\файл';//стандартна папка для збереження

perevirka;//виконання процедури перевірки правильності введених даних

with form1.saveDialog1 do

if Execute then

begin //збереження даних

memo1.clear;

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

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

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

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

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

memo1.Lines.SaveToFile(filename);

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

form1.OpenDialog1.FileName := fileName;

end;

form1.Close; //закриваємо форми

form2.close;

form3.close;

end;

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

begin

form1.Enabled:=true;//перша форма стає активною

end;

end.