比方说你的数据库为:MyBase;表名为:Mytable;要随机取Table1里的记录 ……………………………… var Q:TQuery; icount,RanNum,Range:Integer; begin Q:=TQuery1.Create(Self); Q.DatabaseName:='MyBase'; Q.SQL.Text:='select count(*) from Mytable'; Q.Open; Range:=Q.Fields[0].Value; Q.Free; Randomize; RanNum:=Random(Range); Table1.First; for icount:=0 to RanNum do Table1.Next; //到此Table1已经指向了随机记录 ……………………………… end;
………………………………
var
Q:TQuery;
icount,RanNum,Range:Integer;
begin
Q:=TQuery1.Create(Self);
Q.DatabaseName:='MyBase';
Q.SQL.Text:='select count(*) from Mytable';
Q.Open;
Range:=Q.Fields[0].Value;
Q.Free;
Randomize;
RanNum:=Random(Range);
Table1.First;
for icount:=0 to RanNum do
Table1.Next;
//到此Table1已经指向了随机记录
………………………………
end;