LUCKY / TERRA / SVDAL

unit SVDal;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, CurrEdit, Spin;

Type
InputData = record
di: double;
d1: double;
d2: double;
d3: double;
d4: double;
dpr: double;
dnam: double;
dmagr: double;
res: double;
time: double;
sopr: double;
sec: longint;
num: longint;
end;

type
TSetVar = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
Edit1: TCurrencyEdit;
Edit7: TCurrencyEdit;
Edit2: TCurrencyEdit;
Edit3: TCurrencyEdit;
Edit4: TCurrencyEdit;
Edit5: TCurrencyEdit;
Edit8: TCurrencyEdit;
Edit9: TCurrencyEdit;
Button1: TButton;
Edit6: TCurrencyEdit;
Label6: TLabel;
Label10: TLabel;
CurrencyEdit1: TCurrencyEdit;
Label11: TLabel;
CurrencyEdit2: TCurrencyEdit;
GroupBox3: TGroupBox;
Label12: TLabel;
Label13: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
Label14: TLabel;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
OKPressed: Boolean;
{ Private declarations }
public
{ Public declarations }
end;

var
SetVar: TSetVar;
idata: InputData;

implementation

uses terra;

{$R *.DFM}

procedure TSetVar.FormShow(Sender: TObject);
begin
Edit1.Value := idata.di;
Edit2.Value := idata.d1;
Edit3.Value := idata.d2;
Edit4.Value := idata.d3;
Edit5.Value := idata.d4;
Edit7.Value := idata.dpr;
Edit8.Value := idata.dnam;
Edit9.Value := idata.dmagr;
Edit6.Value := idata.res;
CurrencyEdit1.Value:=idata.sopr;
CurrencyEdit2.Value:=idata.time;
SpinEdit1.Value:=idata.sec;
SpinEdit2.Value:=idata.num;
OKPressed := False;
end;

procedure TSetVar.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if OKPressed Then
Begin
if
((Edit1.Value<=Edit2.Value)or(Edit2.Value<=Edit3.Value)
or(Edit3.Value<=Edit4.Value)or(Edit4.Value<=Edit5.Value)
or(Edit8.Value<=2*Edit7.Value)or(Edit9.Value<=2*Edit7.Value)
or(Edit1.Value<=0)or(Edit2.Value<=0)or(Edit3.Value<=0)
or(Edit4.Value<=0)or(Edit5.Value<=0)or(Edit7.Value<=0)
or(Edit8.Value<=0)or(Edit9.Value<=0)or(((Edit3.Value-Edit4.Value)/2)
<=Edit8.Value)or(Edit6.Value<=Edit7.Value)or(SpinEdit1.Value<=0)
or(SpinEdit2.Value<=0)or(CurrencyEdit2.Value<=0))
then
begin
Application.MessageBox('Подумайте еше разок хорошенько прежде' +
' чем на кнопки жать!','Некорректный ввод!',MB_OK+MB_ICONERROR);
Action:=caNone;
OKPressed := False;
end Else
Begin
idata.di := Edit1.Value;
idata.d1 := Edit2.Value;
idata.d2 := Edit3.Value;
idata.d3 := Edit4.Value;
idata.d4 := Edit5.Value;
idata.dpr := Edit7.Value;
idata.dnam := Edit8.Value;
idata.dmagr := Edit9.Value;
idata.res := Edit6.Value;
idata.sec := SpinEdit1.Value;
idata.num := SpinEdit2.Value;
idata.time := CurrencyEdit2.Value;
Form1.SpeedButton1.Enabled:=TRUE;
Form1.SpeedButton7.Enabled:=TRUE;
Form1.N14.enabled:=TRUE;
Form1.N8.enabled:=TRUE;
End;
end;
end;

procedure TSetVar.Button1Click(Sender: TObject);
begin
OKPressed := True;
Form1.ProgressBar1.Position:=0;
Form1.Label4.Caption:='0';
Form1.Label3.Caption:='N/D';
Form1.Label8.Caption:='N/D';
Form1.Label10.Caption:='N/D';
Form1.Label12.Caption:='N/D';
Form1.Label14.Caption:='N/D';

end;

end.