默认记录助手没有我想要的。
我在示例中为字符串:
重新放置了我自己的记录助手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;
可以继承记录助手吗?