die gleiche Idee hatte ich auch, das könnte dann so oder so ähnlich aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
// zuerst sortieren
ListBox1.Sorted := True;
ListBox1.Sorted := False;
// und dann umgekehrt wieder einfügen
For i := 0 to ListBox1.Count-1 do
Begin
ListBox1.Items.Insert(i, ListBox1.Items.Strings[ListBox1.Count-1]);
ListBox1.Items.Delete(ListBox1.Count-1);
End;
end;
Da hatte sich noch ein kleiner Leichtsinnsfehler eingeschlichen, jetzt sollte's in Ordnung sein.