5,388
社区成员
发帖
与我相关
我的任务
分享问一简单问题：随机创建一个窗口背景
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to form1.height do
for j:=0 to form1.width do
Form1.canvas.Pixels[j,i]:=$100*random(256);
end;
书上的例子，可是运行后并不“随机”，每次都是那种颜色，为什么？
还有：不理解“$”在此的意义。
谢谢！
var
i,j:integer;
begin
for i:=0 to form1.height do
for j:=0 to form1.width do
Form1.canvas.Pixels[j,i]:=$100*random(256);
end;
书上的例子，可是运行后并不“随机”，每次都是那种颜色，为什么？
还有：不理解“$”在此的意义。
谢谢！
...全文
请发表友善的回复…
发表回复
orangefish 2003-09-16
- 打赏
- 举报
多谢提醒!
hare007 2003-09-16
- 打赏
- 举报
//可能不是优先级的问题，因为每个点都是随即的颜色所以看起来有点像，如果改为这样你试试
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
r,g,b:integer;
begin
for i:=0 to form1.height do
begin
r:=random(256);
g:=random(256);
b:=random(256);
for j:=0 to form1.width do
Form1.canvas.Pixels[j,i]:=$1*r*g*b;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
r,g,b:integer;
begin
for i:=0 to form1.height do
begin
r:=random(256);
g:=random(256);
b:=random(256);
for j:=0 to form1.width do
Form1.canvas.Pixels[j,i]:=$1*r*g*b;
end;
end;
orangefish 2003-09-16
- 打赏
- 举报
优先级问题？能不能说得具体点？
hmzgz81 2003-09-16
- 打赏
- 举报
是不是优先级的问题？
hare007 2003-09-15
- 打赏
- 举报
$指出那是个16进制的数字
