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

Вниз

Как можно в 20 компонентах edit обнулить text?   Найти похожие ветки 

← →
svt   (2006-09-06 17:12) [0]

По очереди это понятно, а вот в цикле как это сделать?

---

← →
Джо ©   (2006-09-06 17:13) [1]

> По очереди это понятно, а вот в цикле как это сделать?

У TForm есть индексное свойство Components и ComponentCount.

---

← →
Ega23 ©   (2006-09-06 17:34) [2]

for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit) then
 if TEdit(Components[i]).Tag=1 then
  TEdit(Components[i]).Text:="";

Если на форме только 20 едитов и все надо обнулить, то проверка   if TEdit(Components[i]).Tag=1 then не нужна.
Если их больше 20, а обнулить надо только у 20, то этим 20 в дизайн-тайме прописываешь свойство Tag=1 (ну или другое число).

---

← →
default ©   (2006-09-06 18:25) [3]

если не все едиты надо обнулять, то лучше сначала Tag проверять

---

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

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

Наверх

Память: 0.47 MB
Время: 0.029 c