Изменить состояние нескольких CheckBox в цикле

@Sharkboy · Регистрация: 30.09.2013

Author24 — интернет-сервис помощи студентам

На форме размешены 18 CheckBox'ов и самым порнографическим способом им присваивается значение параметра Visible True

Delphi

CheckBox1.Visible:=False;
CheckBox2.Visible:=False;
CheckBox3.Visible:=False;
CheckBox4.Visible:=False;
CheckBox5.Visible:=False;
CheckBox6.Visible:=False;
CheckBox7.Visible:=False;
CheckBox8.Visible:=False;
CheckBox9.Visible:=False;
CheckBox10.Visible:=False;
CheckBox11.Visible:=False;
CheckBox12.Visible:=False;
CheckBox13.Visible:=False;
CheckBox14.Visible:=False;
CheckBox15.Visible:=False;
CheckBox16.Visible:=False;
CheckBox17.Visible:=False;
CheckBox18.Visible:=False;

По нажатию кнопки хочу сделать чтото типо счетчика

for I:=1 to 18 do
If CheckBox i .Visible=False then begin
и тут код

Так вот вопрос как же сделать так чтобы вместо i подставлялось значение от 1 до 18. Если просто написать Checkboxi.Visible То это само собой не правильно. Надеюсь обьяснил доступно

@northener · 24.04.2014, 02:32

Сообщение от Sharkboy

Так вот вопрос как же сделать так чтобы вместо i подставлялось значение от 1 до 18.

А обязательно нужно дать именно "порнографическое" решение?

@Sharkboy · 24.04.2014, 02:36 **[ТС]**

Сообщение от northener

А обязательно нужно дать именно "порнографическое" решение?

Любое сойдет

@krapotkin · 24.04.2014, 07:00

бывает так, что решение "в лоб" - самое подходящее для решения задачи.
здесь именно так.

вам же не кажется что это получше:

Delphi

for i:=0 to CheckBoxOwner.ComponentCount-1 do
begin
  if (CheckBoxOwner.ComponentCount[i] is TCheckBox) 
  and (CheckBoxOwner.ComponentCount[i].name.StartWith='CheckBox')
  and (strtointdef(copy(CheckBoxOwner.ComponentCount[i].name,9,2),0) in [1..18]) then
  begin
     (CheckBoxOwner.ComponentCount[i] as TCheckBox).visible := false;
  end;
end

@droider · 24.04.2014, 09:32

krapotkin, можно еще проще

Delphi

var i: Integer;
begin
for i :=0 to form1.ComponentCount-1 do begin
    if form1.Components[i].ClassNameIs('TCheckBox') then TCheckBox(form1.Components[i]).Visible :=False;
   end;
end;

@krapotkin · 25.04.2014, 06:08

droider,
не вижу разницы.
мой код просто полностью идентичен исходному за счет второго и третьего условий и использует "мягкое" приведение типов ))
если вчитаться, ТС просил не "все чекбоксы" а "с 1 по 18"

даже если там нет других...

@droider · 25.04.2014, 09:27

Сообщение от krapotkin

если вчитаться, ТС просил не "все чекбоксы" а "с 1 по 18"

а если еще внимательнее?

Сообщение от Sharkboy

На форме размешены 18 CheckBox'ов

о чем это говорит? Здесь не сказано" столько-то checkbox и только с 1 по 18 из них скрыть".
Если CheckBox'ов будет неизвестное количество, например, или больше 18, что тогда?

Сообщение от krapotkin

мой код просто полностью идентичен

Сообщение от krapotkin

не вижу разницы

очень жаль. Можно написать код навороченным, а можно проще.

@krapotkin · 25.04.2014, 10:08

смешной ты))

вопрос как же сделать так чтобы вместо i подставлялось значение от 1 до 18

DenNik · 25.04.2014, 10:13

Сообщение от krapotkin

смешной ты))

krapotkin, да потому что по условию 18 ЧБ, а если бы было 24, ТС написал бы "с 1 до 24". не будь занудой и не занимайся говонокодированием

