TList.Sort
От: GvinPin Россия  
Дата: 02.06.06 10:43
Оценка:
Добрый день!
Долгое время писал на С++, а тут возникла необходимость писать на Делфи и сразу столкнулся с такой проблемой:
в общем у меня есть список с указателями на записи

type
sr = record
dateF : TDateTime;
count : integer;
... : ...
end;
var
psr : ^sr;


psr^.dateF := date;
List.Add(psr)

мне необходимо сделать сортировку списка по полю dateF, попытался сделать как в справке, но компилятор на меня ругается

function CompareSR(Item1, Item2: Pointer): Integer;
begin
Result := CompareDateTime(psr(Item1).dateF, psr(Item2).dateF);
end;


List.Sort(@CompareSR)

как я понимаю надо привести Item1 и Item2 к типу psr, но паскаль изучал 10 лет назад и как это сделать незнаю.

Подскажите пожалуйста, что я делаю не так?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.