StringGrid entleeren und neu "zeichnen" mit anderen werten

[waschlap]

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.

[Sharky]

Hai waschlap,

was verstehst Du denn unter "leeren"? Soll der Inhalt der Zellen gelöscht werden? Dann musst Du in jede Zelle ein '' schreiben.
Oder sollen die Zeilen komplet weg? Dann musst Du nur den Wert von RowCount auf 1 ändern.

[chrisw]

Einfach die Zellen Überschreiben !

[Phistev]

Delphi-Quellcode:

for i:= 0 to Grid.RowCount-1 do
  for j:= 0 to Grid.ColCount-1 do
    Grid.Cells[j,i]:= '';

3-5 Zeilen :mrgreen: