VPF::CheckBox - Форум программистов

Mde

Дата 18.11.2005, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 15.11.2004
Где: Азов, Ростовской области

Репутация: нет
Всего: нет

Есть 12 CheckBox т.е CheckBox1..CheckBox12
Как сделать похожее на вот это

Код

For i:=1 to 12 do
Begin
If CheckBox[i]. Cheked Then...
End;

Каким образом можно при помощи цикла перебрать все 12 CheckBox'ов и можно ли вообще?

Заранее спасибо за ответы smile

Это сообщение отредактировал(а) p0s0l - 18.11.2005, 23:47

<Spawn>

Дата 18.11.2005, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Если на форме только эти CheckBox-ы, то

Код


for i := 0 to ComponentCount - 1 do
  if (Components[i] is TComboBox) and TComboBox(Components[i]).Checked then ...

В противном случае можно, допустим, использовать свойство Tag и добавить проверку на него в код, либо создать список обьектов, например, на основе TList, что будет работать быстрее при его обработке нежели вышеприведенный код.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Mde

Дата 19.11.2005, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

У меня на этой форме есть еще компоненты как тогда? Если можно то с примером?

FRAGNATIC

Дата 19.11.2005, 01:59 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Mde
точно также
по другому немного надо будет если у тебя эти чекбоксы будут лежать например на TPanel или ещё чём)

Poseidon

Дата 19.11.2005, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Можно и так

Код

var
i: integer;
begin
for i:=0 to ControlCount-1 do
  if controls[i] is TCheckBox and TCheckBox(controls[i]).Cheked
  then ...
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

EDuard

Дата 19.11.2005, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 331
Регистрация: 1.8.2005
Где: Синее нигде

Репутация: 2
Всего: 7

Можно создать эти checkbox'ы динамически в массиве, а потом перебирать тоже в массиве.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »