сортировка TList, метод Sort Опции

[kosyak]

Доброе время суток.
Не могу понять как пользоватся методом Sort объекта TList. Делаю как в хелпе:

function CompareDouble(Item1, Item2: PDouble): Integer;
//Функция сравнения
begin
  result := CompareValue(item1^,item2^);
end;

        ....
        list.Sort(@CompareDouble);                   //Сортируем полученный список
        ....

Почему то не хочет сортировать?

И еще один (наверно глупый) вопрос. Вот когда добавляю элементы Pointer методом add в Tlist. А когда делаю list.free память очищается?? не надо dispose для элементов делать?

[volvo]

Почему то не хочет сортировать?

Чего это не хочет? Все сортируется:


Ты как заполняешь list?

[kosyak]

 Function GetListFromFile(var list: TList; var F: TextFile):boolean;
var s: String;
    temp: PCurrency;
    i: integer;
begin
  result := true;
  if list <> nil then
    begin
      while not EOF(F) do
        begin
          Readln(F,s);
          new(temp);
          try
            temp^ := StrToCurr(s);
            list.Add(temp);
          except
            Write('Wrong file format');
            result := false;
            exit;
          end;
        end;
    end;
end; 

Сообщение отредактировано: kosyak - 9.11.2009 19:13