Inhalt von Stringrid auf einmal löschen

[Sharky]

Hai tom_po,

meinst Du so etwas?:

Delphi-Quellcode:

procedure ClearStringGrid (sg : TStringGrid);
var
  ndx: Integer;
begin
  with sg do
  begin
    for ndx := FixedRows to Pred(RowCount) do
    begin
      Rows[ndx].Clear;
    end;
  end;
end;

procedure TDemoForm.btn_ClearClick(Sender: TObject);
begin
  ClearStringGrid(StringGrid1);
end;