function CPF(Num: String): Boolean;
var
Temp: Integer;
Numero: String;
n: array [1..9] of Integer;
d: array [1..2] of Integer;
begin
Numero:='';
for Temp:=1 to 14 do if Num[Temp] in ['0'..'9'] then Numero:=Numero+Num[Temp];
for Temp:=1 to 9 do n[Temp]:=StrToInt(Numero[Temp]);
d[1]:=n[9]*2+n[8]*3+n[7]*4+n[6]*5+n[5]*6+n[4]*7+n[3]*8+n[2]*9+n[1]*10;
d[1]:=11-(d[1] mod 11);
if d[1]>=10 then d[1]:=0;
d[2]:=d[1]*2+n[9]*3+n[8]*4+n[7]*5+n[6]*6+n[5]*7+n[4]*8+n[3]*9+n[2]*10+n[1]*11;
d[2]:=11-(d[2] mod 11);
if d[2]>=10 then d[2]:=0;
if IntToStr(d[1])+IntToStr(d[2])=Numero[10]+Numero[11] then CPF:=True else CPF:=False;
end;
Mas, como sou iniciante, não sei como utiliza-la.
Por exemplo, coloco um edit e um button.
No evento onclick do button devo chamar a função, acho que assim:
CPF edit1.text;
Fiz isso, não deu nenhum erro, mas tambem não tive nenhuma resposta.
Por favor me digam como devo fazer para chamar uma função e/ou procedure (acredito que para chamar, seja do mesmo modo para as duas, só o retorno que é difernte), sendo esta ou outra função.
Muito obrigado pela atenção e felicidades a todos.
Pergunta
luizf
Mas um ajudinha pessoal.
Se não for muito encomodo é claro.
Peguei esta função na net.
Mas, como sou iniciante, não sei como utiliza-la.
Por exemplo, coloco um edit e um button.
No evento onclick do button devo chamar a função, acho que assim:
CPF edit1.text;
Fiz isso, não deu nenhum erro, mas tambem não tive nenhuma resposta.
Por favor me digam como devo fazer para chamar uma função e/ou procedure (acredito que para chamar, seja do mesmo modo para as duas, só o retorno que é difernte), sendo esta ou outra função.
Muito obrigado pela atenção e felicidades a todos.
T+
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.