Hi,
Delphi-Quellcode:
BestandGrid.Cells[0,0] := 'Chargenr';
BestandGrid.Cells[1,0] := 'Menge';
BestandGrid.Cells[2,0] := 'Einheit';
BestandGrid.DefaultRowHeight := 17;
BestandGrid.DefaultColWidth := 80;
BestandGrid.ColCount := 3;
BestandGrid.Visible:= true;
BestandGrid.FixedCols := 0;
y:= 0;
while y<> i do
Begin
BestandGrid.Cells[0,y+1] := Abestr[y].Chargenr;
BestandGrid.Cells[1,y+1] := FloatToStr(Abestr[y].Menge);
BestandGrid.Cells[2,y+1] := Einheit;
y:=y+1;
End;
das mein Code der einwandfrei funktioniert nur würde ich gerne von euch Wissen wie ich dieses Grid leeren so das nix mehr drin steht und ich wieder neu beschreiben kann. Das ganze wird bei einer Change Funktion ausgeführt.
Mfg
Manu
P.S Würde mich auf eine schnelle Antwort freuen.