■With文の使い方<同じ部分を省略>

With文を使わない場合

imgMain.Canvas.Pen.Color := clBlue;
imgMain.Canvas.PenPos := Point(50,50);
imgMain.Canvas.LineTo(100,100);

上のコードをWith文を使って書くと下のようになります

With文を使った場合

With imgMain.Canvas do begin
  Pen.Color := clBlue;
  PenPos := Point(50,50);
  LineTo(100,100);
end;

戻る