如何产生随机整数？

Question

var   I: Integer;
 begin
   Randomize;
   for I := 1 to 50 do begin
     { Write to window at random locations }
     Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
   end;
 end;

Answer 1

还有一点是：
Random 产生的是随机整数，使用前请用Randomize过程初始化，否则可能不唯一；
RandG 产生的是随机Extended数，他们是Gauss分布的；
具体的详细信息请看Delphi 帮助

Answer 2

请用参数啊
如
x:=Random(1000)
 结果是  0<x<1000的随机数

Answer 3

请用参数啊
如
x:=Random(1000)
结果是  0<=x<1000的随机数