Обнуление текста во всех Edit'ax - Помощь студентам

welcomeTo · 12.04.2011, 15:01

Здравствуйте. Подскажите как обнулить текст во всех Edit содержащихся на форме. т.е. через цикл пробежаться по всем компонентам as TEdit. Как то давно делал, сейчас запамятовал, код найти не могу

SERG1980 · 12.04.2011, 15:14

Код:

for i:= 0 to ComponentCount- 1 do
 if components[i] is TEdit then (Components[i] as TEdit).Clear

welcomeTo · 12.04.2011, 23:13

С п асибо!)

12.04.2011, 15:01	#1
welcomeTo Пользователь Регистрация: 27.05.2010 Сообщений: 43	Обнуление текста во всех Edit'ax Здравствуйте. Подскажите как обнулить текст во всех Edit содержащихся на форме. т.е. через цикл пробежаться по всем компонентам as TEdit. Как то давно делал, сейчас запамятовал, код найти не могу

12.04.2011, 15:14	#2
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Код: `for i:= 0 to ComponentCount- 1 do if components[i] is TEdit then (Components[i] as TEdit).Clear`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
обнуление	kuzjaca	Microsoft Office Access	7	24.02.2011 10:03
Обнуление массива.	yali	Общие вопросы C/C++	1	26.10.2010 03:25
Обнуление генератора	Lokos	БД в Delphi	5	04.10.2010 12:07
Как изменить цвет текста всех компонентов на форме	s2dentishe	Помощь студентам	2	09.01.2010 17:29
Обнуление катриджа.	Xeon332	Компьютерное железо	2	11.05.2009 07:37

12.04.2011, 23:13	#3
welcomeTo Пользователь Регистрация: 27.05.2010 Сообщений: 43	С п асибо!)