Заполнение edit

[Михаил Юрьевич]

На форме 20 edit , нужно по условию что когда во всех есть текст, сделать активной кнопку,
как проверить 20 edit ?
Не писать же для каждой условие

[WinCoder]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do
    begin
      if (Components[i].ClassName = 'TEdit') and
        ((Components[i] as TEdit).Text = '') then
          begin
            ShowMessage(Components[i].Name + ' пуст');
            Exit;
          end;
    end;
  ShowMessage('Все эдиты заполнены. Можно показать буттон');
end;

[Михаил Юрьевич]

Спасибо пригодиться! Только если на форме будет edit который вообще не относиться к 20 edit , то тогда и его надо заполнять?

[WinCoder]

Вы сами ответили на свой вопрос.

[Аватар]

то тогда и его надо заполнять

Не надо. Запиши в Tag тех, которые нужно заполнять чего-то особенное, 1, например. А в цикле проверяй только те, у которых значение Tag-а равно той пресловутой единичке

[Михаил Юрьевич]

Сообщение от Аватар

Не надо. Запиши в Tag тех, которые нужно заполнять чего-то особенное, 1, например. А в цикле проверяй только те, у которых значение Tag-а равно той пресловутой единичке

Спасибо! То что надо!