选择一条随机数据记录

Delphi 2004-12-25 11:30

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

procedure TForm1.Button1Click(Sender:TObject);
begin
table1.First;
table1.MoveBy(Random(table1.recordcount));
end;

标签集:TAGS:

回复Comments() 点击Count()

回复Comments

{commentauthor}

{commenttime}

{commentnum}

{commentcontent}

作者:

{commentrecontent}