Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: 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 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-93527
Sasha Shamray
2004-01-17 23:24
2004.01.29
Передача в качестве параметра динамичесского массива


3-93335
Egorka
2004-01-04 10:30
2004.01.29
Можно ли в фильтре сделать условие с подстрокой?


1-93452
Alexander666
2004-01-16 09:31
2004.01.29
Компилятор


1-93528
RustamBek
2004-01-19 10:36
2004.01.29
Межстрочный интервал в TRichEdit


3-93403
Desdechado
2003-12-25 17:42
2004.01.29
странный пользователь, подключенный к БД