Class TForm1 (unit dbread)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

AirliftRecType = record { Record of airlift exceptions } SupplyType : AirliftTypeE; { Either FUEL or CARGO } Base : BaseTypeE; { One of the three airbases } WeaponItem : WpnTypeE; { Weapon type if exception is weapon } SupplyItem : BAssetsTypeE; { Base asset } Quantity : longint; { Quantity not airlifted } end;

Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;



Constructors


Functions


procedure Button1Click(Sender: TObject);

AirliftRecType = record { Record of airlift exceptions } SupplyType : AirliftTypeE; { Either FUEL or CARGO } Base : BaseTypeE; { One of the three airbases } WeaponItem : WpnTypeE; { Weapon type if exception is weapon } SupplyItem : BAssetsTypeE; { Base asset } Quantity : longint; { Quantity not airlifted } end;


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;