TStringGrid Move

[mcinternet]

Hallo die Gemeinde,

ich möchte ganz einfach in einem TStringGrid eine Zeile löschen.
Dazu cleare ich die Zeile, möchte danach den Rest von unten moven und die letzte Zeile löschen. Nur leider kommt schon beim xGrid.Rows.Move[x,y] immer ne Exception hoch:

Es können keine Zeilen des Tabellengitters gelöscht oder eingefügt werden.


mh ....

Hat da wer nen Tipp?

Fixed Rows und Cols ist auf 0

Gruss

mcinternet

[mkinzler]

Ich würde es per Helper realisieren:

Delphi-Quellcode:

type
  TCustomGridHelper = class helper for TCustomGrid
  public
    procedure DelRow(ARow: Integer);
  end;

procedure TCustomGridHelper.DelRow(ARow: Integer);
begin
  Self.DeleteRow(ARow);
end;

[Dennis07]

Class helpers sind einfach genial! :D Weiß echt nicht mehr, wie ich damals ohne auskam... :lol:

[hoika]

Hallo,

Zitat:

immer ne Exception hoch

Die da wäre ?

[KodeZwerg]

So klappts ohne Helfer

Delphi-Quellcode:

procedure DeleteSGRow(MyGrid: TStringGrid; iRow: Integer);
var
  i: Integer;
begin
  for i := iRow to MyGrid.RowCount - 2 do     // kopiere alles unterhalb iRow
   MyGrid.Rows[i].Assign(MyGrid.Rows[i + 1]); // nach oberhalb von iRow
  MyGrid.RowCount := MyGrid.RowCount - 1;     // entferne letzten Eintrag
end;

Beispiel-Aufruf

Delphi-Quellcode:

DeleteSGRow(MyStringGrid, MyStringGrid.Row);

für aktuelle Selektion oder

Delphi-Quellcode:

DeleteSGRow(MyStringGrid, 10);

um Zeile 10 zu löschen.

[hoika]

Hallo,
übernimmt das Assign auch das Objects-Property?
Ich glaube nicht, weiss aber nicht.

[KodeZwerg]

Soweit hab ichs nicht getestet, Ziel für mich war es eine Zeile wegzubekommen ohne Helfer. Wie man sieht überschreibe ich lediglich alles und lösch das letzte.