@droider · 25.04.2014, 10:19

Сообщение от krapotkin

смешной ты))

Скорее наоборот.

Сообщение от krapotkin

вопрос как же сделать так чтобы вместо i подставлялось значение от 1 до 18

имеется в виду, как разом перебрать все 18 чекбоксов, имеющихся на форме и скрыть их, а не прописывать каждый чекбокс по отдельности!
Еще раз: чекбоксов может быть неизвестное количество или больше 18. Это надо учитывать!

@krapotkin · 25.04.2014, 10:37

приятно, телепаты вокруг ) я тоже хочу поиграть в вашу игру "имеется в виду"

имеется в виду, что настоящим неговонокодерам

было бы легко удалить ограничивающие условия

Delphi

1 2	and (CheckBoxOwner.ComponentCount[i].name.StartWith='CheckBox') and (strtointdef(copy(CheckBoxOwner.ComponentCount[i].name,9,2),0) in [1..18])

и чудесным образом код бы совпал...
не смогли

@droider · 25.04.2014, 10:43

Сообщение от krapotkin

было бы легко удалить ограничивающие условия

т.е. Вам проще повторно вносить изменения в код, чем предусмотреть возможные проблемы?
Тогда ладно. Практика всему научит.

Сообщение от krapotkin

телепаты вокруг

телепатом быть не нужно. Просто это очевидно.
Удачи!

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	24.04.2014, 02:32	2
	Сообщение от Sharkboy Так вот вопрос как же сделать так чтобы вместо i подставлялось значение от 1 до 18. А обязательно нужно дать именно "порнографическое" решение? 0

@Sharkboy 8 / 11 / 16 Регистрация: 30.09.2013 Сообщений: 90
	24.04.2014, 02:36 [ТС]	3
	Сообщение от northener А обязательно нужно дать именно "порнографическое" решение? Любое сойдет 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	25.04.2014, 06:08	6
	droider, не вижу разницы. мой код просто полностью идентичен исходному за счет второго и третьего условий и использует "мягкое" приведение типов )) если вчитаться, ТС просил не "все чекбоксы" а "с 1 по 18" даже если там нет других... 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	25.04.2014, 09:27	7
	Сообщение от krapotkin если вчитаться, ТС просил не "все чекбоксы" а "с 1 по 18" а если еще внимательнее? Сообщение от Sharkboy На форме размешены 18 CheckBox'ов о чем это говорит? Здесь не сказано" столько-то checkbox и только с 1 по 18 из них скрыть". Если CheckBox'ов будет неизвестное количество, например, или больше 18, что тогда? Сообщение от krapotkin мой код просто полностью идентичен Сообщение от krapotkin не вижу разницы очень жаль. Можно написать код навороченным, а можно проще. 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	25.04.2014, 10:08	8
	смешной ты)) вопрос как же сделать так чтобы вместо i подставлялось значение от 1 до 18 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	25.04.2014, 10:13	9
	Сообщение от krapotkin смешной ты)) krapotkin, да потому что по условию 18 ЧБ, а если бы было 24, ТС написал бы "с 1 до 24". не будь занудой и не занимайся говонокодированием 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	25.04.2014, 10:19	10
	Сообщение от krapotkin смешной ты)) Скорее наоборот. Сообщение от krapotkin вопрос как же сделать так чтобы вместо i подставлялось значение от 1 до 18 имеется в виду, как разом перебрать все 18 чекбоксов, имеющихся на форме и скрыть их, а не прописывать каждый чекбокс по отдельности! Еще раз: чекбоксов может быть неизвестное количество или больше 18. Это надо учитывать! 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	25.04.2014, 10:43	12
	Сообщение от krapotkin было бы легко удалить ограничивающие условия т.е. Вам проще повторно вносить изменения в код, чем предусмотреть возможные проблемы? Тогда ладно. Практика всему научит. Сообщение от krapotkin телепаты вокруг телепатом быть не нужно. Просто это очевидно. Удачи! 0