Ein richtiges BubbleSort ist das nicht
http://de.wikipedia.org/wiki/Bubblesort
zumindestens ist deine Abbruchbedingung etwas suboptimal
- richtig = nochmal sortieren, wenn was getauscht wurde
- du =
alles angucken, ob richtig sortiert ist und wenn, dann abbrechen
(das Fette ist eine Bremse)
Und was bitte heißt "das funktioniert bei mir irgendwie nicht"
Was passiert oder passiert nicht oder läuft falsch?
> FEHLERBESCHREIBUNG
Sicher, daß es nicht richtig sortiert?
Delphi-Quellcode:
listbox1.Items.Delete(i);
listbox1.Items.Add(inttostr(ar[i]))
Ich denk eher, daß deine Anzeige der Werte fehlerhaft ist.
Vergleiche mal den Arrayinhalt (laut Debugger) und den Inhalt der ListBox.