给大家一个OOP的Demo ( 积分: 100 )

这个程序的基础框架部分是我在玩OOP玩得走火入魔的时候写的（当然那个时候是有意要走火入魔的了:-）。当时本来是想做一个光盘目录管理之类的东西，不过后来发现工作量太大了，这个工程被我给永久的Hibernate了。
总是觉得一些半成品放在硬盘上未免有些可惜，这些代码对一些初学OOP的朋友来说或许还会有些用。想想还是简单的改改发布好了。
虽然当时对OOP走火入魔，在设计的过程中存在很严重的过度设计。不过就现在发布这些代码来说设计还算是合理的了。
在程序对程序目录的处理过程中，最初是使用的XML文件进行处理，后来改成了自定义格式，再到现在直接将目录保存到文本中。在更换处理方式的时候，对目录进行遍历的uMakeCD.pas一直未修改过，而在对目录进行保存的时候只是对接口的具体实现进行了相应的修改而已。
开发工具ModelMaker7.2+Delphi7.0
PS:
…………………………
------------------------------------------------------------
zbird
http://zbirder.51.net
E-Mail:zbird@etang.com
2005-7-1 00:00:33
下载地址：http://zbirder.51.net/downloads/DirTree.rar

这个程序的基础框架部分是我在玩OOP玩得走火入魔的时候写的（当然那个时候是有意要走火入魔的了:-）。当时本来是想做一个光盘目录管理之类的东西，不过后来发现工作量太大了，这个工程被我给永久的Hibernate了。
总是觉得一些半成品放在硬盘上未免有些可惜，这些代码对一些初学OOP的朋友来说或许还会有些用。想想还是简单的改改发布好了。
虽然当时对OOP走火入魔，在设计的过程中存在很严重的过度设计。不过就现在发布这些代码来说设计还算是合理的了。
在程序对程序目录的处理过程中，最初是使用的XML文件进行处理，后来改成了自定义格式，再到现在直接将目录保存到文本中。在更换处理方式的时候，对目录进行遍历的uMakeCD.pas一直未修改过，而在对目录进行保存的时候只是对接口的具体实现进行了相应的修改而已。
开发工具ModelMaker7.2+Delphi7.0
PS:
…………………………
------------------------------------------------------------
zbird
http://zbirder.51.net
E-Mail:zbird@etang.com
2005-7-1 00:00:33
下载地址：http://zbirder.51.net/downloads/DirTree.rar

文件：13K
谢谢zbird,

写的还行啊，小顶你一个！

有下载的，我喜欢~~顶

谢谢zbird的辛勤劳动和无私奉献 []

无论是成品还是半成品，都是您的劳动成果。我珍惜！

斑竹：　小弟看了代码，看到了unit uIntAddSubX　好像没有引用记数功能。能否为大家补充以下这个部分[]，
function QueryInterface(const IID: TGUID;
out Obj): HResult;
stdcall;
function _AddRef: Integer;
stdcall;
function _Release: Integer;
stdcall;
小弟一直对引用记数比较迷惑，请各位大虾指教。

我直接继承的InterfacedObject，在这个基类里面有Interfaced相关方法的实现。
对于Delphi接口的计数方面的问题我也不是很清楚。[]

多人接受答案了。