Buscar resgistro atraves de nº randomico

Delphi

07/05/2004

Pessoal, boa noite!
Preciso do seguinte, tenho uma query com varios registros por exemplo de 1 a 300, tenho que gerar um numero randômico neste intervalo, até ai tudo bem só que preciso trazer os dados deste de registro da query.
Desta maneira não está dando certo:
procedure TfrmSorteio.Button1Click(Sender: TObject);
var
I : Integer;
begin
Randomize;
I := random(qrySorteio.RecordCount);
Label3.Caption := qrySorteio.fieldbyname(´Cod_Locacao´).AsString[I];
end;
end.


Marcrv2

Marcrv2

Curtidas 0

Respostas

Jecseu

Jecseu

07/05/2004

Faça da maneira abaixo. 

procedure TfrmSorteio.Button1Click(Sender: TObject); 
var 
I : Integer; 
begin 
  Randomize; 
  I := random(qrySorteio.RecordCount);  
  qrySorteio.recno := i; //aqui o ponteiro do dataset é colocado no registro que foi sorteado
end;



Espero que resolva seu problema.

Jean carlos - Borland Certified Instructor(DF) jecseu@pop.com.br


GOSTEI 0
POSTAR