huhu
danke
also ich hab jetzt ne
TForm2.FormCreate procedure... und es geht soweit...
bzw. nuja wie kann ich denn jetzt dafür sorgen dass in die tabelle nur werte für das fahrzeug eingetragne werden, das ich ausgewählt habe?
Delphi-Quellcode:
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[2].Baujahr); { hier bei dem Kfzfeld[2 usw] muss wohl was geändert werden}
Form1.stringgrid1.cells[2,1]:=inttostr(KFZFeld[2].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].Achsen)
end;
Motorrad:
begin
Form1.stringgrid1.cells [1,3]:=inttostr(KFZFeld[5].Baujahr);
end;
end;
end;
wäre nett wenn jemand versuchen könnte das zu verstehn..
Eine Stunde spaeter:
hm kann mir niemand weiter helfen?!
[edit=alcaeus]Push-Beitrag mit diesem zusammengefuehrt. Pushen erst nach 24 Stunden! Mfg, alcaeus[/edit]