Items einer TListView tauschen

[xZise]

Ich möchte die Items von einer TListView tauschen...

Ums genau zusagen: Das markierte Item soll eine Position nach obengerückt werden (mit der Folge, dass das obere nach unten rutscht)!

Wie kriege ich das gebacken?

Eine Idee wäre das Item von Position X an Postion X - 1 zu kopieren und das Item dann an Position X + 1 zu löschen, nur das kopieren macht mir Probleme!

[mkinzler]

Ich würde das Problem durch einen Dreieckstasuch lösen:

Delphi-Quellcode:

hilf := ListView.Items[x];
ListView.Items[x] := ListView.Items[x-1];
ListView.Items[x-1] := hilf;

[xZise]

Achso Daran habe ich natürlich nicht gedacht, dass ich sie einfach überschreiben könnte ^^ So.. Nun meine 2. Frage:

Welche Procedure wird ausgeführt, wenn ich die Liste mit TListView.Clear lösche?

[mkinzler]

Zitat:

Welche Procedure wird ausgeführt, wenn ich die Liste mit TListView.Clear lösche?

Also beim Löschen eines Eintrags wird sie Methode ausgeführt, auf welche die Property .OnDeletion zeigt. Ich nehem an, das dieser Event beim Löschen der kompletten Liste auch ausgeführt (Count mal?) wird.

[Corpsman]

gibt es nciht auch eine Swap oder Move Function ?

Laut meiner Delphi Hilfe gibts ne Move Function die müste auch gehn.

Zitat:

Die Methode Move ändert die Position eines Elements im Array Items.

procedure Move(CurIndex, NewIndex: Integer);

Beschreibung

Mit Move kann ein Element von der Position CurIndex an die Position NewIndex verschoben werden. Die Numerierung der Indexangaben CurIndex und NewIndex beginnt bei Null für das erste Element.

[xZise]

Zitat von Corpsman:

Laut meiner Delphi Hilfe gibts ne Move Function die müste auch gehn.

Wäre net, wenn du das mal genauer erläutern würdest...

[DGL-luke]

Na probiers doch einfach mal...

Delphi-Quellcode:

procedure OneUp(Item: TListViewItem);
begin
Item.Move(Item.Index-1);
end;

Das hier sollte schon seinen Dienst tun.

[xZise]

Naja... Mit TListViewItem meckert er rum (kennt er nicht) und TListItem kennt die methode Move net!

[DGL-luke]

tatsächlich... hätt ich doch zuvor selber ausprobieren sollen... dann musst dus doch rausnehmen und wieder einfügen.

Delphi-Quellcode:

i := ListView1.Selected.Index;
s := ListView1.Selected.Caption;
Listview1.Selected.Delete;
Listview1.Items.Insert(i-1).Caption := s;

[SirThornberry]

Das Prinzip wurde ja bereits erklärt. Du musst im Prinzip über eine zwischenvariable die Werte der Items tauschen. Dabei solltest du aber auch beachten das du nicht nur die Captions, sondern auch die SubItems und Data tauschst.