TMyClass = class
private
FMyName: string;
public
end;
上面是一个类的声明,有一个私有字段 FMyName;
根据 Delphi 的语法,如果我继承这个类,在继承的类里面要访问 FMyName:
TMyClass2 = class(TMyClass)
public
constructor Create;
end;
TMyClass2.constructor;
begin
FMyName := 'pcplayer';
end;
假设我要在新继承的类里面访问 FMyName,那么,这个 TMyClass2 必须和 TMyClass 在同一个单元。如果在不同的单元,上述 TMyClass2 的代码无法编译通过。
很多时候最好不要去修改原来的代码,也就是不要在以前的代码文件里面增减代码。有新的需求,在新的单元文件里面继承原来的类以后增加新的业务逻辑。但这里似乎不灵了。
这时候,使用 Helper Class 是一个办法:
TMyClassHelper = class helper for TMyClass
public
constructor Create;
end;
TMyClassHelper.constructor;
begin
//FMyName := 'pcplayer'; //这句话同样无法编译通过。
with self do
begin
FMyName := 'pcplayer'; //这句话可以编译通过。也就是说,加上 with self do 就可以解决这个问题。
end;
end;
总结:
使用 Class Helper,在其它单元,可以访问该类的私有字段。方法是加上:with self do