Gerar Numeros Aleatorios

Delphi

29/10/2006

Ola como faço para gerar numeros aleatorios ordenados com 4 digitos e que nao se repita varias vezes.

obrigado


Pellegrini

Pellegrini

Curtidas 0

Respostas

Rm

Rm

29/10/2006

Sem aprofundar... de uma analisada no que segue

begin
Edit1.Text:=inttostr(random(9999));
Randomize;
end;

Não testei mas deve gerar valores tambem com menos de quatro digitos


GOSTEI 0
Martins

Martins

29/10/2006

Sem aprofundar... de uma analisada no que segue begin Edit1.Text:=inttostr(random(9999)); Randomize; end; Não testei mas deve gerar valores tambem com menos de quatro digitos


verdade, vai funcionar, não testei o código abaixo tb, ele é apenas uma implementação diferente do anterior.

const
 a: integer = 0123456789;
begin
  Edit1.Text := IntToStr(Random(a));
  Randomize;
end;


Boa sorte!


GOSTEI 0
Motta

Motta

29/10/2006

Gerar nºs randomicos é simples , mas não repetitivos nem tanto, isto já foi discutido aqui, teste o PESQUISAR.


GOSTEI 0
Output

Output

29/10/2006

E pra gerar nros e letras aleatorios???


GOSTEI 0
POSTAR