Очень интересный вопрос :)

← →
INTENS (2002-07-31 19:31) [0]

Как сделать что-то наподобие такого:

If Image1..100.Visible = True Then

Чтобы не писать If (Image1.visible=true) and (Image2.visible=true) and (Image3.visible=true) … then …
Вот так вот :)

Заранее благодарен!

← →
Skier © (2002-07-31 19:32) [1]

>INTENS
TList ?

← →
INTENS (2002-07-31 19:38) [2]

А че это такое?
Мне бы пример как им пользоваться!
Заранее благодарен!

← →
DiamondShark © (2002-07-31 19:41) [3]

Вариант 1.

for i := 0 to ComponentCount do if Component[i] is TImage then (Component[i] as TImage).Visible := true;

Вариант 2.

var Tmp: TComponent; ... for i := 1 to NNN do begin Tmp := FindComponent("Image"+IntToStr(i)); if Tmp is TImage then (Tmp as TImage).Visible := true; end;

← →
INTENS (2002-07-31 19:44) [4]

Так мне не надо делать visible := true!!!
Мне надо проверить if visible=true then!!!

← →
nick_sniper © (2002-07-31 19:55) [5]

for i := 0 to ComponentCount do if Component[i] is TImage then if TImage(Component[i]).Visible then ...

← →
nick_sniper © (2002-07-31 19:57) [6]

Извини, правильно будет:

for i := 0 to ComponentCount-1 do if Component[i] is TImage then if TImage(Component[i]).Visible then ...

← →
INTENS (2002-07-31 20:28) [7]

Всем большое спасибо!!!

← →
INTENS (2002-07-31 20:40) [8]

Ах да, а можно ли как-то пропустить один Image, т. е. у меня допустим есть 100-тня компонентов Image, и нужно проверить все кроме скажем первых трех!

INTENS (31.07.02 20:40)
if Component[i].Name = ...
Или измени tag у TImage которые не нужны и включи его в проверку.

PS: А что все 100 TImage создавались в design-time?

Используй TImage(Component[i]).Name

Очень интересный вопрос :) Найти похожие ветки