| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

INTENS ©   (2002-07-31 19:31:00) 

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

If Image1..100.Visible = True Then

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

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

---

nick_sniper   (2002-07-31 21:14:00) [1]

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

---

TTCustomDelphiMaster   (2002-07-31 21:12:00) [2]

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

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

---

INTENS   (2002-07-31 20:40:00) [3]

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

---

INTENS   (2002-07-31 20:28:00) [4]

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

---

nick_sniper   (2002-07-31 19:57:00) [5]

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

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

---

nick_sniper   (2002-07-31 19:55:00) [6]

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

---

INTENS   (2002-07-31 19:44:00) [7]

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

---

DiamondShark   (2002-07-31 19:41:00) [8]

Вариант 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:38:00) [9]

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

---

Skier   (2002-07-31 19:32:00) [10]

>INTENS
TList ?

---

Наверх