首先,郑重声明一点: 那就是我也是个新手,而且是个菜鸟,而且是很菜很菜很菜的那种。只是有时窃喜。。。拿分就不比了,我对分数不敢兴趣,我也学到好多东西,没什么理由搜刮别人,无功不受禄。如果你实在要给,不如给我讲讲你的算法。自己的设想,设计,理解和应用感受,这个比给我多少分都值。一定要注释啊,你的算法比较复杂,且抽象,注释太少了,要读起来太费事,所以我放弃了。但你一定要给我解释解释啊。另外,经常听很多人说Delphi这不行那不好,连个链表啥的都没有。真服了这些人了,只要他稍微看看Delphi自带的帮助都不会丢这个人。TList,TStack,TQueue...很多数据结构都有啊。另外觉得你用的记录类型,觉得用StringList应该可以更好,在不与外部直接交互的情况下,string是非常高效的。当然,传出去时用PChar()强转一下就行了。鄙人比较懒,懒得打字了,直接贴过来了,不要分,只想请你讲讲你的算法。- -!其实,俺也想写点抽象深奥点的代码。只是,哎,太菜了。