Fórum Problemas em Funções #234615

  Function Verifica_Campos_Em_Branco:boolean; 

  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

//Verifica campos em Branco 
Function TForm1.Verifica_Campos_Em_Branco:boolean; 
Begin 
  Result:=true; 
  For cont:=0 to Dsconecta.DatSet.FieldCount -1 do //verifica todos os campos 
    If Dsconecta.DatSet.Fields[cont].required then //verifica campo requerido 
      If (Dsconecta.DatSet.Fields[cont].isnull) or //verifica se é nulo. 
      (Dsconecta.DatSet.Fields[cont].asString=´´) then //verifica string vazia 
        Begin 
          MessageDlg(´Preencha o Campo "´+ dsconecta.dataset.fields[cont].displaylabel + 
                     ´"´,mtWarning,[mbOk],0,mbOk,nil); 
          Result:=false; 
          Break; //interrompe o for caso o campo esteje vazio 
        End; 
End;