unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
RadioGroup1: TRadioGroup;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Type Kfzart = (PKW, LKW, Motorrad);
Fahrzeugtyp =
record
Baujahr:integer;
case KFZ: KFZart
of
PKW: (Sitze:Byte);
LKW: (Achsen,Nutzlast: Integer);
Motorrad:(Seitenwagen: Boolean);
end;
var
KFZFELD:
array[1..5]
of fahrzeugtyp;
LAufvar:Byte;
Wahl:Char;
implementation
uses unit2, Unit1;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Laufvar:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Laufvar:=laufvar+1;
Edit2.text:= inttostr(laufvar);
if Laufvar <= 5
then
begin
KFZFeld[Laufvar].Baujahr:=strtoint(edit1.text);
case Fahrzeugauswahl.ItemIndex
of
0:
begin
KFZFeld[Laufvar].KFZ:=PKW;
form2.label1.caption:='
Anzahl der Sitze';
// KFZfelf[laufvar].sitze:=strtoint]
form2.edit2.text:='
******************************';
form2.edit2.
readonly:=true;
form2.showmodal;
form2.label3.caption:='
';
form2.label4.caption:='
';
end;
{PKW}
1:
begin
KFZFeld[Laufvar].KFZ:=LKW;
form2.show;
form2.label1.caption:='
Achsen';
form2.label2.caption:='
Nutzlast';
form2.edit2.text:='
';
form2.edit2.
readonly:=false;
form2.label3.caption:='
';
form2.label4.caption:='
Tonnen';
end;
{LKW}
2:
begin
KFZFeld[Laufvar].KFZ:=Motorrad;
form2.show;
form2.label1.caption:='
Seitenwagen';
form2.label2.caption:='
';
form2.edit2.text:='
******************************';
form2.edit2.
readonly:=true;
form2.label4.caption:='
';
form2.label3.caption:='
';
end;
end;
end;
{MOTOrrad}
end;
//CASE
procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
Form1.stringgrid1.cells [0,0]:= '
Fahrzeuge';
Form1.stringgrid1.cells[0,1]:='
PKW';
Form1.stringgrid1.cells[0,2]:='
LKW';
Form1.stringgrid1.cells[0,3]:='
Motorrad';
Form1.stringgrid1.cells[1,0]:='
Baujahr';
Form1.stringgrid1.cells[2,0]:='
Sitze';
Form1.stringgrid1.cells[3,0]:= '
Seitenwagen';
Form1.stringgrid1.cells[4,0]:= '
Achsen';
Form1.stringgrid1.cells[5,0]:= '
Nutzlast';
for i:=1
to 5
do
case KFZFeld[i].KFZ
of Pkw:
begin
Form1.stringgrid1.cells [1,1]:=inttostr(KFZFeld[].Baujahr);
Form1.stringgrid1.cells[2,1]:=inttostr(KFZFeld[i].Baujahr);
end;
Lkw:
begin
Form1.stringgrid1.cells [1,2]:=inttostr(KFZFeld[2].Baujahr);
Form1.stringgrid1.cells [5,2]:=inttostr(KFZFeld[4].nutzlast);
Form1.stringgrid1.cells [4,2]:=inttostr(KFZFeld[4].Achsten)
end;
Motorrad
begin
Form1.stringgrid1.cells [1,3]:=inttostr(KFZFeld[5].Baujahr);
Form1.stringgrid1.cells [3,3]:=inttostr(KFZFeld[5].Seitenwagen
end;
end.