Im Stringgrid oben eine neue Zeile einfügen

[yankee]

ungetestet:

Delphi-Quellcode:

procedure insertGridLine(Grid :TStringGrid; index: integer);
var i:integer;
begin
    Grid.RowCount :=Grid.RowCount +1;
    for i :=Grid.RowCount -2 downto index do
    begin
        Grid.Rows[i] :=Grid.Rows[i-1];
    end;
end;