Delphi 中的用法
以下事例将随机产生0到100的数字,如果不使用Randomize函数,得到的结果将有规律性。
procedure TForm1.btn1Click(Sender: TObject);
begin
randomize;
ShowMessage(IntToStr(Random(100)));
end;
功 能: 初始化随机数发生器
Delphi 中的用法
以下事例将随机产生0到100的数字,如果不使用Randomize函数,得到的结果将有规律性。
procedure TForm1.btn1Click(Sender: TObject);
begin
randomize;
ShowMessage(IntToStr(Random(100)));
end;
功 能: 初始化随机数发生器