Interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Xmin:=StrToFloat(Edit1.Text);

Form1.Label5.Caption:= FloatToStr(Xmin);

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

Variable1 :=StrToFloat(Edit1.Text);;

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

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

Form2.Close;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Xmin);

end;

end.

unit Unit3;

Interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm3 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

Implementation

uses Unit1 ;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Xmax);

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Xmax:=StrToFloat(Edit1.Text);

Form1.Label6.Caption:= FloatToStr(Xmax);

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

Variable2 :=StrToFloat(Edit1.Text);;

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

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

Form3.Close;

end;

end.

unit Unit4;

Interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm4 = class(TForm)

BitBtn1: TBitBtn;

Label1: TLabel;

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

begin

Edit1.Text:= FloatToStr(Ymin);

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Ymin:=StrToFloat(Edit1.Text);

Form1.Label10.Caption:= FloatToStr(Ymin);

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

Variable3 :=StrToFloat(Edit1.Text);;

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

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

Form4.Close;

end;

end.

***

unit Unit5;

Interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm5 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;