Existe uma coisa muito "interessante" no Delphi chamada Help.
Aperte F1 em cima do comando que vc quer procurar, que irá irá aparecer::
"The mod operator returns the remainder obtained by dividing its operands.
In other words, x mod y = x - (x div y) * y."
Abraços,
Eduardo RC Neto
Desenvolvimento de Sistemas
-------------------------------------------------------
Archive ISP - Rio de Janeiro - RJ
[EMAIL PROTECTED]
www.archive.com.br
-------Mensagem original-------
De: Cleiton
Data: 08/18/05 13:47:21
Para: Delhpi
Assunto: 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;
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
