String Grid

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

es ist ganz einfach. Es müssen doch nur die Zeilen unterhalb der zu löschenden Zeile um 1 nach oben verschoben werden und danach die Zeilenanzahl um ein veringert werden.

Delphi-Quellcode:

Var R, C: Integer;
  Zeile: Integer;  {zu löschende Zeile}

For R := Zeile to StringGrid1.RowCount - 2 do
  For C := 0 to StringGrid1.ColCount - 1 do
    StringGrid1.Cells[C, R] := StringGrid1.Cells[C, R + 1];
StringGrid1.RowCount := StringGrid1.RowCount - 1;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif