[avis_rara]

Добрый день, не хотелось создавать новую тему, но не нашел ничего общего с моим вопросом.
У меня есть много элементов Shape. И при определенных условиях мне нужно им всем менять цвета. Но для каждого прописывать отдельно это очень долго и не красиво....
как обращаться к ним?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

if {условие1} then begin   for j:=1 to 50 do   begin     Shape[j].Brush.Color:= clMoneyGreen; // ну это ест-но не работает   end else begin   for j:=1 to 50 do   begin    Shape[j].Brush.Color:= clLime;   end; end;

Как такое организовать?

[phomm]

Код:

1 2 3 4 5 6

for I := 0 to ComponentCount - 1 do   if Components[i] is TShape then     if {условие} then       TShape(Components[i]).Color := clMoneyGreen     else       TShape(Components[i]).Color := clLime;

Примерно так (условие тоже в цикл перенёс, т.к. это тоже некрасиво и неправильно, когда для проверки условия вы делаете 2 цикла)
а ещё лучше если Вы эти шейпы нагенерировали (поиск: динамическое создание компонентов), и сложили в некий контейнер, например массив, и пробегаться в цикле надо будет только по нему, а не по свойству-массиву формы для компонентов, коих может быть много левых.

Что пишете ? если игру или какую динамическую графику, то лучше сразу откажитесь от шейпов и переходите на записи/объекты с прорисовкой на канвас.

[avis_rara]

Спасибо большое!
"(условие тоже в цикл перенёс, т.к. это тоже некрасиво и неправильно, когда для проверки условия вы делаете 2 цикла)" - это я для наглядности так сделал=)

"а ещё лучше если Вы эти шейпы нагенерировали (поиск: динамическое создание компонентов), и сложили в некий контейнер, например массив, и пробегаться в цикле надо будет только по нему, а не по свойству-массиву формы для компонентов, коих может быть много левых.
" - у меня эти "шейпы" выполняют роль button-ов, на каждый есть обработчик и соответственно при нажатии на каждый я изменяю цвет, чтоб было понятно вкл/выкл. Но иногда программа сама должна изменять состояние кнопок (долго расписывать) и она изменяет - все работает но цвет... Но в обеих случаях отдельно прописывать каждый раз (напр.) Shape32.Brush.Color:= clLime туповато...))) но, увы, не знал как такое сделать. Я только учусь...
Спасибо Вам БОЛЬШОЕ!

[Alegun]

Можно ещё по имени обращаться, если они по-порядку идут

Код:

1 2	for i := 1 to 9 do   (FindComponent('Shape' + IntToStr(i)) as TShape).Color:= clMoneyGreen;

[avis_rara]

не работает
По идее это условие не выполняется

Код:

1	if Components[i] is TShape then

Так как программа на него никак не реагирует...
А если пробую напрямую подставлять

Код:

1	(FindComponent('Shape' + IntToStr(i)) as TShape).Brush.Color:= clMoneyGreen;

Компилирует, но при работе программы когда доходит до этого места выдает ошибку.
По сути в обеих случаях одно и то же.
Что может быть?

[avis_rara]

Не знаю что случилось.... Ничего не изменял заработало
Спасибо всем.