RES: [delphi-br] função mod
while not Qrycons.Eof do
Begin
If ((Qryconstotal mod 30)=0)
then Begin
showmessage ('ok');
end;
end;
Tente a sintaxe acima. Deve resolver
Abraços
Marco Aurélio
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de leo rodrigues
Enviada em: quinta-feira, 16 de fevereiro de 2006 10:14
Para: grupo delphi
Assunto: [delphi-br] função mod
estou com a seguinte sintaxe:
while not Qrycons.Eof do
Begin
If mod((Qryconstotal)/30)=0
then Begin
showmessage ('ok');
end;
end;
esta dando esta mensagem
[Error] Unit1.pas(42): Expression expected but 'MOD' found
no help não traz nenhum exemplo de sintaxe
o que estou fazendo de errado?
-
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
http://br.ard.yahoo.com/SIG=12f02cu7a/M=396547.7942355.8808049.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1140102867/A=3291957/R=2/SIG=154bf6ok5/*http:
/lt.dell.com/lt/lt.aspx?CID=11305LID=309989DGC=BADGSeg=DHSDURL=http://ww
w1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3
ddhs
http://br.i1.yimg.com/br.yimg.com/i/br/ads7/100206_y300x250feb10_dhs_dim515
0.gif
_
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]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do http://br.yahoo.com/info/utos.html Yahoo!.
[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]
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
RES: [delphi-br] função mod
Mod é um operador aritmético e não uma função.
Já tentou algo deste tipo:
while not Qrycons.Eof do
Begin
If (Qryconstotal.FieldByName(nome do campo).AsInteger mod 30) = 0 then
showmessage ('ok');
end;
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de leo rodrigues
Enviada em: quinta-feira, 16 de fevereiro de 2006 10:14
Para: grupo delphi
Assunto: [delphi-br] função mod
estou com a seguinte sintaxe:
while not Qrycons.Eof do
Begin
If mod((Qryconstotal)/30)=0
then Begin
showmessage ('ok');
end;
end;
esta dando esta mensagem
[Error] Unit1.pas(42): Expression expected but 'MOD' found
no help não traz nenhum exemplo de sintaxe
o que estou fazendo de errado?
-
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
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]
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
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]
--
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
