Sorteio n�meros aleat�rios

Question

Por favor se algu�m souber me ajude, estou precisando urgente.Pensei que tivesse solucionado o problema do sorteio, mas quando fa�o um determinado filtro n�o est� posicionando no registro correto. Est...

Sarnhold · Answer

Preciso sortear n�meros aleat�rios a partir do n�mero 1, mas est� considerando o n�mero 0.

Algu�m saber como posso fazer?

Obrigada.

if qrSorteio.RecordCount > 0 then
begin
i:=qrSorteio.RecordCount;
Randomize;
for j := 1 to spcount.Value do
begin
numsorteado:=Random(i);
ShowMessage(�Numero sorteado: � + IntToStr(numsorteado));
qrSorteio.First;
qrSorteio.MoveBy(numsorteado-1);

Massuda · Answer

[quote:616404e2d8=�sarnhold�]Preciso sortear n�meros aleat�rios a partir do n�mero 1, mas est� considerando o n�mero 0.[/quote:616404e2d8]Random(N) retorna um valor entre 0 e N-1... se voc� quer ter um valor entre 1 e N, basta voc� somar um ao valor retornado por Random....

Sarnhold · Answer

Muito bem, acho que � isto mesmo.S� n�o entendi porque tive que subtrair 2 do n�mero sorteado para posicionar no n�mero de registro. Ap�s o sorteio posiciona 2 registros p/ frente.Vc sabe me dizer  por qu�?Obrigada.if qrSorteio.RecordCount > 0 then  begin    i:=qrSorteio.RecordCount;    Randomize;      for j := 1 to spcount.Value do        begin          numsorteado:=Random(i)+1;          ShowMessage(�Numero sorteado: � + IntToStr(numsorteado));          qrSorteio.First;          qrSorteio.MoveBy(numsorteado-2);          dm.tbSorteio.Append;...

Michael · Answer

Ol�!Como vc garante que valores repetidos n�o ser�o sorteados? Pelo que vi no seu c�digo, h� chances de se repetirem n�meros, pois Random n�o garante a unicidade de seus resultados a cada chamada.[]�s...

Sarnhold · Answer

Que outra maneira poderia ser, sem Random?...

Emerson Nascimento · Answer

crie um vetor onde vc guardar� os n�meros j� sorteados.
tome esse c�digo como exemplo e fa�a as devidas altera��es/adapta��es:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  numsorteado, i, j: integer; 
  Sorteado: array of integer; 

  function JaSorteado(numero: integer): Boolean; 
  var 
    i: Integer; 
  begin 
    Result := False; 
    for i := 0 to High(Sorteado) do 
      if Sorteado[i] = numero then 
      begin 
        Result := True; 
        Break; 
      end; 
  end; 
begin 
  i := 200; 
  for j := 1 to spcount.Value do 
  begin 
    repeat 
      numsorteado := Random(i)+1; 
    until not JaSorteado(numsorteado); 
    ShowMessage(IntToStr(numsorteado)); 
    SetLength(Sorteado,Length(Sorteado)+1); 
    Sorteado[High(Sorteado)] := numsorteado; 

    {ponha seu c�digo aqui} 
  end; 
end;

Sarnhold · Answer

Amigo, sou iniciante, n�o consegui entender estas 3 linhas:

for i := 0 to High(Sorteado) do

SetLength(Sorteado,Length(Sorteado)+1);
Sorteado[High(Sorteado)] := numsorteado;

O que faz o Set?

Obrigado.

Emerson Nascimento · Answer

comumente se v�:[i:32d7f1e407]for i := 0 to 3 do[/i:32d7f1e407], mas nesse caso se sabe quantas itera��es o [b:32d7f1e407]for[/b:32d7f1e407] ter�no nosso caso:[i:32d7f1e407]for i := 0 to High(Sorteado) do[/i:32d7f1e407]na linha acima, n�o sabemos quantos n�meros foram sorteados e, como o vetor � din�mico, n�o sabemos qual � o �ltimo elemento do mesmo. para pegar o �ltimo elemento utilizamos a fun��o High().o SetLength() altera o tamanho do vetor/string para um tamanho informado. No exemplo estamos pegando o vetor [i:32d7f1e407]Sorteado[/i:32d7f1e407], colocando mais um elemento nele e depois colocamos o n�mero sorteado nesse novo elemento.SetLength(Sorteado,Length(Sorteado)+1); // incrementa o vetorSorteado[High(Sorteado)] := numsorteado; // atribui o n�mero sorteado ao �ltimo elemento criadoNote que h� o uso de duas fun��es: High() e Length().- High() retorna o �ltimo elemento do vetor e - Length() retorna o tamanho do vetor.ilustrando:Vetor[0] := �adbghg�Vetor[1] := �plerlsd�Vetor[2] := �ppllerss�Vetor[3] := �hhgssd�High(Vetor) retornaria 3 eLength(Vetor) retornaria 4...

Motta · Answer

Gere um TStringList e carregue uma sequencia de n�meros
Escolha uma posi��o do TStringList
Delete esta posi��o do tString

C�digo semelhante em :

http://forum.clubedelphi.net/viewtopic.php?t=67444&highlight=random