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;
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; 书上的例子,可是运行后并不“随机”,每次都是那种颜色,为什么? 还有:不理解“$”在此的意义。 谢谢!
//可能不是优先级的问题,因为每个点都是随即的颜色所以看起来有点像,如果改为这样你试试
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;