Delphi Zahlen Sortieren in TListBox

Thema durchsuchen

Ansicht

Themen-Optionen

Zahlen Sortieren in TListBox

Ein Thema von faux · begonnen am 22. Apr 2004 · letzter Beitrag vom 22. Mär 2005

Vorheriger Beitrag

Nächster Beitrag

StefanDP

Registriert seit: 11. Apr 2004
294 Beiträge

Re: Zahlen Sortieren in TListBox

22. Apr 2004, 15:33

nimm statt einer listbox eine listview und schreibe in die OnCompare:

markieren

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!