请教产生随机数值函数Random的用法 不行啊我的用法:random(255) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 a:Byte;a:=Random(255);改成a:Byte;Randomize;a:=Random(255);是不是这样啊?老兄,还是不行 错误信息是:missing operator or semicolon a:double;Randomize;a:=Random(255); Function TForm1.RandomColor;var redc,greenc,bluec:Byte;begin redc:=Random(255); greenc:=Random(255); bluec:=Random(255); result:=redc or (greenc shl 8) or (bluec shl 16);end; a:integer;Randomize;a:=Random(255);还要记住用USER把所用的单元加上 是uses吧可我的函数和调用都在一个单元里 vari:integer;begin Randomize;//种子 A := 1 + Random(255);//因该这样调用0-255之间的随机数end; Delphi TIdTCPClient TIdTCPServer发送文件问题 泯灭人性的分数(ZT) 如何将unicode转换为中文汉字? 问一下,什么方法可以把字符串"猴子"变为"%BA%EF%D7%D3"? 在DBGrid中如何选择多行,请大家帮忙呀! 用Delphi做Web页时,有没有能达到asp中mappath函数相同功能的函数 招聘Delphi程序员 (广东东莞) 哪有Rave的中文资料下载? 窗体分割(Splitter) 我全分给出!!!! 映射目录在ISAPI中如何使用? 怎么做一个任意形状的组件?请各位大侠指点!!!!!!!!! 送分问题:什么安装工具比较好?
a:Byte;
a:=Random(255);
改成
a:Byte;
Randomize;
a:=Random(255);
是不是这样啊?老兄,还是不行
错误信息是:missing operator or semicolon
Randomize;
a:=Random(255);
var
redc,greenc,bluec:Byte;
begin
redc:=Random(255);
greenc:=Random(255);
bluec:=Random(255);
result:=redc or (greenc shl 8) or (bluec shl 16);
end;
Randomize;
a:=Random(255);
还要记住用USER把所用的单元加上
可我的函数和调用都在一个单元里
i:integer;
begin
Randomize;//种子
A := 1 + Random(255);//因该这样调用0-255之间的随机数
end;