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 :gruebel:

Delphi-Quellcode:

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

[Hansa]

Zitat:

Zitat von thiagojonas

...probiert, aber da kam nur murks raus :gruebel:

Ein Wunder ? C+P ist ja schon gut. Aber wenn schon dann richtig. :P

Die Quellenangabe fehlt natürlich auch noch. Selbstverständlich wurden die Quellen-Teiltexte nur teilweise gepostet usw. Also ganz so wie üblich. :mrgreen:

Zumindest die Quelle ist schnell zu finden :

http://www.swissdelphicenter.ch/de/showcode.php?id=460

Jetzt heißts nur noch : auf einen warten, der dir das ganze Rätsel löst.

[guidok]

Zitat:

Zitat von thiagojonas

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 :gruebel:

Delphi-Quellcode:

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

Wenn du möchtest, dass die markierte Zeile gelöscht wird, was soll dann der Kram hier?

Hier ist weder die for-Schleife noch der Befehl innerhalb der Schleife richtig.

Edit:

Ein Tip, den dir auch die Delphi-Hilfe verraten hätte (wenn man sie denn lesen würde):

Die aktuelle Zeile des Grid bekommst du über StringGrid.Row.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Sonstige Fragen zu Delphi" nach "VCL / WinForms / Controls" verschoben.
TStringGrid -> VCL

[thiagojonas]

Danke :-D und Frohe Weihnachten :wink: