使用 Helper class 访问一个类的私有变量

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