Сортировка в TListView [D6]
Gregory © (2002-10-09 20:36:00)
У меня в окне выводиться 3 поля с информацией: название, дата,
отправитель. Это выводиться используя TListView. Необходимо по
выбору сортировать соответствующее поле. Каким образом это можно
сделать используя TListView? Спасибо за ответ.
Anatoly P (2002-10-12 23:16:00) [1]
var ColumnToSort: Integer; сделай глобальной
procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort;
end;
procedure TForm1.ListView1Compare(Sender: TObject; Item1,
Item2: TListItem; Data: Integer; var Compare: Integer);
var
ix: Integer;
begin
if ColumnToSort = 0 then
Compare := CompareText(Item1.Caption,Item2.Caption)
else begin
ix := ColumnToSort - 1;
Compare :=
CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
end;
end;
Наверх 
ЧАТ |
Орешник |
|
