Implementation

uses unit1;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Ymax:=StrToFloat(Edit1.Text);

Form1.Label11.Caption:= FloatToStr(Ymax);

//Присвоить значение переменной Variable

Variable4 :=StrToFloat(Edit1.Text);;

//Записать значение переменной Variable в INI-файл Model

ConfigFile.WriteString('Model', 'Variable4',FloatToStr(Variable4));

Form5.Close;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Ymax);

end;

end.

unit Unit6;

Interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm6 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(h);

end;

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

h:=StrToFloat(Edit1.Text);

Form1.Label12.Caption:= FloatToStr(h);

//Присвоить значение переменной Variable

Variable5 :=StrToFloat(Edit1.Text);;

//Записать значение переменной Variable в INI-файл Model

ConfigFile.WriteString('Model', 'Variable5',FloatToStr(Variable5));

Form6.Close;

end;

end.

unit Unit7;

Interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm7 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(y);

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

y:=StrToFloat(Edit1.Text);

Form1.Label13.Caption:= FloatToStr(y);

//Присвоить значение переменной Variable

Variable6 :=StrToFloat(Edit1.Text);;

//Записать значение переменной Variable в INI-файл Model

ConfigFile.WriteString('Model', 'Variable6',FloatToStr(Variable6));

Form7.Close;

end;

end.

unit Unit8;

Interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm8 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(z);

end;

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

Form1.Label14.Caption:= FloatToStr(z);

//Присвоить значение переменной Variable

Variable7 :=StrToFloat(Edit1.Text);;

//Записать значение переменной Variable в INI-файл Model

ConfigFile.WriteString('Model', 'Variable7',FloatToStr(Variable7));

Form8.Close;

end;

end.

Результат выполнения программы:

Выводы: показали умение создания современного приложения на Delphi.