Smart pascal source code


type
  TRec = record
    A: Integer;
  end;

const
  cRec: TRec = (A: 1);

type
  TTest1 = class
    B: TRec = cRec;
  end;

type
  TTest2 = class
    B: TRec = (A: 2);
  end;

var r1 := new TTest1;
WriteLn(r1.B.A);

var r2 := new TTest2;
WriteLn(r2.B.A);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
2

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TTest2 = {
   $ClassName:"TTest2",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.B = {A$1:2};
   }
   ,Destroy:TObject.Destroy
};
var TTest1 = {
   $ClassName:"TTest1",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.B$1 = {A$1:1};
   }
   ,Destroy:TObject.Destroy
};
function Copy$TRec(s,d) {
   d.A$1=s.A$1;
   return d;
}
function Clone$TRec($) {
   return {
      A$1:$.A$1
   }
}
var r1 = null,
   r2 = null;

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

   r1 = TObject.Create($New(TTest1));
   WriteLn($Check(r1,"").B$1.A$1);
   r2 = TObject.Create($New(TTest2));
   WriteLn($Check(r2,"").B.A$1);