0

У меня на форме расположено примерно 50 Edit'ов , 121 label и 36 Combobox . Как программно очистить их значения не перебирая каждый компонент по отдельности, ведь это очень глупо получиться ?

2
  • выдели их всех, повесь на них событие и удали содержимое, оно удалится на всех элементах 30 мая 2012 в 6:40
  • Мне не по событию нужно очищать их, а под определенным условием в программе.
    – zerpico
    30 мая 2012 в 6:51

1 ответ 1

5
for i:=0 to Form1.ComponentCount-1 do
begin
  if (Form1.Components[i] is TEdit) then TEdit(Form1.Components[i]).Text:='';
  if (Form1.Components[i] is TCombobox) then TCombobox(Form1.Components[i]).ItemIndex:=-1;
  if (Form1.Components[i] is TLabel) then TLabel(Form1.Components[i]).Caption:='';
end;
3
  • В принципе работает только одно НО. У меня на форме PageControl в них GroupBox. И очистилось только в первом боксе, т.е. в GroupBox1. Что не так ?
    – zerpico
    30 мая 2012 в 7:33
  • Массив Components формы содержит все компоненты формы. Может быть другие компоненты у вас там лежат... 30 мая 2012 в 8:29
  • все разобрался, ты все правильно написал, я просто сам ошибся когда перепечатывал у меня форма 12-ая а не первая.
    – zerpico
    30 мая 2012 в 8:34

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.