随机函数random的问题? i : integer; 如果我random(i)的话,它的范围是0~60000多,怎么能让它的值大于0? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var I: Integer;begin I := 60000; I := Random(I) + 1; // I始终大于0end; random(range:integer);range是范围,代表0=< result<range 对,就用jacky_shen(jacky)的方法,我也是这么用的, 求一算法 TDBGrid内的内容怎样导如到editli面 困了新手好久了! 关于intraweb做完的东西如何转成asp以放到IIS上使用呢? delphi中如何控制打印机走纸? 多表查询的问题 在delphi的菜单中如何调字体大小? COM+问题 我很人打赌我要短期内学会delphi,有好点子吗? 关于TTable的Filter设置问题? 怎样在程序内执行DOS的内部命令?WINEXEC好象不行啊。 有使用Delphi的程序员吗?每天都可以在线的!!大家联系一下。
I: Integer;
begin
I := 60000;
I := Random(I) + 1; // I始终大于0
end;