Freepascal Helper Scope Test

program HelperScopeTest;

type

{ TMyObject }

TMyObject = class
public
      function GetString: string;
      function GetAnotherString: string;
end;

//=====Location A
//Prints
//       Helper String
//       Object String


//--- Block to move ---------------------------------
function TMyObject.GetAnotherString: string;
begin
     result:=GetString;
end;

function TMyObject.GetString: string;
begin
     result:='Object String';
end;
//---------------------------------------------------


type
    TMyObjectHelper = class helper for TMyObject
      function GetString: string;
    end;

//=====Location B
//Prints
//       Helper String
//       Helper String




function TMyObjectHelper.GetString: string;
begin
     result:='Helper String';
end;

begin
     with TMyObject.Create do
     begin
          WriteLn(GetString);
          WriteLn(GetAnotherString);
          Free;
     end;
end.