Limpar Valor do TField no evento OnValidate

08/03/2010

2

Tenho o seguinte  Código:

Procedure cds1CPFValidate(sender:TField);
var
  Msg : String;
begin
  if (not ChecaCPF(sender.asString)) then
    try
      Msg := 'CPF Inválido';
      raise exception.create(Msg);
    except
      // LIMPAR o DBEdit  
    end;
end;


Como faço para limpar o conteúdo do DBEdit?
Já tentei:
- sender.Clear;
- DbEdit1.Clear;
- cds1CPF.Clear;     
- sender.AsString := '';
- DbEdit1.Text := '';
- cds1CPF.AsString := '';
- cds1.FieldByName('CPF').AsString := '';

E nada Funciona. Preciso deixar o DBEdit do CPF em branco se o CPF for inválido.

Alguém pode me ajudar?
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar