Como posso melhorar esta validaçao do CPF?
07/05/2003
0
Existem doi problemas aqui na checagem:
[color=darkblue:df230ec004]1º - Mesmo que eu digite um CPF inválido, ele me mostra a menssagem, mas não me obriga a corrigir, isto não pode acontecer![/color:df230ec004]
[color=darkblue:df230ec004]2º - Se eu deixar em Branco ele aceita sem me dar uma menssagem![/color:df230ec004]
Como posso acertar isso?
[color=red:df230ec004]procedure TForm1.MECPFChange(Sender: TObject);
var
sRet : String;
begin
if Length(MECPF.Text) = 11 then
begin
sRet := ValidCPF(MECPF.Text);
if sRet = ´´ then
//MessageDlg(´CPF Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´CPF Inválido.´,mtWarning,[mbOk],0);
MECPF.SelectAll
end;
end;[/color:df230ec004]
[color=darkblue:df230ec004]1º - Mesmo que eu digite um CPF inválido, ele me mostra a menssagem, mas não me obriga a corrigir, isto não pode acontecer![/color:df230ec004]
[color=darkblue:df230ec004]2º - Se eu deixar em Branco ele aceita sem me dar uma menssagem![/color:df230ec004]
Como posso acertar isso?
[color=red:df230ec004]procedure TForm1.MECPFChange(Sender: TObject);
var
sRet : String;
begin
if Length(MECPF.Text) = 11 then
begin
sRet := ValidCPF(MECPF.Text);
if sRet = ´´ then
//MessageDlg(´CPF Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´CPF Inválido.´,mtWarning,[mbOk],0);
MECPF.SelectAll
end;
end;[/color:df230ec004]
Wgm8
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)