Olha... só por curiosidade, eu gerei uma rotina que faz isso que vc quer...
não está otimizada e eu definitivamente nao aconselho usa-la para muitos
números...
mas... segue abaixo...
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,a : integer;
b : boolean;
begin
listbox1.clear;
randomize;
for i := 0 to 9 do
begin
b := true;
if listbox1.items.Count = 0 then
listbox1.Items.Add(inttostr(random(10)))
else
begin
repeat
a := random(10);
for j := 0 to listbox1.items.Count - 1 do
if a = StrToInt(listbox1.Items[j]) then
begin
b := false;
break;
end
else
b := true;
until b;
listbox1.Items.Add(inttostr(a));
end;
end;
end;
Espero que você tenha compreendido a diferença entre o que você quer e a
função random...
E, creio eu, devem existir algoritmos muito mais otimizados que este que eu
coloquei aqui para gerar o que você precisa...
--
TFA,
Leslyn Fernandes
55-11-9159-3837
Computer Engineer
Integra Solutions
"Imagination is more important than knowledge."
- Albert Einstein
2008/4/17 Joel Alexandre <[EMAIL PROTECTED]>:
> Vc tá querendo tirar água de pedra. Estas funções Random e Randomize
> geram numeros aleatórios. o que vc tá querendo é gerar 10 numeros
> diferentes de 10 possíveis.
> Estes numeros que vc apresentou já indica um ótimo funcionamento desta
> função. Pois existe a probabilidade de 10% na repetição deles pra cada
> numero gerado. E essa probabilidade vai aumentando até que todos sejam
> preenchidos. Portanto isso nao é lorota de CodeGear isso é funcao de
> Turbo Pascal la de 1980.
>
> Joel
>
> > Galera, para desenvolver um soft que preciso, tive que aprender a usar o
> > random e o randomize, só que tem coisa errada no meu projeto. Fiz um
> > simplesinho, que me gerasse 10 numeros aleatórios, de 0 a 9, só que ele
> > repeti os numeros, tipo fica 2-2-1-3-5-4-6-7-9-8, algo assim.
> >
> >
> >
> > Já coloquei o randomize, e não resolveu, daí pensei que fosse pq estava
> fora
> > do loop, coloquei o randomize dentro do loop e nada.
> >
> >
> >
> > Esse randomize realmente funciona ou é mais uma lorota da CodeGear ?!?!?
> >
> >
> >
> > Abraço, quem quizer o prj me passe o email que envio, está simples,
> simples,
> > era só para eu aprender como usar o random, mas o randomize está me
> tirando.
> >
> >
> >
> > Grato.
> >
> >
> >
> >
> >
> > 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]
> >
> >
> > ------------------------------------
> >
> >
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
