关于delphi画虚线，简单的办法，和动态说明。

今天看到一个求助的帖子，需要在竖直方向上话虚线。

因为我在公司做过关于网路结点的优化问题，所以很容易就想到了Canvas.MoveTo()h和Canvas.LinkTo().自己在D7 上实现了哈，没有问题。

于是贴上自己写的简单代码，如下：

procedure TForm1.Button1Click(Sender: TObject);
var i,y:integer;
begin
  y:=150;
  for i:=0 to 8 do
  begin
  Canvas.MoveTo(200,y);
  y:=y+20;
  Canvas.LineTo(200,y);
  y:=y+20;
  end;
end;

然后我想了哈，跟他说可以动态设置这些虚线。可以写一个函数，来实现X,Y值的变化，也可以在其中加虚线的长度，已达到更加美观的目的。

而我在公司做网络结点优化师必须使用折线，也可以使用虚线来，只是在算法里面修改X,Y的坐标关系。

具体的实现代码我不贴出来，原理一样。