Работа с несколькими объектами

← →
sashok (2004-01-16 19:34) [0]

У меня такой вапрос:
На форме например 10 полей ввода (edit1,edit2...edit10).
Чтобы мне их обнулить приходиться делать так:
edit1.text:="";
edit2.text:="";
...
edit3.text:="";
Вапрос заключается в том, как мне бы их в цикле обнулять (загнать в for и поочереди)?

← →
Тимохов (2004-01-16 19:37) [1]

Читай
1. Components
2. ComponentCount
3. Is

← →
Семен Сорокин (2004-01-16 19:39) [2]

for _i:=0 to Form1.ComponentCount-1 do if (Form1.Components[_i] is TEdit) {можешь еще условие поставить, например and (TEdit(Form1.Components[_i]).Tag = 1)} then TEdit(Form1.Components[_i]).Text := EmptyStr;

← →
Юрий Зотов (2004-01-16 19:40) [3]

У компонентов, которые нужно очищать разом, проставьте Tag=1 и напишите следующее:

for i := 0 to ComponentCount - 1 do
if (Components[i] is TEdit) and (Components[i].Tag = 1) then
TEdit(Components[i]).Text := "";

Если нужно очищать ВСЕ лежащие на форме Edit"ы, то Tag можно не ставить (тогда второе условие в if надо убрать).

← →
sashok (2004-01-16 19:46) [4]

Пасиба

Работа с несколькими объектами Найти похожие ветки