Как подсчитать кол-во заполненых ComboBox'ов - Общие вопросы Delphi

chex01 · 30.03.2011, 15:54

Как подсчитать сколько заполнено КомбоБоксов?

phomm · 30.03.2011, 17:03

зависит от стиля, style, если dropdownlist - то выбранный itemindex <> -1, ну >=0 и значит ничего что-то выбрано иначе нет, незаполнено.
а для всех остальных (вроде всех) заполненность определяется свойством text, если пуст, то text='' , иначе заполнен.
думаю, и наоборот задействовать можно, но там могут быть подводные камни.

пробежаться по всем комбобоксам, причем этот код должен быть вставлен в метод формы (т.е. например, procedure tform1.button1click(sender: TObject); )

Код:

for i := 0 to componentcount-1
  do if sender is tcombobox
    then ...// то , что Вам надо, условие и подсчет

Stilet · 30.03.2011, 17:15

Цитата:

do if sender is tcombobox

Код:

do if (sender is tcombobox) and (TCombobox(Sender).Text<>'') then...

chex01 · 30.03.2011, 23:55

А Вы не могли бы расписать поподробнее, до меня туго доходит(
как после THEN произвести подсчет?

chex01 · 06.04.2011, 14:27

плиз хелпми...

Don Karleone · 06.04.2011, 14:36

Count: Integer;

после then пишешь Inc(Count), что означает увеличить значение переменной Count на 1. После того, как пробежишься по всем ComboBox'ам в Count будет кол-во незаполненных. Перед началом проверки всех ComboBox'ов переменную Count нужно обнулить.

30.03.2011, 15:54	#1
chex01 Пользователь Регистрация: 06.03.2011 Сообщений: 31	Как подсчитать кол-во заполненых ComboBox'ов Как подсчитать сколько заполнено КомбоБоксов?

30.03.2011, 17:03	#2
phomm personality Старожил Регистрация: 28.04.2009 Сообщений: 2,882	зависит от стиля, style, если dropdownlist - то выбранный itemindex <> -1, ну >=0 и значит ничего что-то выбрано иначе нет, незаполнено. а для всех остальных (вроде всех) заполненность определяется свойством text, если пуст, то text='' , иначе заполнен. думаю, и наоборот задействовать можно, но там могут быть подводные камни. пробежаться по всем комбобоксам, причем этот код должен быть вставлен в метод формы (т.е. например, procedure tform1.button1click(sender: TObject); ) Код: `for i := 0 to componentcount-1 do if sender is tcombobox then ...// то , что Вам надо, условие и подсчет` My projects (Mirror) github telegram Последний раз редактировалось phomm; 30.03.2011 в 17:05.

30.03.2011, 23:55	#4
chex01 Пользователь Регистрация: 06.03.2011 Сообщений: 31	А Вы не могли бы расписать поподробнее, до меня туго доходит( как после THEN произвести подсчет? Последний раз редактировалось chex01; 31.03.2011 в 08:51.

06.04.2011, 14:36	#6
Don Karleone Форумчанин Регистрация: 05.04.2010 Сообщений: 410	Count: Integer; после then пишешь Inc(Count), что означает увеличить значение переменной Count на 1. После того, как пробежишься по всем ComboBox'ам в Count будет кол-во незаполненных. Перед началом проверки всех ComboBox'ов переменную Count нужно обнулить. ICQ: 593-013-807

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как подсчитать кол-во правильных ответов?delphi	tatiana74	Помощь студентам	6	11.02.2010 11:47
Как заполнить несколько ComboBox'ов?	tns-ka	Microsoft Office Excel	4	24.12.2009 21:08
макрос - подсчитать для каждой строки кол-во ячеек с «+», кол-во ячеек с «-»	Vadim_abs	Microsoft Office Excel	36	14.07.2009 12:08
подсчитать кол-во букв	Naposaram	Общие вопросы Delphi	3	10.03.2009 16:17
подсчитать кол-во гласных	FireHawK	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	2	22.11.2008 19:22

06.04.2011, 14:27	#5
chex01 Пользователь Регистрация: 06.03.2011 Сообщений: 31	плиз хелпми...