Hallo
für ein Listview nutze ich folgendes
Delphi-Quellcode:
...
Compare := CompareText(Item1.SubItems[Sortierspalte],Item2.SubItems[Sortierspalte]);
//wenn gleich, dann noch nach 2. spalte sortieren sortieren
if (compare = 0) and (Sortierspalte2>0) then
Compare := CompareText(Item1.SubItems[Sortierspalte2],Item2.SubItems[Sortierspalte2]);
//auf und absteigend sortieren
compare:=compare*Sortierordnung;
bei dir fehlt mir die erste Sortierung, da du den showtype nicht vergleichst
Mfg Frank