[示例]访问类的私有属性
Posted 龟山Aone
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了[示例]访问类的私有属性相关的知识,希望对你有一定的参考价值。
如何访问类的私有属性?
下面以 TPathData 为例,它有一个私有属性 PathData,储存了每一个曲线点,但一般无法修改它,需要利用下面方法,才能访问修改(若有更好的方法,歡迎分享):
一、利用 RTTI 取得类私有属性(建议使用此方法):
type TPathDataHelper = class helper for TPathData public function PathData: TList<TPathPoint>; end; function TPathDataHelper.PathData: TList<TPathPoint>; var Context1: TRttiContext; Type1: TRttiType; Field1: TRttiField; begin Context1 := TRttiContext.Create; Type1 := Context1.GetType(TPathData); Field1 := Type1.GetField(‘FPathData‘); if Assigned(Field1) then Result := Field1.GetValue(Self).AsObject as TList<TPathPoint> else Result := nil; end;
参考:http://blog.qdac.cc/?p=2541 (VKHelper,感谢 swish)
二、利用仿类将私有属性改成公有(仿类的成员必需与原类成员位置及顺序相同,因此当版本不同且成员不同时,必需跟着修改):
type
TPathDataHack = class(TInterfacedPersistent)
public
FOnChanged: TNotifyEvent;
FStyleResource: TObject;
FStyleLookup: string;
FStartPoint: TPointF;
FPathData: TList<TPathPoint>;
end;
TPathDataHelper = class helper for TPathData
public
function PathData: TList<TPathPoint>;
end;
function TPathDataHelper.PathData: TList<TPathPoint>;
begin
Result := TPathDataHack(Self).FPathData;
end;
以上是关于[示例]访问类的私有属性的主要内容,如果未能解决你的问题,请参考以下文章