Cómo obligo el ingreso de datos a todos los dbedits de un formulario?

[[Caral]]

Hola
Puedes hacer una prueba sencilla.
Coloca 3 edit y un boton en un form y pones este codigo al evento onclick del boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j:Integer;
  comp:TComponent;
begin
  for i := 1 to 3 do begin
    j := (i);
    comp := FindComponent('Edit' + IntToStr(j));
    If  TEdit(comp).Text = '' then
    begin
    showmessage('Falta llenar el edit'+IntToStr(j));
    end
    else
    // lo que sea
end;
end;

Corre el programa y deja un edit o varios en blanco.
Saludos

[ContraVeneno]

Yo le agregaría la función Trim... no vaya siendo que el usuario ponga espacios...

Código Delphi [-]
 If Trim( TEdit(comp).Text) = '' then

[[Caral]]

Hola
Muy cierto, bien pensado.
Saludos

[bigpeter80]

Bueno, como siempre agradezco mucho la rápida respuesta de todos y voy a ir probando las sugerencias dadas por todos, a ver si puedo lograr mi objetivo....

[Delfino]

Puedes poner la propiedad Requiered del Field asociado al DBEdit a True, o bien por el inspector de objectos o bien :

Código Delphi [-]
DBEdit.Field:Required := True;

[dec]

Hola,

Bueno, yo también quiero. Sobre todo para dejar claro que cuando antes hablaba de "Components" y "ComponentsCount", en realidad quería decir "Controls" y "ControlsCount". Por lo demás, el siguiente código intenta un objetivo muy parecido al que Caral ha escrito arriba:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  errors: string;
const
  MSG_SEPARATOR = #13#13;
  EMPTY_EDIT_MSG = '%s edit is empty';
begin
  errors := '';
  for i := 0 to EditsPanel.ControlCount - 1 do
  begin
    if (EditsPanel.Controls[i] is TEdit) then
    begin
      if (Trim(TEdit(EditsPanel.Controls[i]).Text) = EmptyStr) then
      begin
        if (errors = EmptyStr) then begin
          errors := Format(EMPTY_EDIT_MSG,
           [TEdit(EditsPanel.Controls[i]).Name]);
        end else begin
          errors := errors + MSG_SEPARATOR + Format(
           EMPTY_EDIT_MSG, [TEdit(EditsPanel.Controls[i]).Name]);
        end;
      end;
    end;
  end;
  if (errors <> EmptyStr) then begin
    ShowMessage(errors);
  end else begin
    ShowMessage('All edits contain values');
  end;
end;