Скачать: CL | DM;

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

← →
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]

Пасиба

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c