скрыть скрыть
Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
Для этого можно воспользоваться следующим кодом:
procedure ClearEdits; var i: Integer; begin for i := 0 to ComponentCount - 1 do if (Components[i] is TEdit) then (Components[i] as TEdit).Text := ''; end;