Delphi对象模型(Part IV)

ObjectLifeCycle对象的生命周期

type

TSomething=class

procedureDoSomething;

end;

var

Ref:TSomething;

begin

Ref:=TSomething.Create;

Ref.DoSomething;

Ref.Free;

end;

//在构造器中被隐藏代码类似于这样：

functionTSomething.Create(IsClassRef:Boolean):TSomething;

begin

ifIsClassRefthen

try

//获得新的对象实例

Self:=TSomething.NewInstance;

//NewInstance初始化对象，功能与InitInstance类似。假如你覆盖了NewInstance,那么，

//不要调用inheritedNewInstance,而应当调用InitInstance。

//这个调用正如下面所示，因此你可以知道究竟发生了什么，

//但是请记住通常Delphi实际上并不调用InitInstance。

InitInstance(Self);

//做构造器真正要做的工作，无需用到类引用。

//注意，Delphi并不真的对构造器进行递归调用。

Self.Create(False);

Self.AfterConstruction;

except

//若有任何异常发生，Delphi自动调用对象的析构器。

Self.Destroy;

end

else

Self.Create(False);

Result:=Self;

end;

//构造器中被隐藏的代码类似于这样：

procedureTSomething.Destroy(Deallocate:Boolean);

begin

ifDeallocatethen

Self.BeforeDestruction;

//Delphi并不真的递归调用析构器，但这里是析构器真正发生作用的地方。

Self.Destroy(False);

ifDeallocatethen

begin

//Delphi并不真的调用CleanupInstance而是调用FreeInstance来做清理的工作。

//假如覆盖了FreeInstance,不要调用inheritedFreeInstance,而应当调用CleanupInstance

//来清理字串、动态数组以及可变类型字段。

Self.CleanupInstance;

//调用FreeInstance来释放对象占用的内存。

Self.FreeInstance;

end;

end;

AccessLevels访问级别

HidingaConstructor隐藏构造器

type

TPublic=class;

TPrivateHelper=class

private

//TPublic是唯一一个被允许调用真正的构造器的类

constructorCreate(Owner:TPublic);

overload;

public

//隐藏TObject.Create防止有人意外调用以试图创建TPrivateHelper的实例

constructorCreate;

reintroduce;overload;

end;

TPublic=class

private

fHelper:TPrivateHelper;

public

constructorCreate;

destructorDestroy;

end;

constructorTPrivateHelper.Create;

begin

raiseException.Create('Programmingerror')

end;

constructorTPublic.Create;

begin

//这是唯一一个TPrivateHelper能被创建的地方

fHelper:=TPrivateHelper.Create(Self);

end;

Properties属性

TRectEx=class(TPersistent)

private

R:TRect;

functionGetHeight:Integer;

functionGetWidth:Integer;

procedureSetHeight(constValue:Integer);

procedureSetWidth(constValue:Integer);

public

constructorCreate(constR:TRect);overload;

constructorCreate(Left,Top,Right,Bottom:Integer);overload;

constructorCreate(constTopLeft,BottomRight:TPoint);overload;

procedureAssign(Source:TPersistent);override;

procedureInflate(X,Y:Integer);

procedureIntersect(constR:TRectEx);

functionIsEmpty:Boolean;

functionIsEqual(constR:TRectEx):Boolean;

procedureOffset(X,Y:Integer);

procedureUnion(constR:TRectEx);

propertyTopLeft:TPointreadR.TopLeftwriteR.TopLeft;

propertyBottomRight:TPointreadR.BottomRightwriteR.BottomRight;

propertyRect:TRectreadRwriteR;

propertyHeight:IntegerreadGetHeightwriteSetHeight;

propertyWidth:IntegerreadGetWidthwriteSetWidth;

published

propertyLeft:IntegerreadR.LeftwriteR.Leftdefault0;

propertyRight:IntegerreadR.RightwriteR.Rightdefault0;

propertyTop:IntegerreadR.TopwriteR.Topdefault0;

propertyBottom:IntegerreadR.BottomwriteR.Bottomdefault0;

end;

Arrayproperties数组型属性

type

TExample=class

...

propertyItems[I:Integer]:IntegerreadGetItemwriteSetItem;

propertyChars[C:Char]:CharreadGetCharwriteSetChar;default;

end;

var

Example:TExample;

I:Integer;

C:Char;

begin

Example:=TExample.Create;

I:=Example.Items[4];//必须显式的指明属性名称

C:=Example['X'];//该数组型属性时缺省的

C:=Example.Chars['X'];//效果如前