Главная страница
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.013 c
4-93743
Xtz
2003-11-21 20:34
2004.01.29
Дать окну св-во


14-93661
@ndrey
2004-01-08 01:20
2004.01.29
Знатоки, есть ли Винда ХР Server?


3-93333
Brain Force
2004-01-04 14:00
2004.01.29
Помогите с DBGrid


1-93530
ИМХО
2004-01-18 01:40
2004.01.29
Недопустимые символы в названии файла


1-93471
ГС ТОФ
2004-01-18 12:00
2004.01.29
Работа со слоями