几年前（早在Delphi 2005中）添加的Delphi语言的一个称为“类助手”的功能旨在通过向类（记录）引入新方法，向现有类（或记录）添加新功能。

下面你将看到更多关于类助手的想法，并了解何时使用和何时不使用类助手。

类的帮助程序。。。

简单地说，类助手是通过在助手类中引入新方法来扩展类的构造。类帮助器允许您扩展现有类，而无需实际修改或继承它。

要扩展VCL的TStrings类，您需要声明并实现一个类助手，如下所示：

type TStringsHelper = class helper for TStrings public function Contains(const aString : string) : boolean; end;

上述名为“TStringsHelper”的类是TStrings类型的类帮助器。请注意，TStrings是在Classes.pas中定义的，例如，对于任何Delphi表单的单位，默认情况下，该单位在uses子句中可用。

我们使用类帮助器添加到TStrings类型的函数是“Contains”。实施过程可能如下所示：

function TStringsHelper.Contains(const aString: string): boolean; begin result := -1 <> IndexOf(aString); end;

我敢肯定，您在代码中多次使用了上述方法，以检查某些TStrings子体（如TStringList）的Items集合中是否有字符串值。

请注意，例如，TComboBox或TListBox的Items属性属于TStrings类型。

在实现了TStringsHelper和表单上的列表框（名为“ListBox1”）之后，您现在可以使用以下命令检查某些字符串是否是列表框项属性的一部分：

if ListBox1.Items.Contains('some string') then ...

班上的帮手们走吧

类助手的实现对您的编码有一些积极的和一些（您可能会想到）消极的影响。

一般来说，您应该避免扩展自己的类—好像您需要向自己的自定义类添加一些新功能—直接在类实现中添加新内容—而不是使用类助手。

因此，当您不能（或不需要）依赖于正常的类继承和接口实现时，类帮助程序更适合于扩展类。

类帮助器不能声明实例数据，例如新的私有字段（或读/写此类字段的属性）。允许添加新的类字段。

类助手可以添加新方法（函数、过程）。

在DelphiXE3之前，您只能扩展类和记录-复杂类型。从Delphi XE 3版本中，您还可以扩展简单类型，如integer、string或TDateTime，并具有如下构造：

var s : string; begin s := 'Delphi XE3 helpers'; s := s.UpperCase.Reverse; end;

在不久的将来，我将写关于DelphiXE3Simple type helper的文章。

我的班级助手在哪里

使用类帮助器来帮助您“击倒自己”的一个限制是，您可以定义多个帮助器并将其与单个类型关联。但是，在源代码的任何特定位置中，只有零个或一个帮助程序适用。将应用最近范围中定义的帮助器。类或记录助手的作用域是以正常的Delphi方式确定的（例如，在单元的uses子句中从右向左）。

这意味着您可以在两个不同的单元中定义两个TstringHelper类帮助程序，但实际使用时只有一个适用！

如果在使用引入的方法的单元中没有定义类帮助器（大多数情况下都是这样），那么您不知道实际使用的是什么类帮助器实现。Tstring的两个类帮助器，命名不同或位于不同的单元中，对于上面示例中的“Contains”方法可能有不同的实现。

使用与否？

是的，但是要注意可能的副作用。

下面是对上述TStringsHelper类的另一个方便的扩展

TStringsHelper = class helper for TStrings private function GetTheObject(const aString: string): TObject; procedure SetTheObject(const aString: string; const Value: TObject); public property ObjectFor[const aString : string]: TObject read GetTheObject write SetTheObject; end; ... function TStringsHelper.GetTheObject(const aString: string): TObject; var idx : integer; begin result := nil; idx := IndexOf(aString); if idx > -1 then result := Objects[idx]; end; procedure TStringsHelper.SetTheObject(const aString: string; const Value: TObject); var idx : integer; begin idx := IndexOf(aString); if idx > -1 then Objects[idx] := Value; end;

如果一直在向字符串列表添加对象，则可以猜测何时使用上述handy helper属性。