check TEdit field

[DeddyH]

Another suggestion:

Delphi-Quellcode:

function DataComplete(const EditArray: array of TEdit): Boolean;
var
  i: integer;
begin
  Result := true;
  for i := Low(EditArray) to High(EditArray) do
    begin
      Result := trim(EditArray[i].Text) <> '';
      if not Result then
        break;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DataComplete([Edit1, Edit2, Edit3, Edit4, Edit5, Edit6]) then
    ShowMessage('All Edits are filled')
  else
    ShowMessage('At least one Edit is empty');
end;