delphi中怎样生成一个8位的随机数?
解决方案 »
- 跨进程插入button,关于回调函数怎么写?
- wise打包时取得的路径是以\隔开的,怎么把\转换成/
- DBGridEh有没有编辑/显示多行文本的功能?
- 一个Rave连接数据库的简单问题
- DELPHI5开发人员指南上的问题.
- delphi的bug?--带菜单MDI子窗口的关闭按钮无效却可关闭.
- 请问一个关于ADODataSet1动态参数的问题,顶有分哈
- 把类放入DLL中,可是。。。
- 让程序运行一年无故障!?
- 关于array与string的一个问题
- 请教:Oracle9.2.0.1.0+delphi7,用Query有些字段保存不上
- 关于OleContainer的问题,就这么多分了,如果答出我可以再从别的帐号给分。
Edit1.Text:=Inttostr(Random(99999999));
In Delphi code, Random returns a random number within the range 0 <= X < Range.
不一定是八位啊。
Edit1.Text:=FormatFloat('00000000',Random(99999999));
Edit1.Text:=Format('%.8d',[Random(99999999)]);Edit1.Text:=Format('%.4d%.4d',[Random(9999),Random(9999)]);