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

Вниз

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

 
McSimm2   (2003-12-04 11:13) [0]

Можно отсортировать данные в TListe по 2 полям ?


 
Digitman ©   (2003-12-04 11:20) [1]

да хоть по 20-ти


 
Anatoly Podgoretsky ©   (2003-12-04 11:26) [2]

Только в TList нет 2 полей, это всего список указателей.


 
McSimm2   (2003-12-04 11:34) [3]

Anatoly Podgoretsky © (04.12.03 11:26) [2]
Да, точно, конечно же...

Подскажите, плиз, как сделать сортировку по 2 полям.



PReportRecord = ^TReportRecord;
TReportRecord = record
Month, Year: String;
....
end;

procedure TFrm_main.SortList();

function CompareListItems(Item1, Item2: Pointer): Integer;
var
RecA: PReportRecord absolute Item1;
RecB: PReportRecord absolute Item2;
begin
if RecA^.Year < RecB^.Year then
Result := -1 else
if RecA^.Year = RecB^.Year then
Result := 0 else
Result := 1;
end;

begin
FReportList.Sort(@CompareListItems);
end;


Как сделать что бы отсортировалось по году(1) и по месяцу(2) ???


 
Семен Сорокин ©   (2003-12-04 11:38) [4]

наверное так:

function CompareListItems(Item1, Item2: Pointer): Integer;
var
RecA: PReportRecord absolute Item1;
RecB: PReportRecord absolute Item2;
begin
if RecA^.Year < RecB^.Year then
Result := -1
else if RecA^.Year > RecB^.Year then
Result := 1
else if RecA^.Month < RecB^.Month then
Result := -1
else if RecA^.Month > RecB^.Month then
Result := 1
else
Result := 0
end;


 
gek ©   (2003-12-04 11:39) [5]

Попробуй так

if RecA^.Year < RecB^.Year then
begin
if RecA^.Month < RecB^.Month then
....
end


 
McSimm2   (2003-12-04 11:42) [6]

Семен Сорокин © (04.12.03 11:38) [4]
Большое спасибо - всё OK

Всем спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
4-52448
MaXie
2003-10-23 11:13
2003.12.16
Как дождаться завершения приложения?


1-52257
Maxio
2003-12-04 11:11
2003.12.16
Нажать ENTER


3-52068
chtr
2003-11-25 10:05
2003.12.16
Не удается найти %1


14-52364
K.o.Z
2003-11-23 00:40
2003.12.16
Drag`n`drop


1-52266
lipskiy
2003-11-29 14:52
2003.12.16
Запуск html странички с указанием внутренней ссылки?