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

Вниз

Как определить количество помеченных (checked) items в ListView?   Найти похожие ветки 

 
Yegorchic ©   (2006-07-11 10:23) [0]

Сабж.


 
zdm   (2006-07-11 10:29) [1]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListView1.Items.Count-1 do
 begin
     if    ListView1.Items.Item[i].Checked=true then ShowMessage(ListView1.Items.Item[i].Caption);
 end;

end;


 
zdm   (2006-07-11 10:30) [2]

ну это не кол-во ну я думаю смысл ты понял


 
zdm   (2006-07-11 10:31) [3]

procedure TForm1.Button1Click(Sender: TObject);
var i,y:integer;
begin
 y:=0;
 for i:=0 to ListView1.Items.Count-1 do
 begin
     if    ListView1.Items.Item[i].Checked=true then y:=y+1;
 end;
 ShowMessage(inttostr( y));
end;


 
Yegorchic ©   (2006-07-11 10:32) [4]

А, так то и я могу, но как раз хотелось бы что то типа ListView.Items.CheckedCount :-)


 
zdm   (2006-07-11 10:35) [5]

такого метода к сожалению нет,,,, а было бы неплохо так и в БД, например, SELECT count(*),id,....from.... но приходится все по отдельности,,,,Небо по прежнему голубое, вода мокрая, жизнь г...


 
Yegorchic ©   (2006-07-11 10:37) [6]

Точно нет? Ну ладно, тогда... буду делать через цикл...
Спасибо



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

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

Наверх




Память: 0.45 MB
Время: 0.011 c
1-1150532479
kaif
2006-06-17 12:21
2006.07.30
Перекомпиляция родных run-time пакетов (*.bpl) Delphi


15-1151468479
Dimmmonn
2006-06-28 08:21
2006.07.30
нужны сэмплы!


2-1152204491
dest81
2006-07-06 20:48
2006.07.30
Ibquery


15-1151572526
Жук
2006-06-29 13:15
2006.07.30
"Русский шоколад" в Иваново


4-1144649867
vodvorezlaya
2006-04-10 10:17
2006.07.30
Как запретить завершение процесса (программы)???





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский