可继承的记录助手,怎么做?

时间:2013-08-06 08:55:28

标签: delphi delphi-xe

默认记录助手没有我想要的。

我在示例中为字符串:

重新放置了我自己的记录助手
type
  TArhStringHelper = record helper for
    string
    procedure ReplaceAll(aOldValue: string; aNewValue: string);
    procedure ReplaceTags(aUser: TUser);
    procedure ReplaceTagCounter(aInt: Integer);
    function FromRouterTime: string;
  end;

我发现了那个错误。我的记录助手覆盖了SysUtils中声明的默认TStringHelper,我无法使用并查看它的方法。

然后我为TStringHelper重写了record-helper,但结果是一样的。

type
  TArhStringHelper = record helper for
    TStringHelper
    procedure ReplaceAll(aOldValue: string; aNewValue: string);
    procedure ReplaceTags(aUser: TUser);
    procedure ReplaceTagCounter(aInt: Integer);
    function FromRouterTime: string;
  end;

可以继承记录助手吗?

0 个答案:

没有答案