Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.55 MB
Время: 0.043 c