Delphi Randomize
2015-07-20 14:07
381 查看
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;
功 能: 初始化随机数发生器
相关文章推荐
- WIN7 64位系统Delphi6安装EhLib【向程序发送命令时出现问题】
- delphi 防止For运行时候程序界面卡死
- delphi 程序嵌入桌面效果的实现
- delphi 程序嵌入桌面效果的实现
- delphi 半透明窗体类
- delphi 半透明窗体类
- delphi 一个关于xml文件导入数据库的问题
- delphi 一个关于xml文件导入数据库的问题
- Delphi 自带了 Base64 编解码的单元
- Delphi 自带了 Base64 编解码的单元
- DevExpress VCL for Delphi 各版本收集下载(最新支持Delphi XE 7)
- delphi 异形窗体可半透明
- delphi 异形窗体可半透明
- 如何在程序中执行动态生成的Delphi代码
- 如何在程序中执行动态生成的Delphi代码
- delphi 获取程序版本及时间
- delphi 获取程序版本及时间
- delphi PChar与String互转
- delphi PChar与String互转
- Base64编码/解码Delphi源码