谈谈设计模式 ( 积分: 100 )

顶,听听高见

设计模式很多年前研究过几个月，不过在实际上用的种类并不太多。
到最后不过是概念的分层在不同场合中的具体使用方法而已，没什么特别的东西。对改善
软件的框架设计、层次划分有一定的帮助倒是真的。
设计模式不是什么能起死回生的仙丹，也不是可以让低手一夜之间变成大师的灵药——它
只是展示了继承之类的抽象理念如何在实际中使用、给系统设计人员参考罢了。世界上的一
切本来就没有什么神秘可言——不要以为买了高级的鞋之后，走路就不用费力了，呵呵。

于一切法，无不知已舍。
——对技术要通达，但是不能执着于某种技术——会适时适当的使用就足够了。

有这么多高手参与讨论,我很高兴,谢谢大家.
送个自己写的单根模式吧:
unit Unit2;

interface

type
Tsingleton= class(tobject)
private
RefCount: integer;
public
class function newInstance: tobject;override;
procedure freeInstance;override;
end;

implementation
uses sysutils;


procedure Tsingleton.freeInstance;
begin
dec(RefCount);
if RefCount=0 then
inherited freeInstance;
end;

class function Tsingleton.newInstance: tobject;
{$J+}
const
Instance: Tsingleton= nil;
begin
if Instance= nil then
begin
Instance:= inherited newInstance as Tsingleton;
end;
result:= Instance;
Inc(Instance.RefCount);
end;

end.

多人接受答案了。