StringGrid BELIEBIGE Zeile löschen.

[thiagojonas]

Hallo Leute,
wieder mal ein leidiges Thema
Folgende Procedure habe ich für das Löschen einer BESTIMMTEN Zeile in einer StringGrid.

Delphi-Quellcode:

...

  type
  TStringGridHack = class(TStringGrid)
  protected
    procedure DeleteRow(ARow: Longint); reintroduce;

  end;

...


...

procedure TStringGridHack.DeleteRow(ARow: Longint);
var
  GemRow: Integer;
begin
  GemRow := Row;
  if RowCount > FixedRows + 1 then
    inherited DeleteRow(ARow)
  else
    Rows[ARow].Clear;
  if GemRow < RowCount then Row := GemRow;
end;

...

und ausführen mit

...

TStringGridHack(air_dg).DeleteRow(2); // Hier an der 2 Stelle

Ich möchte das die Zeile gelöscht wird, die ich makiere.

Mit einer For-Schleife habe ich es probiert, aber da kam nur murks raus

Delphi-Quellcode:

 for line:=0 to einnahmen_dg.RowCount-1 do
StringgridDelete(einnahmen_dg,line);