Как можно в 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 (ну или другое число).

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

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