Пробежаться по всем Edit'aм в Panel

[welcomeTo]

Здравствуйте, подскажите, пожалуйста что я делаю не так?
Необходимо проверить то что поля TEdit заполнены

//проверяем поля на непустые значения
  for i:=1 to (Panel1.ControlCount) do
  begin
    if (Panel1.Components[i] is TEdit)  then begin
      if (Length((Form1.Components[i] as TEdit).Text) < 2) then begin
        ShowMessage('Çàïîëíèòå âñå ïîëÿ');
        exit;
      end;
    end;
  end;

[Alex11223]

А что не так? Не компилится? Или не работает?

А зачем во вложенном if exit?

[welcomeTo]

Ошибка:
http://file.qip.ru/photo/N3joyNSZ/вав.html ( 36,29 Кб )

А зачем во вложенном if exit?

надо сделать выход из процедуры

[Zer0]

цикл измените на
for i:=0 to Panel1.ControlCount-1
это раз
во вторых - если создавали Edit'ы не динамически, а в редакторе (а судя по ошибке так и есть), то таким способом ничего не выйдет, надо просматривать компоненты формы, а не панели. Ну либо Owner'а у этих Edit'ов в программе поменять

[evg_m]

цикл измените на
for i:=0 to Panel1.ControlCount-1
это раз

ту тогда два это
Panel1.Controls[i] is TEdit
и нет проблемы

Panel1.Components[i] is TEdit)

поскольку parent уже правильный.

Вместо Exit (выход из процедуры) внороятно надо было break (прервать цикл)?

pane1.compont[i] <> form1.component[i]
если проверяем тип panel1.componentw, то и дальше надо работать с ним же, а не браться за form1.components.