函数问题！

Question

zbpro(卧蝶) ，劳您费心了，谢谢，等你的好消息了。
 我想是用随机的，目的就是一个自动出题的程序了，帮帮忙好不好了？谢谢！

Answer 1

先用TQuery筛选出符合条件的记录。然后可以用Random函数产生几个随机数，（注意控制边界），将这些随机数赋给TQuery的RecNo属性，就得到了你要的随机记录。

Answer 2

star_of_light(星星之光) 谢谢您的回复，不过，您所说的这些，我曾经想过，也见过这样的语句，当然了，是短暂的浏览，所以具体的怎么去做，我一直不知道怎么下手，您能不能给个例子先？谢谢了！

Answer 3

具体的属性设置我就不写了。
  Var
   i,Num:Integer;
  With Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * Form YourDataTableName');
    SQL.Add('Where 你的条件');
    Open;
    Num:=RecordCount;
    For i:=0 to Num div 3 do
    begin
        RecNo:=Random(Num);//取得当前的随机记录
        ...;//这部分就是你的事了
    end;
  end;

Answer 4

star_of_light(星星之光) 感激的话不用多说了，我会努力把我的事作好，相信按照您的提示，我可以实现的，到时候一定把好消息告诉你，等我！