2 D�vidas - dbgrid e sorteio

Question

Ol� amigos do f�rum, hoje duas d�vidas:1 - como realizar sorteio em dados que est�o em um dbgrid?2 - apos realizar o sorteio e mostrar resultado, abrir form com o resultado e ficha completa do cliente...

Junior-programador · Answer

s� lembrando a galera, realizar sorteio eu sei fazer no random, como tem v�rias opcoes aqui no forum, para dizer que nao procurei rsrsrs, mas preciso fazer isso no dbgrid, e ap�s o sorteio, na hora que o sistema escolheu ele abre um pequeno form com os dados do escolhido

Diegus · Answer

o dbgrid estar� ligado a alguma query... provavelmente..

var
x : Integer;
begin
x := Random(ClientDataSet1.RecordCount);
while x = 0 do
x := (ClientDataSet1.RecordCount);
showmessage(ClientDataSet1Nome.AsString);

Diegus · Answer

[quote:29bd0024ac=�Diegus�]o dbgrid estar� ligado a alguma query... provavelmente..var  x :  Integer;begin  x := Random(ClientDataSet1.RecordCount);  while x = 0 do    x :=  RANDOM (ClientDataSet1.RecordCount);  showmessage(ClientDataSet1Nome.AsString);[/quote:29bd0024ac]esqueci de colocar o RANDOM.......

Junior-programador · Answer

nao deu certo diegus, ele simplesmente exibe o que esta selecionado no dbgrid, nao faz sorteio.

[quote:482f0ac145=�Diegus�]o dbgrid estar� ligado a alguma query... provavelmente.. var x : Integer; begin x := Random(ClientDataSet1.RecordCount); while x = 0 do x := RANDOM (ClientDataSet1.RecordCount); showmessage(ClientDataSet1Nome.AsString);

esqueci de colocar o RANDOM....[/quote:482f0ac145]

Imoreira · Answer

randomize;  x:=random(tb.recordcount);  tb.recno:=x; //Posiciona no registro sorteado...

Junior-programador · Answer

PERFEITO - PROBLEMA RESOLVIDO, obrigado pela ajuda dos amigos do forum.

Segue abaixo o resultado.

var
x : integer;
begin
randomize;
x := random(tbmusica.RecordCount);
tbmusica.RecNo:=x;
while x = 0 do
x := random (tbmusica.RecordCount);
showmessage(tbmusicadescricao.AsString);
end;

obrigado.

F�rum 2 D�vidas - dbgrid e sorteio #347527