Limpar Valor do TField no evento OnValidate
08/03/2010
0
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?
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?
Jerbeson Santana
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)