Delphi生成随机数

procedure TForm1.Button1Click(Sender: TObject); begin Randomize; // 初始化，也可以将值赋予 RandSeed Random(1000); // 生成 大于等于0且小于1000 的随机数 end;

需要注意的一点是：如果在循环内生成随机数，只需在循环开始前执行一次初始化，如：

var // 摘于Delphi帮助 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;