Smart pascal source code


type
  TSub = class
    procedure setVal(aKey, aValue: String);
    begin
      WriteLn(aKey + ',' + aValue);
    end;
    property Values[aKey: String]: String write setVal; default;
  end;

type
  TTest = class
    FSub: TSub;
    property Sub: TSub read FSub;
  end;

var data := new TTest;
    data.Sub.Values['ABC'] := '123';
    data.Sub['DEF'] := '456';

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
ABC,123
DEF,456
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TTest = {
   $ClassName:"TTest",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.FSub = null;
   }
   ,Destroy:TObject.Destroy
};
var TSub = {
   $ClassName:"TSub",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,setVal:function(Self, aKey, aValue) {
      WriteLn((aKey+","+aValue));
   }
   ,Destroy:TObject.Destroy
};
var data = null;

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

   data = TObject.Create($New(TTest));
   TSub.setVal($Check(data,"").FSub,"ABC","123");
   TSub.setVal($Check(data,"").FSub,"DEF","456");