图形遍历——找出一个向量图的最少笔划数的源代码！(0分)

传统的题目是，用3笔画出如下的图形：
A B
_ _ _ _ _ _ _ _ _ _ _ _ _
|/ /|
| /_ _ _ _ _ _ _ _ _ _ / |
| | E F| |
| | | |
| | | |
| |G H| |
| |_ _ _ _ _ _ _ _ _ _ | |
| / / |
|/_ __ _ _ _ _ _ _ _ _ _/|
C D
用delphi考虑，算法怎么写？
（注：3笔不可能，至少四笔）
这个源程序可以找出任意向量图的最少笔划数。
算法出自creation-zy。
具体见http://www.delphibbs.com/delphibbs/dispq.asp?lid=1142315
下载地址：
http://www.kitoosoft.com/download/soft.asp?id=35

大哥，打广告也要出一点成本嘛
算法有一个小问题，当线条数等于0的时候结果仍然是1笔，应该是0。
还有，“计算需要的笔数”应该调用“开始分析数据”的过程，并且事先应该清空Memo。
右边的Memo的宽度应该增大一些，并设定ScrollBars为Both，这样当一个线条比较长的时候
不会自动换行，让用户误以为是几笔画出来的。
ps:在程序的Help中没有看到我的名字哟。

（ 50分的算法问题我觉得吃亏了 ）

算法还有一个小问题，当笔划数为1的时候，却得出0。
写帮助的时候忘记了，在这么大的论坛感谢您，您还说吃亏？？
要不要另开帖子给你分？：）

接受答案了.