Buscar por:

Campo com digitação obrigatória

Código

//função para verificar se os dbEdits requeridos pelo banco estão preenchidos corretamente

function verifDbEdit(form: TForm) : Boolean;

var

 i : integer;

 edt : TDBEdit;

 b : boolean;

begin

  b:= true;

  for i:= 0 to form.ComponentCount -1 do

   begin

     if form.Components[i] is TDBEdit then

      begin

       edt := TDBEdit(form.Components[i]);

        if edt.Field.Required then

         if edt.GetTextLen = 0 then

          begin

            b:= false;

            edt.SetFocus;

            ShowMessage('Campo '+ edt.Hint +' é Obrigatório');

            break;

          end;

      end;

   end;

   verifDbEdit := b;

end;