StringGrid leeren

[joehd]

Also ich habe mir ein Funktion geschrieben die egal welches Stringrid löscht und nur die Fixen col und row unbearbeitet bleiben

Delphi-Quellcode:

function TForm1.StringGridLeer(genstrgrid:Tstringgrid):tstringgrid;
var
  i,j :integer;

begin
   for i := genstrgrid.FixedCols to genstrgrid.ColCount - 1 do
     begin
       for j := genstrgrid.FixedRows to genstrgrid.RowCount - 1 do
         begin
           genstrgrid.Cells[i,j] := '';
         end;
     end;
     genstrgrid.rowCount := genstrgrid.Fixedrows + 2;
     result := genstrgrid; // wieder zurückgeben
end;

Der Aufruf erfolgt dann mit

    kbuch1 := form1.StringGridLeer(kbuch1); // Kbuch ist hier das Stringrid Somit kann ich es einfach aufrufen egal welches löschen möchte !

und wie findet Ihr das ?