Buscar por:

Valida Campos Vazios em ClientDataSet

Código

procedure TForm1.ValidaCampos(DataSet: TDataSet);

var campo : integer;

begin

  for campo := 0 to pred(DataSet.FieldCount) do

  begin

     if DataSet.Fields[campo].Required then

     begin

        if ((DataSet.Fields[campo].AsString = '')  or (DataSet.Fields[campo].AsInteger = 0)) then

        begin

          ShowMessage('Este campo está ' + DataSet.Fields[campo].DisplayLabel + ' vazio ou igual a zero');

          DataSet.Fields[campo].FocusControl;

          Abort;

        end;

     end;

  end;

end;