Zufälliger Datensatz!?

[aerotech]

Ich möchte jetzt das, wenn man auf den Button klickt eine Zufällige ID (1-*) ausgewählt wird, hier habe ich eine Datenbank quaizfragen erstllt mit einer enthaltenen tabelle "quizfragen_leicht", dort gibt es auch die Spalte ID.

Im Moment hab ich das so gemeacht, funzt aber nicht.

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
quizfragen_leicht.first;
quizfragen_leicht.moveby(ID(quizfragen_leicht.reco rdCount));

end;

[StefanDP]

was willst du jetzt konkret wissen?
wie man eine zufallszahl (1..x) bekommt?:
z.b. für 1...4
random(4)+1 // ~ für "4" Zahlen bei "1" beginnend

[Sharky]

Hai aerotech,

.MoveBy arbeitet glaube ich doch immer relativ zum aktuellen Datensatz oder?

So könntest Du es z.B. machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  With Query1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM meintest';
    Open;
    Query1.RecNo := Random (RecordCount) +1;
  end;
end;

Wobei natürlich das ständige öffnen und schließen der Abfrage bei dir wegfallen würde.