Jak zrobić, ?żeby w ListView sortowało się po kli

W topicu zawarłem pytanie ;-)

a nie chcesz wiedziec jak to zrobic?

yaroo

what the f**k is this world runnig to?

W zdarzeniu OnColumnClick wpisujesz ListView.CustomSort( nil , Column.index) , a nastepnie w OnCompare compare:=JakiśKluczSortujący( item1.subitems[data-1] , item2.subitems[data-1]); , klucze sortujące, w helpie jest wiecej kluczy opisanych radze zajrzec np. AnsiCompareStr albo samemu napisać np :
function CompareINT( INT1 , INT2 : integer) : Integer;
begin
if INT1=INT2 then
result:=0
else if INT1&gtINT2 then
result:=-1;
else result:=1;
end;

Przydatne jeszcze funkcje to ListView.Sort , AlphaSort .
Zmieniasz Lista.SortType na jedną z poniższych stNone, stData, stText, stBoth i ListView.Sort albo AlphaSort. Jak coś pokręciłem to prosze mnie poprawić, bo coś ostatnio jestem strasznie zakręcony ;)--Pozdrowienia {hello}
Chodek ;)
Delphi 6

Wlkie, wielkie dzięki, działa (chyba bez zaRZutu) ;-)