请教产生随机数值函数Random的用法

[mahongfeng]

请举例说明

[zx_wang]

Random(100)

[mahongfeng]

不行啊
我的用法：random(255)

[zx_wang]

Randomize;
random(255);

[mahongfeng]

a:Byte;
a:=Random(255);
改成
a:Byte;
Randomize;
a:=Random(255);
是不是这样啊？老兄，还是不行

[mahongfeng]

错误信息是：

missing operator or semicolon

[zx_wang]

a:double;
Randomize;
a:=Random(255);

[newwen]

用integer型

[mahongfeng]

你们的方法都试过了
还是不行
请继续指教

[newwen]

把你的代码贴出来，不可能不行啊

[mahongfeng]

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;

[Billy_Chen28]

a:integer;
Randomize;
a:=Random(255);
还要记住用USER把所用的单元加上

[mahongfeng]

是uses吧
可我的函数和调用都在一个单元里

[weixiaohua]

var
i:integer;
begin
Randomize;//种子
A := 1 + Random(255);//因该这样调用0-255之间的随机数
end;