Inhalt von Stringrid auf einmal löschen

[Klaus01]

Delphi-Quellcode:

procedure tLote.ClearStringGrid (sg : TStringGrid);
var
  r_ndx,c_ndx: Integer;
begin
  with sg do
  begin
    for r_ndx := FixedRows +1 to Pred(RowCount) do
       for c_ndx := FixedColls +1 to Pred(CollCount) do
         cells[c_ndx,r_ndx] := '';
  end;
end;

sollte ungefähr so gehen, nicht getestet.

Grüße
Klaus