Amigo Seguinte, tem um exemplo do bingo que gera as cartelas no site planetadelphi.com.br Programa gera cartelas - bingo
para que nao se repita um numero no random, vc tem quardar a lista e verificar se o numero ja esta na lista se sim descarte. o random sempre vai repetir os numeros. Espero ter ajudado. --- Em delphi-br@yahoogrupos.com.br, Silvio Clecio <silviop...@...> escreveu > > Ricardo César Cardoso escreveu: > > Eu ia esperar pra comprovar amanhã, quando ia testar no Delphi, mas acho > > que usando assim como passado, o resultado sempre será o mesmo. Se não > > me engano, Randomize é somente um inicializador do gerador de números > > randômicos, por isso deve ser chamado apenas uma vez, como bem disse o João. > > Eu fiquei sabendo disso agora (chamar só na inicialização). > > Fiz um teste para embaralhar uns números, e queria que numa contagem de > 0 a 500 ele embaralhasse até acabar as combinações possíveis, ex: > > Certo: > 1 - 27 > 2 - 63 > 3 - 7 > 4 - 500 > 5 - 339 > > Errado: > 1 - 27 > 2 - 500 > 3 - 7 > 4 - 500 <<-- repetiu > 5 - 339 > > Queria que, quando ele tivesse esgotado todas as combinações possíveis > (de 0 a 500), acionasse um LED pro cara resetar a contagem; solução: > salvar em uma variável os números que já foram exibidos, e não deixar o > laço "soltar" outro número igual. (posso estar enganado, mas pelo menos > nos testes que fiz, se não fosse esse "macete" os números iam se repetir > muitas vezes). > > Quem tiver uma solução mais simples, por gentileza, um CTRL+V aqui na > lista e outro aqui - [http://pastebin.com/] :) > > > Atte, > > Ricardo. > > > > 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. > > > > 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor > > compreendida. > > > > 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! > > -- > Silvio Clecio > -- > Blog estilo mural - silvioclecio.blogspot.com > Twitter - twitter.com/silvioprog > -- > programmer ObjectPascal - silvioprog.blogspot.com > -- > "A consciência é o melhor livro de moral que temos; e é, certamente, o > que mais devemos consultar. Blaise Pascal. >
