Sortear Alguns Produtos na base Todo ?

Delphi

30/10/2004

Pessoal precisaria
fazer com que o meu programa sortei entre os produtos
cadastrados uma quantidade de itens.
Exemplo; O usuário informa quantos itens ele quer Sortear
Exemplo 30
e o sistema sortea p/ ele estes itens
gostaria de saber se alguem conhece ou pode me ajudar ?
Utiliza Interbase 6.0
Obrigado a tds !!


Essistemas

Essistemas

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

30/10/2004

Colega,

Veja o exemplo do help:

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;



GOSTEI 0
Essistemas

Essistemas

30/10/2004

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 !!


GOSTEI 0
Essistemas

Essistemas

30/10/2004

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 !!


GOSTEI 0
Essistemas

Essistemas

30/10/2004

??


GOSTEI 0
Marco Salles

Marco Salles

30/10/2004

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


GOSTEI 0
POSTAR