StringGrid - Aktuelle Zeile löschen

[Hawkeye219]

Die Typvereinbarung ist zwar vorhanden, sie wird aber nicht genutzt.

Delphi-Quellcode:

type
  TGridCracker = class(TCustomGrid);

procedure DeleteRow(sg: TStringGrid; index: Integer);
var
  iRow: Integer;
begin
  with TGridCracker(sg) do   // <--- so sollte es aussehen!
  begin
    iRow := Row;
    DeleteRow(index);
    if iRow < RowCount
      then Row := iRow
      else Row := Pred(RowCount);
  end;
end;

Gruß Hawkeye