Smart pascal source code


type
  TMyObj = class
    function this : TMyObj;
  end;

function TMyObj.this : TMyObj;
begin
   Result:=Self;
end;

var obj : TMyObj;
obj := TMyObj.Create;
WriteLn(obj.This); // --> {"ClassType":{"$ClassName":"TMyObj","$Parent":{"$ClassName":"TObject","$Parent":null}}}

var TMyObj = {
   $ClassName:"TMyObj",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// function TMyObj.this() : TMyObj
   ///  [line: 39, column: 17, file: uMain]
   ,this$1:function(Self) {
      var Result = null;
      Result = Self;
      return Result
   }
   ,Destroy:TObject.Destroy
};

      var obj = null;
      obj = TObject.Create($New(TMyObj));
      WriteLn(TMyObj.this$1(obj));