Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.09;
Скачать: CL | DM;

Вниз

Сортитровка в TList   Найти похожие ветки 

 
zeppelin ©   (2003-05-29 15:27) [0]

Добрый день.
Подскажите пожайлуста, как работать с Sort в TList.
Спасибо.


 
reonid ©   (2003-05-29 15:37) [1]

function SomethingCompare(Item1, Item2: Pointer): Integer;
begin
if TSomething(Item1).Value = TSomething(Item2).Value then Result := 0
else if TSomething(Item1).Value > TSomething(Item2).Value then Result := 1
else if TSomething(Item1).Value < TSomething(Item2).Value then Result := -1;
end;

ListOfSomething.Sort(SomethingCompare);


 
Palladin ©   (2003-05-29 15:44) [2]

в справке пример есть!



Страницы: 1 вся ветка

Текущий архив: 2003.06.09;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.028 c
1-26493
Avreliy
2003-05-29 18:24
2003.06.09
LowerCase для работы с кириллицей.


1-26453
-=GaLaN=-
2003-05-27 11:44
2003.06.09
Правая кнопка в exlorer е


7-26814
Юра
2003-04-02 03:16
2003.06.09
Сканер штрих-кода


3-26348
kanat
2003-05-20 13:59
2003.06.09
конвертировать в parabox7


7-26815
sucer
2003-04-04 15:48
2003.06.09
Как узнать SerialNumber HDD без API(без GetVolumeInformation)?