Delphi Listbox Items nach Teil String sortieren

[Ghostwalker]

Zitat von Zeref Darkmage:

for i:=1 to Listbox1.items.count -1 do begin // hier soll es schonmal die ganze Liste in Agriff nehmen

Hier ist schonmal der erste Fehler drinn. Stringlisten (wie hier in der Listbox) fangen bei 0 an, nicht bei 1.

Korrekt währe also:

For i := 0 to Listbox1.items.count-1 do begin Damit enthält i den index auf die Zeile.

[QUOTE]

for x:= 1 to length(listbox1.items[x]) do begin // hier jede einzelne Zeile bzw. item
[/QUOITE]

Hier soll wohl jedes einzelne ZEICHEN einer Zeile durchlaufen werden. Damit ist aber das x bei listbox1.items falsch. Hier müsste statt dessen i stehen, um die jeweilige Zeile zu referenzieren.

Korrekt währ also

for x := 1 to length(listbox1.items[i]) do begin Damit hast in i den index auf die Zeile und in x den index des Zeichens.


Beim Rest muss ich leider passen, da sich mir noch nicht ganz erschlossen hat, was den eigentlich gemacht werdeen soll.

Vielleicht währe eine kleine Erklärung mit Datenbeispiel hilfreich

[Luckie]

Ganz andere Idee. Wäre da ein Listview mit mehreren Spalten nicht einfacher? Und dann eben die erste Spalte sortieren.

[Zeref Darkmage]

Im Anhang ist die Datei, danke schonmal für die berichtigung der fehler, bin noch bluts Anfänger

Es soll mit dem klick auf "sortieren" die Listbox nach der jeweils ersten Zahl im string vergleichen und danach verscheiben..

Bsp
71524 Tobi 7623 Müller
892748 Max 872 Müller
89237 Lucas 8723 Müller

hier wie gesagt die erste Zahl mit der jeweils anderen Zahl vergleichen um zu entscheiden was gerückt werden soll, danach aber wie gesagt den ganzen String sortiert anzeigen.

Das alles solang bis die kleinste Zahl unten steht und die größte oben

das weiter und zurück fügt es bzw. entfernt es aus der Listbox

lg

[LTE5]

Zitat:

Das alles solang bis die kleinste Zahl unten steht und die größte oben

Guck dir dafür mal, auch als kleine Übung, BubbleSort an
https://de.wikipedia.org/wiki/Bubblesort