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

最新推荐文章于 2025-11-17 14:24:25 发布

原创最新推荐文章于 2025-11-17 14:24:25 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

153 篇文章

订阅专栏

本文介绍了在Delphi中如何通过ClassHelper来访问父类的私有字段，特别是在不同单元文件中继承原有类时遇到的问题及解决方案。通过示例代码展示了在TMyClass2继承TMyClass的情况下，如何在TMyClassHelper中使用withselfdo关键字来正确访问并修改私有字段FMyName。

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;