TBooleanHelper Fehler?

[theo]

Na gut, dann bastele ich mir eben selber was.

Code: Alles auswählen

{$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;

[PascalDragon]

Na gut, dann bastele ich mir eben selber was.

Du könntest deine ToBoolStr Methode noch mit inline markieren, dann wird der Compiler den zusätzlichen Aufruf wegoptimieren.

[theo]

Du könntest deine ToBoolStr Methode noch mit inline markieren, dann wird der Compiler den zusätzlichen Aufruf wegoptimieren.

Danke!
Ausserdem wäre es so eigentlich noch direkter:

Code: Alles auswählen

TMyBooleanHelper = type helper(TBooleanHelper) for Boolean
  function ToBoolStr: String; inline;
end;      
...
function TMyBooleanHelper.ToBoolStr: String;
begin
  Result:=BoolToStr(Self,True);
end;