偶是初学者，一个产生随机数的问题!

Question

随机读取10个数中的１个，每个数下面都对应着一个表格数据库，输出并清除当前表格
数据库，再进行下一次随机读取，直到最后一个数为止。  
最好有实例源码.谢谢各位先！

Answer 1

var i,j:integer;
    a:array[1..10] of integer;
begin 
　for i:=1 to 10 do a[i]:=0;
  for i:=1 to 10 do 
   begin
     repeat
       j:=random(10)+1;
     unilt a[j]=0;
     a[j]:=1;
     //进行你要的操作J是不重复的随机数
   end;
end.

Answer 2

随机函数是random，如果这10个数就是1到10 那取随机数就是random(10)，用random前首先要randomize。然后根据你取出的随机数做你想要做的处理。

Answer 3

这是我写的抽奖的一段程序 你看看也许有用
var
  left,l,m,idnumber,j,compcount : integer;
begin
  n := 10;
  l := i div n;
  left := i-l*n;
  m := 0;
  for k:=0 to n-1 do
  begin
    if k=n-1 then
      idnumber := Random(l+left)+l*k
    else
      idnumber := Random(l)+l*k;
      end;
end;

Answer 4

var 
  NumSet:set of 0..9
  i,j;integer;
begin
  NumSet:=[];
  for i:=0 to 9 do NumSet:=NumSet+[i];
  while NumSet<>[] do
  begin
    j:=random(10);
    if j in NumSet then
    begin
      代码...
      NumSet:=NumSet-[j];
    end;
  end;//while
end; 
这样是不是可以了？

Answer 5

random(10)+1;前面或的是0。。9
然后在获得数据集里面的这些数据

Answer 6

Query.First;
Query.Moveto(); //指向数据库中某一条记录