IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> сортировка TList, метод Sort
kosyak
сообщение 9.11.2009 18:54
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 100
Пол: Мужской

Репутация: -  0  +


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


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

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



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

И еще один (наверно глупый) вопрос. Вот когда добавляю элементы Pointer методом add в Tlist. А когда делаю list.free память очищается?? не надо dispose для элементов делать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 9.11.2009 19:07
Сообщение #2


Гость






Цитата
Почему то не хочет сортировать?
Чего это не хочет? Все сортируется:
Прикрепленное изображение

Ты как заполняешь list?
 К началу страницы 
+ Ответить 
kosyak
сообщение 9.11.2009 19:12
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 100
Пол: Мужской

Репутация: -  0  +


 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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 10.07.2025 12:37
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"