var param obj method

Smart pascal source code


type
  TRec = record
    Field: Integer;
  end;

type
  TObj = class
    procedure Pop(var a: TRec);
    begin
      a.Field := 2;
    end;

    procedure SetProp(v: TRec);
    begin
      WriteLn(v.Field);
    end;
    property Prop: TRec write SetProp;

    procedure Test;
    begin
      var       v: TRec;
      Pop(v);
      Prop := v;
    end;
  end;

var obj := new TObj;
obj.Test;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
2
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TObj = {
   $ClassName:"TObj",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Pop:function(Self, a) {
      a.Field = 2;
   }
   ,SetProp:function(Self, v) {
      WriteLn(v.Field);
   }
   ,Test:function(Self) {
      var v$1 = {Field:0};
      TObj.Pop(Self,v$1);
      TObj.SetProp(Self,Clone$TRec(v$1));
   }
   ,Destroy:TObject.Destroy
};
var obj = null;

/* <<< main JS >>> */

   obj = TObject.Create($New(TObj));
   TObj.Test(obj);