ListBox.Style := lbVirtual...wie kann man da noch sortieren?

[juergen]

Hallo zusammen,

ich habe nun festgestellt, dass sich eine ListBox, welche sich im virtuellen-Modus befindet, anscheinend nicht so ohne weiteres sortieren lässt.
Ich nutze diesen Modus, weil ich mir über das Event OnData nur die Dateinamen anzeigen lasse, OHNE den Dateipfad.
Die "echten" Listbox-Einträge haben den Pfadnamen + Dateinamen.
Zur Anzeige nur der Dateinamen wird eben der virtuelle Modus benötigt.
An anderer Stelle benötige ich auch die Dateipfade, so dass diese Lösung mit nur einer Listbox schon ganz gut ist.

Nun will ich das ganze aber sortieren...
Dazu "schaufele" ich mir die Daten aus der Listbox in eine neue TStringList,
nehme dann die Sortierung vor und kopiere dann diesen neuen Inhalt wieder in die ListBox zurück.
Das funktioniert, nützt mir nur nichts, weil in der TStringList ja die Daten mit dem Dateipfad sind, also die "echten" ListBox-Einträge...
Und diese Sortierung nutzt mir nichts, ich bräuchte die Sortierung nach Dateiname.

Da habe ich im Moment überhaupt keine Idee mehr wie man sowas anstellen könnte.

Hat dazu jemand einen Tipp?

Vielen Dank schon mal vorab und
Gute N8!

[marabu]

Moin Jürgen,

ich habe die Demo um eine passende Sortierung erweitert.

Freundliche Grüße

[juergen]

Hallo Achim,

wieder mal heißen Dank für deine Unterstützung!
Ich muss mir das heute Abend genauer anschauen, insbesondere die mir völlig unbekannte Zuweisung der Funktion mit "@"
Files.CustomSort(@CompareFileName)

Einen schönen Tag!

[SirThornberry]

Bei diesem Style ist sortieren durch die Listbox auch gar nicht gewollt. Denn diesen Style verwendet man in aller Regel wenn man große Datenmengen hat und diese von dem Visuellen Teil trennt (also nicht direkt in die Listbox packt). Die ist auch generell die Empfehlung damit man die Oberfläche einfach ändern kann ohne die Logic dabei mit ändern zu müssen.