esse nao eh um metodo bom para se gerar um randomico.. pois a função random na verdade nao eh randomica rsrs dificil de entender ne!..
faça o teste colocando: result := ''; for I := 1 to VTamanho do Begin Randomize; result := result + Copy(VMatriz,random(Length(VMatriz)),1); End; end; 2009/12/7 valdirdill <vald...@infolivre.com.br> > > > Olá, > > Tenho a função abaixo para gerar um código que utilizo no sistema. > Pela lógica, se chamarmos a função assim: > "GeraCodigoAlfaNumericoAleatorio(10);" o retorno deveria ser sempre > diferente. Poderia até repetir, mas a chance disso acontecer, seria tipo uma > em um bilhão? > > O problema: em 610 códigos gerados, o código 6HGX564TQP já se repetiu 23 > vezes. Para isso ocorrer, o resutaldo do "random(Length(VMatriz))" teria ser > 6-18-17-34-5-6-4-30-27-26. Qual a chance desse sorteio ocorrer exatamente > igual e nessa mesma ordem? Pois, em 610 tentativas, ocorreu 23 vezes. A > execução é feita sempre em máquinas diferentes (do usuário), mas mesmo > assim, isso não poderia ocorrer, poderia? > > Qualquer dica ajuda. Obrigado > > function GeraCodigoAlfaNumericoAleatorio(VTamanho : Integer) : string; > Var > I : Integer; > VMatriz : String; > begin > VMatriz := '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ' > > result := ''; > for I := 1 to VTamanho do > result := result + Copy(VMatriz,random(Length(VMatriz)),1); > end; > > > -- Leandro, MuTukA [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html