Edit1...Editx - как обратиться к нужному компоненту?

← →
guest_Dmitry (2003-11-09 07:31) [0]

На форме имеется порядка 40 Edit"ов.
Можно ли в цикле обратиться к нужному компоненту, напрмер
Edit[i].visible := false??
Заранее благодарен.

← →
Dmitry (2003-11-09 08:04) [1]

Задай для удобства каждому едиту свойство Tag равное его номеру, по нему и будешь искать.
А дальше:
for i:=0 ComponentCount-1 do if Components[i] is TEdit then if (Components[i] as TEdit).Tag="здесь нужный номер" then (Components[i] as TEdit).Visible:=False;

← →
Dmitry (2003-11-09 08:06) [2]

P.S. А вобще в качестве параметра для поиска можешь использовать все что угодно: цвет, размеры, имя и т.д.

← →
Viktor Kushnir © (2003-11-09 08:12) [3]

Строку (Components[i] as TEdit). можно упростить до TEdit(Components[i]).

← →
Anatoly Podgoretsky © (2003-11-09 10:45) [4]

guest_Dmitry (09.11.03 07:31)
Что бы так обращаться требуется создать массив Edit

← →
guest_Dmitry (2003-11-09 10:55) [5]

Спасибо всем.
Получилось как подсказал Viktor Kushnir:
TEdit(Components[i]).Visible := false

← →
Anatoly Podgoretsky © (2003-11-09 10:59) [6]

Чрезвычайно опасное решение, было же более менее безопасное (Components[i] as TEdit).

← →
guest_Dmitry (2003-11-09 11:02) [7]

Чем грозит такое решение?

Многим, например крахом программы. Такое можно делать только в случае когда имеется твердая уверенность, что Components[i]) совместим с TEdit, то есть либо он сам либо наследник.

← →
guest_Dmitry (2003-11-09 11:11) [9]

Ясно, попробую использовать другой вариант.

Edit1...Editx - как обратиться к нужному компоненту? Найти похожие ветки