delphi怎么实现一定范围内的随机数呢？

本文整理自网络，侵删。

 delphi怎么实现一定范围内的随机数呢？


//指定范围的随机数函数
function Rand(min,max:Integer):Integer;
begin
  randomize;
  Result:=random(max) mod (max-min+1)+min;
end;
//调用
Rand(100,1000);
显示结果是100~1000之间的随机数
 

相关阅读 >>

Delphi中判断窗体最大化和最小化事件

Delphi 判断文件是否是图像文件

Delphi保存读取utf-8的文本文件

Delphi里formatfloat的用法

Delphi ifdef 另类用法

Delphi用idhttp.get访问一个网址返回403错误，但用ie浏览器访问正常

Delphi中emptyparam参数被改写问题

Delphi xe10 百度车牌识别

Delphi webbrowser1 保存文档为 .mht

Delphi 用firedac获取 sql server错误文本信息

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi怎么实现一定范围内的随机数呢？