0

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

我在字符串示例中使用了自己的记录助手：

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;

可以继承记录助手吗？

4

0 回答 0