Скачать: CL | DM;

Сортировка в ListView по SubItems...   Найти похожие ветки 

← →
BillyJeans ©   (2003-08-11 15:29) [0]

Сортировка в ListView по SubItems... Возможно ли такое стандартными методами ListView?

---

← →
Семен Сорокин ©   (2003-08-11 15:31) [1]

макро ListView_SortItems из commctrl.pas

---

← →
MBo ©   (2003-08-11 15:33) [2]

CustomSort

---

← →
dataMaster ©   (2003-08-11 15:37) [3]

Вот две процедуры:

1. Сортировка по строкам:
function CustomStringSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
result:=0;
if ParamSort=0 then
if (Item1.Caption)>(Item2.Caption) then Result :=1 else
if (Item1.Caption)<(Item2.Caption) then Result :=-1 else
else
if (Item1.SubItems[ParamSort-1])>(Item2.SubItems[ParamSort-1]) then Result :=1 else
if (Item1.SubItems[ParamSort-1])<(Item2.SubItems[ParamSort-1]) then Result :=-1;
end;

procedure LV_SortStr(LV : TListView; ColumnIndex : integer);
begin
LV.CustomSort(@CustomStringSortProc, ColumnIndex);
end;

2. Сортировка по датам.
function CustomDateSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
result:=0;
if ParamSort=0 then
if StrToDate(Item1.Caption)>StrToDate(Item2.Caption) then Result :=1 else
if StrToDate(Item1.Caption)<StrToDate(Item2.Caption) then Result :=-1 else
else
if StrToDate(Item1.SubItems[ParamSort-1])>StrToDate(Item2.SubItems[ParamS ort-1]) then Result :=1 else
if StrToDate(Item1.SubItems[ParamSort-1])<StrToDate(Item2.SubItems[ParamS ort-1]) then Result :=-1 else
end;

procedure LV_SortDate(LV : TListView; ColumnIndex : integer);
begin
LV.CustomSort(@CustomDateSortProc, ColumnIndex);
end;

Применение:
LV_SortStr(ListView1, 2);

либо

LV_SortDate(ListView1, 3);

в зависимости от содержимого ячеек. Думаю, что проблем быть не должно.

---

← →
BillyJeans ©   (2003-08-11 16:01) [4]

> dataMaster © (11.08.03 15:37) [3]

Благодарю, получилось!

---

← →
BillyJeans ©   (2003-08-11 16:21) [5]

Если кому интересно, заменил сортировку по строкам на следующее:

function CustomStringSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
if ParamSort = 0 then Result := CompareText(Item1.Caption, Item2.Caption)
else Result := CompareText(Item1.SubItems[ParamSort-1], Item2.SubItems[ParamSort-1]);
end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.048 c