gegensatz zu rowcount

[Klaus01]

Guten Abend,

marabu hatte hier diesen Code
zum Einfügen von Zeilen in das StringGrid gepostet:

Delphi-Quellcode:

procedure TDemoForm.InsertRow(iRow: integer);
var
  i: integer;
begin
  with StringGrid do begin
    if iRow < FixedRows then
      raise Exception.Create('you cannot insert a fixed row');
    RowCount := RowCount + 1;
    for i := RowCount - 1 downto Succ(iRow) do
      Rows[i].Assign(Rows[i-1]);
    Rows[iRow].Clear;
  end;
end;

Grüße
Klaus