Fórum Mask Edit para CPF, onde errei? #155588
25/04/2003
0
Vejam esta rotina para validar o CPF..., queria que ele valida-se o CPF no momento em que digito o último digito, mas aqui ele está validando no momento em que eu digito o primeiro digito, onde errei?
procedure TForm1.MECPFChange(Sender: TObject);
var
sRet : String;
begin
sRet := ValidCPF(MECPF.Text);
if sRet = ´´ then
MessageDlg(´CPF Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´CPF Inválido. Valida com ´ + #13 + sRet,mtWarning,[mbOk],0);
MECPF.SelectAll
end;
procedure TForm1.MECPFChange(Sender: TObject);
var
sRet : String;
begin
sRet := ValidCPF(MECPF.Text);
if sRet = ´´ then
MessageDlg(´CPF Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´CPF Inválido. Valida com ´ + #13 + sRet,mtWarning,[mbOk],0);
MECPF.SelectAll
end;
Wgm8
Curtir tópico
+ 0
Responder
Posts
25/04/2003
Isadora
procedure TForm1.MECPFChange(Sender: TObject);
var
sRet : String;
begin
[color=red:46dec4fc2a]if Length(MECPF.Text) = 11 then
begin[/color:46dec4fc2a]
sRet := ValidCPF(MECPF.Text);
if sRet = ´´ then
Espero que funcione.
Abraços,
[img:46dec4fc2a]http://www.ona.hpg.com.br/ona/IsadoraOzeiaOna_10.jpg[/img:46dec4fc2a]
Isadora.
var
sRet : String;
begin
[color=red:46dec4fc2a]if Length(MECPF.Text) = 11 then
begin[/color:46dec4fc2a]
sRet := ValidCPF(MECPF.Text);
if sRet = ´´ then
Espero que funcione.
Abraços,
[img:46dec4fc2a]http://www.ona.hpg.com.br/ona/IsadoraOzeiaOna_10.jpg[/img:46dec4fc2a]
Isadora.
Responder
Gostei + 0
25/04/2003
Wgm8
:P Valeu parceira deu certinho, mui obrigado!
Até mais...
Até mais...
Responder
Gostei + 0
25/04/2003
Dor_poa
puxa... me apaixonei pela foto da isadora....... :lol:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)