Ajuda Com Funções

[luizf]

Mas um ajudinha pessoal.

Se não for muito encomodo é claro.

Peguei esta função na net.

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.

T+

[Churc]

opa

Esta funcão te retorna se um número de CPF é válido, então você

deve utilizá-la da seguinte forma, exemplo:

if CPF(Edit1.text) then
begin
//aqui o código pra caso o CPF for válido
end
else
begin
//aqui o código pra caso o número CPF for inválido
end;

Então por exemplo, se você quiser que o usuário digite um CPF válido seria, exemplo:

if not CPF(Edit1.text) then
begin
Messagebox(Handle, 'O número do CPF digitado é inválido!'#13'Por favor corrija-o!', 'Erro', mb_ok or mb_iconerror);
Exit;
end;

abraço

[luizf]

Valeu Churc.

Vou fazer uns teste para dar um treino.

T+