Como selecionar um ou mais registro aleatorio duma tabela

Delphi

18/10/2003

Pessoal é o seguinte. Estou fazendo um programa tipo teste, que tem uma tabela com perguntas. Ao abrir o programa o usuário pede pra gerar um teste com perguntas aleatórias. Só que eu não estou conseguindo fazer essa seleção.


Hiko Seijuro

Hiko Seijuro

Curtidas 0

Respostas

Adilsond

Adilsond

18/10/2003

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Pergunta: array[1..5] of String;
begin
  Randomize;
  for I := 1 to 5 do
    begin
      MinhaTable.RecNo := Random(MinhaTable.RecordCount);
      Pergunta[I] := MinhaTablePegunta.AsString;
    end;
end;



GOSTEI 0
POSTAR