解説：６−２

１　：　Canvas.Rectangle(x1,y1,x2,y2)　の使い方を学ぼう。

プログラム：

procedure TForm1.Button1Click(Sender: TObject);

　　　var x1,x2,y1,y2:integer;

begin

　　　x1:=100;
　　　x2:=200;
　　　y1:=100;
　　　y2:=200;

　　　Canvas.Rectangle(x1,y1,x2,y2);

end;

end.

２　：　round　の使い方

知っている人もいると思うが、roundの使い方を覚えよう。

プログラム：

procedure TForm1.Button1Click(Sender: TObject);

　　　var x1,x2,y1,y2,w:integer;

begin

　　　x1:=100;
　　　y1:=100;

　　　w := round(100.987654321);　　//　小数点以下が切り捨てになるので、w:=100となる。

　　　x2:= x1+w ;
　　　y2:= y1+w ;

　　　Canvas.Rectangle(x1,y1,x2,y2);

end;

end.