Rodrigo uso a versão 7 e esta função esta na unit Math, dá uma olhada ai. ´[]´s Camoloze
-----Mensagem original----- De: Rodrigo Villaverde [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 17 de fevereiro de 2005 10:21 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Número randômico entre x e y Qual versão do Delphi vcs utilizam? Fui procurar essa função no meu help e ela não existe nele. Uso o Delphi 5. -----Mensagem original----- De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 17 de fevereiro de 2005 10:03 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Número randômico entre x e y Porque neguin não lê help :-/ []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 > -----Mensagem original----- > De: Camoloze [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 17 de fevereiro de 2005 10:03 > Para: delphi-br@yahoogrupos.com.br > Assunto: RES: [delphi-br] Número randômico entre x e y > > > > Porque não usa a função RandomRange do Delphi? > > Delphi syntax: > function RandomRange(const AFrom, ATo: Integer): Integer; > > Description > > RandomRange returns a random integer from the range that > extends between > AFrom and ATo (inclusive). RandomRange can handle negative > ranges (where > AFrom is greater than ATo). > To initialize the random number generator, add a single call > Randomize or > assign a value to the RandSeed variable before making any calls to > RandomRange. > > []´s camoloze > > -----Mensagem original----- > De: Rodrigo Villaverde [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 17 de fevereiro de 2005 09:52 > Para: delphi-br@yahoogrupos.com.br > Assunto: RES: [delphi-br] Número randômico entre x e y > > > Rapaz, ele é da família sim, mas eu não conheço. > > -----Mensagem original----- > De: Rodrigo Ribeiro [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 17 de fevereiro de 2005 09:52 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Número randômico entre x e y > > > Funcionou...valeu rodrigo. > > P.S.: Algum parentesco com o Darci Villaverde (violonista)? > ----- Original Message ----- > From: "Rodrigo Villaverde" <[EMAIL PROTECTED]> > To: <delphi-br@yahoogrupos.com.br> > Sent: Thursday, February 17, 2005 9:31 AM > Subject: RES: [delphi-br] Número randômico entre x e y > > > > function NumeroRandomicoIntervalo(LimiteInferior, > LimiteSuperior: Integer): > Integer > var > NumeroAleatorio: Integer; > begin > Randomize; > repeat > NumeroAleatorio:= Random(LimiteSuperior); > until NumeroAleatorio >= LimiteInferior; > NumeroRandomicoIntervalo:= NumeroAleatorio; > end; > > -----Mensagem original----- > De: Rodrigo Ribeiro [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 17 de fevereiro de 2005 09:17 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Número randômico entre x e y > > > Folks, > > Preciso gerar um número randômico q esteja dentro de um > intervalo. Exemplo: > > Números aleatórios entre 10 e 20 > 11, 19, 15.... > > Sei utilizar a função random, mas esta me permite apenas estabelecer o > limite superior...e o limite inferior? Alguém sabe? > > [ ]'s > > Rodrigo > > > [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 > > > > > > > > > > > > -- > <<<<< 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 > > > > > > > > > > > > > > > > -- > <<<<< 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 > > > > > > > > > > > > -- > <<<<< 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] > > > > > Yahoo! Grupos, um serviço oferecido por: > > PUBLICIDADE > > <http://br.rd.yahoo.com/SIG=12abu1l38/M=264379.5078783.6203979 .1588051/D=brc lubs/S=2137111264:HM/EXP=1108727725/A=2332652/R=0/id=noscript/SIG=119058f8i/ *http://br.download.yahoo.com/messenger/> _____ 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 Yahoo! <http://br.yahoo.com/info/utos.html> . [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 -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE <http://br.rd.yahoo.com/SIG=12a5kee4j/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1108729540/A=2332652/R=0/id=noscript/SIG=119058f8i/ *http://br.download.yahoo.com/messenger/> _____ 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 Yahoo! <http://br.yahoo.com/info/utos.html> . [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