{$modeswitch typehelpers}
type
{ TMyBooleanHelper }
TMyBooleanHelper = type helper(TBooleanHelper) for Boolean
function ToBoolStr: String;
end;
implementation
{ TMyBooleanHelper }
function TMyBooleanHelper.ToBoolStr: String;
begin
Result:=Self.ToString(TUseBoolStrs.True);
end;
....
var B:Boolean;
begin
B:=True;
Caption:=B.ToBoolStr+False.ToBoolStr;
end;
TMyBooleanHelper = type helper(TBooleanHelper) for Boolean
function ToBoolStr: String; inline;
end;
...
function TMyBooleanHelper.ToBoolStr: String;
begin
Result:=BoolToStr(Self,True);
end;