Random

Question

eu n�o sei c vcs j� perceberam...mas a fun��o Random do Delphi, n�o � nada randomica!fassa um teste com um botao e um edit!no onClick do botao manda ele passa o �Edit1.Text := IntToStr(Random(7))� , p...

Marcelo Saviski · Accepted Answer

s� � preciso chamar o Randomize 1 vez, pode colocar o Randomize no OnCreate do Form.

ou sen�o, vc pode mudar o valor da vari�vel RandSeed;

se colocar RandSeed := 5; ao inicializar por exemplo, ele vai dar sempre a mesma sequencia, mas diferente se vc colocar outro valor no RandSeed;

Gandalf.nho · Answer

Use a fun��o Randomize antes de usar Random....

Marcosrocha · Answer

Ol�, eu confirmei seu teste, os n�meros aparecem sempre na ordem que vc disse.
Montei esse c�digo e cada vez que eu abro o programa a �randomiza��o� � diferente!!!
Fa�a alguns testes para ver se isso serve!! Mas eu reparei que aparecem muitos 0 no evento do bot�o 1 para randomizar...
Do mais o c�digo est� a�!!!

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  Edit1.Text := IntToStr(Random(7));
end;

Titanius · Answer

realmente constatei este problema... a probabilidade de aparecer algum numero repetido eh muito grande, nao vale a pena utilizar o random, se queres algo realmente randomico...

alguem teria alguma funcao para randomicos?

[]s

Gandalf.nho · Answer

No Delphi tem uma unit com outras fun��es rand�micas, d� uma olhada...

F�rum Random #263128