TListview-Sortierung

[Treffnix]

Hallo,

ich versuche eine TListview nach Checkstatus zu sortieren. Die gecheckten Elemente sollen in der bestehenden Reihenfolge verbleibend nach oben.

Meine Sortierfunktion sieht so aus:

Delphi-Quellcode:

procedure Tform1.lvCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
begin
  Compare := ( ord(Item2.Checked) - ord(Item1.Checked) );
end;

Grundsätzlich funktioniert das, aber es wird bei längeren Listen ( > 4 ) nicht bis zum Ende durchsortiert.

sieht die Liste so aus

Code:

[ ]
[x]
[x]
[x]
[x]
[x]

Und ich sortiere, erhalte ich anschließend

Code:

[x]
[x]
[x]
[ ]
[x]
[x]

Beim nächsten Sortieren wird daraus

Code:

[x]
[x]
[x]
[x]
[ ]
[x]

usw.

Erwarten würde ich aber, dass das ungecheckte Element direkt beim ersten Mal am Ende landet.

Ich habs mit Customsort, Alphasort und Setzen von Sorttype probiert. Der Effekt bleibt der gleiche.


Kann mir das jemand erklären? Wo ist mein Denkfehler?