fun��o randomize

Question

Ola galera estou desenvolvendo um proj e estou usando a fun��o randomize (gerar numeros aleat�rios). Tem como fazer com que os numeros gerados n�o se repitam?...

Marcelo Saviski · Answer

use o Randomize  s� uma vez, no inicio do bloco ou loop que gera �s n� aleat�rios...

Motta · Answer

Se eles s�o aleat�rios n�o devem seguir l�gica nenhuma.

Assim o uso de uma fun��o deste tipo tem a chance estat�stica dele se repetir.

Vc pode guardar os valores gerados num array e verificar se j� foram �sorteados�

Outra solu��o � gerar os valores possiveis, carrega-los num array (TStringList serve) sortea-los pelo array e remover os valores do array.

Marcelo Saviski · Answer

ops, acho que n�o tinha prestado bem aten��o na d�vida...

um exemplo:

var
  FormX: TFormX;
  ...
  Nums: string;

function Sorteia(Max: Integer): Integer
begin
  repeat
    Result := Random(Max);
  until
    Pos(IntToStr(Result), nums) = -1;
  Nums := Nums + IntToStr(Result) + �,�;
end;

Mas tem que cuidar para n�o chamar a fun��o mais vezes do que o parametro passado Max, sen�o ela entra em loop infinito

Urbano · Answer

Valeu funcionou!!!!!!!!!!!!!� ISSO MESMO QUE EU ESTAVA PRECISANDO...

F�rum fun��o randomize #268804