StringGrid - Aktuelle Zeile löschen

[marabu]

Hallo.

Hier ein Klassiker:

Delphi-Quellcode:

type 
  TGridCracker = class(TCustomGrid);

procedure DeleteRow(sg: TStringGrid; index: Integer);
var
  iRow: Integer;
begin
  with TGridCracker(sg) do
  begin
    iRow := Row;
    DeleteRow(index);
    if iRow < RowCount
      then Row := iRow
      else Row := Pred(RowCount);
  end;
end;

Verwenden kannst du ihn so:

Delphi-Quellcode:

with FSpielfeld do
  DeleteRow(StringGrid1, StringGrid1.Row);

Grüße vom marabu