Sortear Alguns Produtos na base Todo ?

Question

Pessoal precisariafazer com que o meu programa sortei entre os produtoscadastrados uma quantidade de itens.Exemplo; O usu�rio informa quantos itens ele quer SortearExemplo 30e o sistema sortea p/ ele ...

Aroldo Zanela · Answer

Colega,Veja o exemplo do help:[code:1:dd4764da28]var   I: Integer; begin   Randomize;   for I := 1 to 50 do begin     { Write to window at random locations }     Canvas.TextOut(Random(Width), Random(Height), �Boo!�);   end; end;[/code:1:dd4764da28]...

Essistemas · Answer

Mas dentro de minha realidade, que � sortear
produtos em uma base da dados, como eu poderia implementar
isto na minha nescessidade, se alguem tiver algum exemplo
ficarei grato
desde j� Obrigado a tds !!

Essistemas · Answer

Mas dentro de minha realidade, que � sortear
produtos em uma base da dados, como eu poderia implementar
isto na minha nescessidade, se alguem tiver algum exemplo
ficarei grato
desde j� Obrigado a tds !!

Essistemas · Answer

??...

Marco Salles · Answer

eu nao sei se os componentes de acesso a este banco que voce esta usando tem a propriedade RecNo..
Se afirmativo, acho que uma saida e igualar esta propiedade com um valor aleatorio do numero de items que voce possui no banco..Assim por exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
 QuantidadeItemsQueSeQuerSortear:Integer;
 NumeroDeItemsDaBaseDeDados:Integer;
begin
QuantidadeItemsQueSeQuerSortear:=StrToInt(Edit1.Text);
NumeroDeItemsDaBaseDeDados:=(query1.RecordCount)-1;
i:=1;
Randomize;
While i <= QuantidadeItemsQueSeQuerSortear do
  begin
   Query1.RecNo:=Random(NumeroDeItemsDaBaseDeDados);

   < Fa�a o que tiver que fazer ..Dar Baixa, Imprimir , Mostrar Etc....>

   i:=i+1;
  end;
end;

Como eu disse , tem que ver se seu banco suporta a propiedade [b:2f1557c079]RecorCont[/b:2f1557c079] e [b:2f1557c079]RecNo[/b:2f1557c079]..Caso afirmativo eu nao vejo problema

F�rum Sortear Alguns Produtos na base Todo ? #256710