Random [ ( Range: Integer) ];返回的随机数范围在 0 <= X < Range I: Integer; begin Randomize; for I := 1 to 50 do begin { Write to window at random locations } Canvas.TextOut(Random(Width), Random(Height), 'Boo!'); end; end;
Random [ ( Range: Integer) ]
function Random [ ( Range: Integer) ]; 如果没有指定range,返回一个实形的数
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;
如果没有指定range,返回一个实形的数
ramdom()
一起结合起来用。