record var as prop

Smart pascal source code


type
  TBase = record
    Field: Integer;
    class var   v: Integer;
    property rv: Integer read v;
    property wv: Integer write v;
    property rwv: Integer read v write v;
  end;

TBase.v := 1;
WriteLn(TBase.rv);
TBase.wv := 2;
WriteLn(TBase.rwv);
TBase.rwv := 3;
WriteLn(TBase.v);

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

function Copy$TBase(s,d) {
   return d;
}
function Clone$TBase($) {
   return {

   }
}
var v = 0;

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

   v = 1;
   WriteLn(v);
   v = 2;
   WriteLn(v);
   v = 3;
   WriteLn(v);