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;
r
Nao sei se entendi bem + se vc nao quer q o numero repita vc tem q verificar
se ele já foi listado, caso tenha, vc pega novamente um novo numero
aleatorio até q este nao tenha sido listado. Ao faltar apenas um numero vc
deve sair do laco e inclui-lo em sua lista p/ q o laco nao se repita por
muit
Amigo, funcionar funciona, mas não 100%... sempre vai vir repetido alguma
coisa... tem algoritmos que numeros aleatorios... se nao me engano do livro
Algotimo e Estruturas de Dados em Delphi. Dá uma pesquisada, que tem os
fontes na net... nele, tem um algotimo que traz numeros realmente
aleatorios.
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 rando
4 matches
Mail list logo