Obrigado Mauricio. Você ajudou bastante.
Agora compreendo como funciona o MOD. Cleiton ***** ----- Original Message ----- From: "Voyager Informática Ltda." <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Thursday, August 18, 2005 1:39 PM Subject: RES: [delphi-br] Função Mod MOD é um operador matemático, tal qual o "+" e o "-", e retorna o resto de uma divisão por inteiros. Por exemplo, o resultado de 5 / 2 é 2,5 (divisão real). Já 5 DIV 2 retorna 2 (divisão inteira) e 5 MOD 2 retorna 1 (resto da divisão por inteiro). Dê uma olhada no help do Delphi para maiores explicações. Espero ter explicado de forma didática... Mauricio. _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cleiton Enviada em: quinta-feira, 18 de agosto de 2005 13:31 Para: Delhpi Assunto: [delphi-br] Função Mod Função Mod Utilizo em meu sistema uma função pra validar cpf que utiliza um comando chamado MOD. No entanto eu não entendi muito bem qual a finalidade desse comando 'mod'. Alguém poderia me auxiliar no entendimento desse comando por mim descohecido? Abaixo segue na integra a função que utilizao pra validar cpf. numero:= DBcpf.text; n1:=StrToInt(numero[1]); n2:=StrToInt(numero[2]); n3:=StrToInt(numero[3]); n4:=StrToInt(numero[5]); n5:=StrToInt(numero[6]); n6:=StrToInt(numero[7]); n7:=StrToInt(numero[9]); n8:=StrToInt(numero[10]); n9:=StrToInt(numero[11]); 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:=numero[13]+numero[14]; if calculado <> digitado then begin MessageBox (Application.Handle, pchar ('O CPF Digitado Está Incorreto'), 'ATENÇÃO', MB_DEFBUTTON1); DBcpf.setfocus; exit; end; [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
