Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda Com Funções


luizf

Pergunta

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+

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...