Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Edit.Text?   Найти похожие ветки 

 
Эрик   (2002-10-12 09:37) [0]

Как обнулить значения Text всех Edit"ов сразу в обход:
Edit1.Text:="";
Edit2.Text:="";
Edit3.Text:=""; ?


 
Алексей Ким ©   (2002-10-12 09:47) [1]

for i := 0 to form1.ControlCount-1 do
TEdit(form1.Controls[i]).Text := "";
это очистит все, выставляй поле tag и проверяй перед очисткой


 
Алексей Ким ©   (2002-10-12 09:48) [2]

поправка - почти все


 
lammoth   (2002-10-12 10:43) [3]

тогда уж так:

var
pControl: TControl;
begin
with formMain do
for i := 0 to ControlCount - 1 do
begin
pControl := Controls[i];
if pControl is TEdit then
TEdit(pControl).Text := "";
end;
end;


 
Song ©   (2002-10-12 11:09) [4]

For t:=1 to 3 Do TEdit(FindComponent("Edit"+IntToStr(t))).Clear;



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
3-78260
Nikitenko
2002-10-02 11:10
2002.10.24
ADO


6-78573
ППавел
2002-08-23 12:10
2002.10.24
Поговорим о почте....


14-78636
delta
2002-10-03 18:22
2002.10.24
Киньте свежых анекдотцев. Тема произвольная...


1-78505
Alex_12
2002-10-13 17:10
2002.10.24
Про StringGrid


14-78612
Artemkin
2002-10-03 11:47
2002.10.24
Плиз, подскажите где взять компоненту для работы с архивами.