Porque vc já não valida se o cpf é valido?
Por exe: //procedure para que só deixe digitar números.... procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in['0'..'9',Chr(8)]) then Key:= #0; end; //função para verificar se o CPF é valido... uses SysUtils; function cpf(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); if d1>=10 then d1:=0; d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); if d2>=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[10]+num[11]; if calculado=digitado then cpf:=true else cpf:=false; end; Ats... Valdir _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Enviada em: quinta-feira, 30 de novembro de 2006 16:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Validação mais inteligente if (cpf <> '00000000000')and(cpf <> '11111111111')and(cpf <> '22222222222') and(cpf <> '33333333333')and(cpf <> '44444444444')and(cpf <> '55555555555') and(cpf <> '66666666666')and(cpf <> '77777777777')and(cpf <> '88888888888') and(cpf <> '99999999999')then galera tenho uma validação de CPF e tive que colocar esse codigo acima também existe uma forma de validação...usando expressão regular..ou algo melhor do que o acima...? qq sugestão é bem vinda. abs. Rodrigo Mota. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
