[starcon]

Помогите разобраться с проверкой .

Есть девять Edit , нужно проверить все на пустоту и если хоть в одном Edit есть данные , тогда выполнить процедуру.

Благодарю

[starcon]

СПС разобрался

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='') and (edit2.text='') and (edit3.text='') and (edit4.text='') and (edit5.text='') and (edit6.text='') and (edit7.text='') and (edit8.text='') and (edit9.text='') and (edit10.text='') then
begin
if MessageDlg('Вы не ввели ни одного параметра, продолжить???', mtConfirmation, [mbOk, mbCancel], 0) = mrOK then qwe;
end
else
begin
qwe;
end;
end;
procedure qwe;
begin
showmessage('hello');
end;

[lmikle]

1. Еще желательно Trim делать.
2. Можно их, едиты, циклом искать

Код:

var
  I : Integer;
  c : Integer;
  edit : TEdit;
begin
  c := 0;
  For I := 1 To 9 Do
  begin
    edit := FindComponent('Edit'+IntToStr(I)) As TEdit;
    if edit <> Nil Then
      if trim(edit.Text) = '' Then inc(c);
  end;

  if c = 9 Then
    if MessageDlg('Вы не ввели ни одного параметра, продолжить???', mtConfirmation, [mbOk, mbCancel], 0) <> mrOK Then exit;

   qwe;
end;