Tadvstringgrid und Zeile löschen

[capo]

Guten Abend,

ich verwende ein TAdvStringgrid und möchte eine Zeile löschen.
MIt den Hauseigenen Demos bin ich nicht weiter gekommen.

Deshalb verwende ich folgendes Script um eine Zeile zu löschen:

Delphi-Quellcode:

procedure TForm1.GridDeleteRow(RowNumber: Integer; Grid: TStringGrid);
var
  i: Integer;
begin
  Grid.Row := RowNumber;
  if (Grid.Row = Grid.RowCount - 1) then
  begin
    {On the last row}
    Grid.RowCount := Grid.RowCount - 1;
  end else
  begin
    {Not the last row}
    for i := RowNumber to Grid.RowCount - 1 do
    begin
      Grid.Rows[i] := Grid.Rows[i + 1];
    end;
    Grid.RowCount := Grid.RowCount - 1;
  end;
end;

Das löschen einer Zeile funktioniert normalerweise auch.
Diesmal ist es so, dass ich einen Floatingfooter verwende und nach dem löschen der Zeile diese danach im Floatingfooter angezeigt wird.

[EDIT] sehe gerade dass das löschen auch nicht richtig klappt

Jemand eine Ahung woran das liegen kann?

Gruss Capo

[Ralf Kaiser]

Hi,

hast du es schon mal so versucht:

Delphi-Quellcode:

Grid.RemoveRows(rowindex, 1); // eine Zeile bei rowindex entfernen
Grid.RemoveRows(rowindex, 5); // 5 Zeile ab rowindex entfernen

(Das "Adv" in AdvStringgrid bedeutet doch, dass diese Komponente schon eine Menge Komfort mitbringt mit dem man solche Aufgaben erledigen kann! :wink: )

Ciao,
Ralf

[capo]

Hallo Ralf, danke aber das geht nicht.
Ich denke auch dass das TAdvStringgrid das können muss, ich finde nur nicht den richtigen Code, habe schon wahnsinnig viel rumprobiert.
Ich finde es einfach nicht.
Gruss Vito

[capo]

doch...damit

Delphi-Quellcode:

StringGrid1.RemoveRows(1, 1);

denke ich, muss nur noch die markierte Zeile reinkriegen.

[Nachteule]

was heisst "es geht nicht"? Was geht denn nicht?

ich lösche Zeilen im Grid so:

AdvStringGrid.Row ist die aktuelle Zeile

Delphi-Quellcode:

  if (AdvStringGrid.rowcount > 2) then
  begin
    AdvStringGrid.ClearRows(AdvStringGrid.Row, 1);
    AdvStringGrid.RemoveRows(AdvStringGrid.Row, 1);
  end;

[capo]

wow...das isses. Grosses Danekeschön