Eu acho que está havendo algum problema conceitual... Random serve para pegar um número ALEATÓRIO e não que este não seja repetido...
tipo... Random(10) vai pegar QUALQUER NÚMERO que corresponda ao conjunto de números inteiros entre 0 e 9, inclusive. As chances de qualquer um desses números sair é de 10%. Ou seja... vamos supor que o primeiro número seja 1. Existe 10% de chance que saia o mesmo número '1' na segunda rodada... A função Randomize somente inicializa o gerador de números aleatórios, conforme o Ricardo César colocou... Para que números não se repitam, confome o que vc quer, vc teria que gerar uma rotina que faça isso... Pode até usar o random e o randomize, mas não somente eles... Espero te-lo ajudado, -- TFA, Leslyn Fernandes 55-11-9159-3837 Computer Engineer Integra Solutions "Imagination is more important than knowledge." - Albert Einstein 2008/4/17 Ricardo César Cardoso <[EMAIL PROTECTED]>: > O Randomize apenas inicializa o gerador de números aleatórios com um > valor pasme... randômico! > > Este valor randômico é obtido no relógio do sistema. > > Tudo que escrevi aqui, tirei da ajuda do Delphi. > > Atte, > Ricardo. > > Tiago de Assis Pimenta <[EMAIL PROTECTED]<tiagopimenta82%40yahoo.com.br>> > escreveu: Galera, ta ae o código que estou usando: > > > procedure TForm1.Button1Click(Sender: TObject); > > var > > i : integer; > > begin > > listbox1.clear; > > randomize; > > for I := 0 to 9 do > > listbox1.Items.Add(inttostr(random(10))); > > end; > > E vou testar os códigos e as dicas que me passaram. > > E João Morais, eu intendi o que vc disse, o random pega numeros > aleatóriamente, não quer dizer que ele não vá se repetir, isso intendi, > mas > qual a função então do randomize ??? Pelo que eu li por ae, seria para não > deixar repetir os numeros, tipo de 0..9 ele usasse todos sem repetir. > > Abraço gente. > > Tiago de Assis Pimenta > > MSN: [EMAIL PROTECTED] <tiagopimenta%40hotmail.com> > > Email: [EMAIL PROTECTED] <tiagopimenta%40gmail.com> > > [As partes desta mensagem que não continham texto foram removidas] > > > > _ > > --------------------------------- > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
