super jetzt habe ich es so wie ich es wollte:
Delphi-Quellcode:
procedure tLote.ClearStringGrid (sg : TStringGrid);
var
ndx,ndy: Integer;
begin
with sg do
for ndy := FixedRows to RowCount - 1 do
for ndx := FixedCols to ColCount - 1 do
Cells[ndx, ndy] := '';
end;
Hawkeye219, kannst du noch kurz mir deine meinung über diese alternative sagen, bitte:
Delphi-Quellcode:
procedure tlote.ClearGrid(var Grid: TStringGrid);
var
i: integer;
begin
for i := 1 to Grid.RowCount - 1 do
Grid.Rows[i].Clear;
grid.Cols[i].Clear;
end;