nimm statt einer listbox eine listview und schreibe in die OnCompare:
Code:
procedure TForm1.ListViewCompare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
begin
if StrToInt(Item1.Caption) < StrToInt(Item2.Caption) then
Compare := 1
else
if StrToInt(Item1.Caption) > StrToInt(Item2.Caption) then
Compare := -1
else
Compare := 0;
end;
code getestet, wird in meinem aktuellen snakes-programm (highscoreliste) auch verwendet!
mfg
stefan