使用类方法控制实例的唯一性

2019-11-18 17:58:25

字体：大中小

来源：转载

供稿：网友

使用类方法控制实例的唯一性

CST 2005-7-29

文档目的

在面向对象编程中，出于各种原因，有时我们希望控制一个类的实例仅有一个存在于内存中。例如我在编程中遇到一个实际情况，程序的配置数据保存在xml文档中，需要写一个XML配置文件解析类。由于读入的数据可能很庞大，而且在程序每个模块中都用到该解析类的实例，那么如果每次都创建一个实例并重新读入数据，效率就不令人满意了。

类方法

我们可以通过类方法（Class Method）实现实例创建的控制，其实也有许多其他的方法。这里我先介绍“类方法”的实现。

如下是DELPHI对类方法的定义：

A class method is a method (other than a constructor) that Operates on classes instead of objects. The definition of a class method must begin with the reserved Word class. For example,

type

TFigure = class

public

class function Supports(Operation: string): Boolean; virtual;

class PRocedure GetInfo(var Info: TFigureInfo); virtual;

...

end;

The defining declaration of a class method must also begin with class. For example,

class procedure TFigure.GetInfo(var Info: TFigureInfo);

begin

...

end;

In the defining declaration of a class method, the identifier Self represents the class where the method is called (which could be a descendant of the class in which it is defined). If the method is called in the class C, then Self is of the type class of C. Thus you cannot use Self to access fields, properties, and normal (object) methods, but you can use it to call constructors and other class methods.

A class method can be called through a class reference or an object reference. When it is called through an object reference, the class of the object becomes the value of Self.

定义一个类方法就是在将一个方法生命在PUBLIC段中，并加上class前缀。这样的方法可以由类直接调用，而不需要先创建类的实例。比如构造函数Create就是一个类方法，我们在创建对象实例的时候这样写：

MyObject:=TmyClass.Create;

此时的Create方法由类TmyClass调用。

实现方法

我们实现的目的就是不以平时的对象访问模式调用对象

Myobject:=TmyClass.Create(self);

Try

With Myobject do begin

//do something

end;

finally

FreeAndNil(Myobject);

End;

而是使用一个类方法GetInstance来间接获取对象实例，这个唯一的对象实例被申明在类的单元文件内（后文回详细说明），在GetInstance函数中判断该实例是否被创建赋值，如果没有，则调用构造函数创建；如果已创建，则直接返回该实例。

这里，我们需要将构造函数Create申明在private段中，仅能由GetInstance判断调用。TmyClass.GetInstance函数返回值为TmyClass类型的变量，如果Tmyclass继承自Tcomponent的话，create方法需要一个Aowner参数，因此我为GetInstance增加一个Aowner参数。