Highscore sortieren

[Schneider-Huetter]

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.