Sortieren funktioniert nicht

[himitsu]

Zitat von s.h.a.r.k:

Das Delete ist hier fehl am Platz.

Nicht unbedingt, man muß es nur "richtig" machen.
> Wobei natürlich der Weg über .Clear optimaler ist.

Delphi-Quellcode:

for i := 100 to 1 do begin
  listbox1.Items.Delete(99);
  listbox1.Items.Insert(0, IntToStr(ar[i]));

Delphi-Quellcode:

for i := 1 to 100 do begin
  listbox1.Items.Delete(0);
  listbox1.Items.Add(IntToStr(ar[i]));

Abgesehn davon kannst du froh sein, daß keine Exception ausgelöst wurden, denn die Indize in der ListBox fangen bei 0 an.


Das Problem war einfach das:
(angenommen es wären jetzt nur 10, statt 100 Einträge)

in der Box stehen diese Buchstaben untereinander > abcdefghij
und diese Ziffern sollen eingefügt werden > 1234567890

Code:

1 eingefügt = acdefghij1
2 eingefügt = acefghij12
3 eingefügt = aceghij123
4 eingefügt = acegij1234
5 eingefügt = acegi12345
6 eingefügt = acegi13456
7 eingefügt = acegi13567
8 eingefügt = acegi13578
9 eingefügt = acegi13579
0 eingefügt = acegi13579*0

Der Stern steht für den Index 10, welchen es nicht gibt, und welcher hier versucht wurde zu löschen.

Du siehst jetzt, daß es so nicht stimmte, auch wenn einige Einträge schon den neuen Werten entspricht