Как выбрать случайную запись?

Previous  Top  Next

    
 

 

 

 

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

Randomize;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.First;

Table1.MoveBy(Random(Table1.RecordCount));

end;

 

©Drkb::02553

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php