Stringgrid und Delete

[ibp]

so sollte es gehen...(nicht getestet)

Delphi-Quellcode:

procedure tform1.delrow(rownr:word);
var n:word;
begin
  with stringgrid1 do
  begin
    row:=rownr;
    if row<rowcount-1 then
      for n:=rownr to rowcount-2 do
        rows[n]:=rows[n+1];  

    rowcount:=rowcount-1;
  end;
end;