5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
alin 2000-08-22
- 打赏
- 举报
var
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;
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;
Nicrosoft 2000-08-21
- 打赏
- 举报
Round()
具体查查Help吧
具体查查Help吧
Nicrosoft 2000-08-21
- 打赏
- 举报
Round()
Nicrosoft 2000-08-21
- 打赏
- 举报
Round()
