我的随机函数为什么总是指向同一条记录？（谢谢，不难，帮帮我）

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  n:integer;
  i:integer;
begin
  adotable1.Open;
  randomize;
   i:=random(adotable1.RecordCount);
    while i>adotable1.RecordCount do（一共只有10条记录，这里主要是为了产生随机数在记录的范围内）
         i:=i-5;
    adotable1.RecNo:=i;
    adotable1.MoveBy(adotable1.RecNo);  end;
end.

Answer 1

楼上的对,你的n只是定义没有赋值,random(n)就没有意义了

Answer 2

i:=random(adotable1.RecordCount);
    while i>adotable1.RecordCount do（一共只有10条记录，这里主要是为了产生随机数在记录的范围内）
         i:=i-5;
    adotable1.RecNo:=i;    // 这里加一句
    adotable1.First;
    adotable1.MoveBy(adotable1.RecNo);

Answer 3

我做一个程序，要求按系统的时间自动运行，（能告诉我一个方向吗？最好有代码？需要编译后弄成exe,文件吗？）
可以在计划任务中启动