Sortieralgo

[sniper_w]

Ich tippe deswegen :

Delphi-Quellcode:

ListBox1.Items.Free;
  For i := 0 to sl.Count - 1 do
    ListBox1.Items.Add(sl.Strings[i]);

Müsste so aussehen:

Delphi-Quellcode:

  For i := 0 to sl.Count - 1 do
    ListBox1.Items.Add(sl.Strings[i]);
 ListBox1.Items.Free; // diese Zeiele verstehe ich nicht ganz ???

Wieso willst du die Items freigeben, wenn du sie vorher mit Werten gefühlt hast, ohne sie zu benutzen ?