Gerar Numeros Aleatorios

Question

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

Rm · Answer

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

Martins · Answer

[quote:424903919d=�RM�]Sem aprofundar... de uma analisada no que seguebeginEdit1.Text:=inttostr(random(9999));Randomize;end;N�o testei mas deve gerar valores tambem com menos de quatro digitos[/quote:424903919d]verdade, vai funcionar, n�o testei o c�digo abaixo tb, ele � apenas uma implementa��o diferente do anterior.[code:1:424903919d]const a: integer = 0123456789;begin  Edit1.Text := IntToStr(Random(a));  Randomize;end;[/code:1:424903919d]Boa sorte!...

Motta · Answer

Gerar n�s randomicos � simples , mas n�o repetitivos nem tanto, isto j� foi discutido aqui, teste o PESQUISAR....

Output · Answer

E pra gerar nros e letras aleatorios???...

F�rum Gerar Numeros Aleatorios #332253