Buscar

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;

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 25/08/10
Por: Jander Guedes Alberice
Visualizada: 5856 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009