Source Code



Select a random datarecord

  • anonymous
  • Jan 10' 14
  • Delphi
  • 169
  • 201
  • United States
procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.First;
  Table1.MoveBy(Random(Table1.RecordCount));
end;
  • Tags : datarecord, random
comments powered by Disqus



Category

Tag Linked