Как нибудь попроще

[uraura]

Подскажите как упростить такую проверку?
проверка введен ли текст во все поля
if Length (Edit1.Text) = 0 then begin
ShowMessage('Введите текст1');
Edit1.SetFocus;
end
else if Length (Edit2.Text) = 0 then begin
ShowMessage('Введите текст2');
Edit2.SetFocus;
end
else if Length (Edit3.Text) = 0 then begin
ShowMessage('Введите текст3');
Edit3.SetFocus;
end
else .... и т.д.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[W0LF]

var
  i: integer;
begin
  for i := 1 to 3 do // от Edit1 до Edit3
    if Length((FindComponent('Edit' + IntToStr(i)) as TEdit).Text) = 0 then begin
      ShowMessage('Введите текст' + IntToStr(i));
      (FindComponent('Edit' + IntToStr(i)) as TEdit).SetFocus;
      break;
    end;
end;

[uraura]

спасибо! плюс поставил,
а как быть если на форме нужно проверить не только едиты но и едитбоксы?

[zumm]

точно так же, только вместо

as TEdit

нужно

as TEditBox

Ну и имя подправить, естественно...