有关产生随机数的问题！！！散分啦(100分)

N

nzfboy

Unregistered / Unconfirmed
GUEST, unregistred user!

//产生随机数的一段函数
function myrandom(a,b:integer):integer;
begin
radomize;
if a<=b then
result:=random(b-a)+a
else result:=random(a-b)+b;
end;
它报错：为什么原因，如何解决？
[Error] Frameu.pas(118): Undeclared identifier: 'radomize'
[Fatal Error] pFrame.dpr(5): Could not compile used unit 'Frameu.pas'
 
简单啊，就是函数名写错了。是Randomize，不是Radomize。
 
哈哈，又来拣分了
把你的radomize改成Randomize 就ok了，记的给分我喔！！谢谢
 
按照入下改:
1,radomize ==>randomize
 
我来迟了，你说怎么办
 
老兄，我来的更迟了！[:(]
 
radomize ==>randomize
 
老兄，我最后，散分了。
 
我来晚了
还能不能得分
 
等我大口大口喘着气跑进来 ～
看见前面已经排了很长的队！
：（
 
结束吧!
 
老兄有没有搞错哟，这么长时间还不结束？看来我是没分了，不过你赶紧结束吧。
 
还没结束，赶紧来抢分！！！
 
function myrandom(a,b:integer):integer;
begin
Randomize;
if a<=b then
result:=random(b-a)+a
else result:=random(a-b)+b;
end;
 
Randomize
 
function myrandom(a,b:integer):integer;
begin
Randomize;
if a<=b then
result:=random(b-a)+a
else result:=random(a-b)+b;
end;
这样就可以了，问题解决了就快点结束，不要浪费其他人的时间和空间
 
我也知道,但都這麼多富翁回答了.我就不畫蛇添足了
 
凑个热闹[:D][:D]
 
function myrandom(a,b:integer):integer;
还可以分点吧
begin
Randomize;
if a<=b then
result:=random(b-a)+a
else result:=random(a-b)+b;
end;

 
啊呀，我最后啦。
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
壁纸随机更改
回复
0
查看
536
import
I
I
NameNick的手机短信DLL
回复
0
查看
777
import
I
I
DCOM调用 VS 回调机制例程
回复
0
查看
705
import
I
顶部