record method 4

Smart pascal source code


type
  TRec = record
    x: Integer;
    procedure test;
    begin
      writeln(x);
    end;
  end;

var r: TRec;

r.test;
r.x := 1;
r.test;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Errors >>>>
Hint: "println" does not match case of declaration ("PrintLn") [line: 4, column: 29]
Result >>>>
0
1
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TRec(s,d) {
   d.x=s.x;
   return d;
}
function Clone$TRec($) {
   return {
      x:$.x
   }
}
function TRec$test(Self$1) {
   WriteLn(Self$1.x);
}
var r = {x:0};

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

   TRec$test(r);
   r.x = 1;
   TRec$test(r);