Функция проверки заполнения полей

[DIMASIKXXX32]

Здравствуйте!

Возникла такая проблема написал такую функцию которая проверяет заполнено поле или нет

function CheckFill(Form:TForm):Boolean;
  var
    i: Integer;
  begin
    for i := 0 to Form.ComponentCount - 1 do
      if Form.Controls[i] is TEdit then
        if ((Form.Controls[i] as TEdit).tag = 1457)and(Trim((Form.Controls[i] as TEdit).Text) = EmptyStr) then
          begin
            ShowMessage('Не все поля со " * " заполнены');
            (Form.Controls[i] as TEdit).SetFocus;
            Abort;
          end
        else
          Result  :=  True;
  end;

как бы все ничего работает но когда добавил на форму компонент GroupBox, начала выскакивать ошибка list index out of bounds ()

Подскажите пожалуйста.

[Stilet]

ComponentCount

Ты пробегаешся по компонентам проекта в целом
А тут:

Form.Controls[i]

Учитывается только список контролов непосредственно лежащих на форме, без учета того что лежит в контейнерах типа GroupBox
Так что все Controls меняй на Components

[DIMASIKXXX32]

Сообщение от Stilet

Ты пробегаешся по компонентам проекта в целом
А тут:

Учитывается только список контролов непосредственно лежащих на форме, без учета того что лежит в контейнерах типа GroupBox
Так что все Controls меняй на Components

СПАСИБО ОГРОМНОЕ.

Блин я лохонулся конкретно. мучился час а такой ошибки даже не заметил.

[Stilet]

Ничего, Бывает )