Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

Сортировка в TListView   Найти похожие ветки 

 
Gregory   (2002-10-09 20:36) [0]

У меня в окне выводиться 3 поля с информацией: название, дата, отправитель. Это выводиться используя TListView. Необходимо по выбору сортировать соответствующее поле. Каким образом это можно сделать используя TListView? Спасибо за ответ.


 
Anatoly P   (2002-10-12 23:16) [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;




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

Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.032 c
3-78215
vis79
2002-10-03 09:43
2002.10.24
DLL и QuickReport


8-78533
Карлсон
2002-06-28 00:07
2002.10.24
Про радар.


1-78344
Бильврёст
2002-10-07 11:05
2002.10.24
Вопрос о странном распределении памяти под приложение.


1-78361
Berg
2002-10-14 22:12
2002.10.24
Можно ли запихнуть какую-нибудь файл внутрь EXE файла и как?


6-78577
vitnt2000
2002-08-16 10:58
2002.10.24
Как программно поменять IP адрес?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский