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.