| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно в 20 компонентах edit обнулить text?
svt © (2006-09-06 17:12:00)По очереди это понятно, а вот в цикле как это сделать?
default (2006-09-06 18:25:00) [1]если не все едиты надо обнулять, то лучше сначала Tag проверять
Ega23 (2006-09-06 17:34:00) [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 (ну или другое число).
Джо (2006-09-06 17:13:00) [3]> По очереди это понятно, а вот в цикле как это сделать?
У TForm есть индексное свойство Components и ComponentCount.
| |
