Smart pascal source code


type
  TMyClass = class
    Field: Float;
    constructor Create(var value: Float);
  end;

constructor TMyClass.Create(var value: Float);
begin
  Field := value;
  value := value / 2;
end;

var f: Float = 1 + 0.5;
var o: TMyClass = TMyClass.Create(f);
var o2: TMyClass;

o2 := o;
WriteLn(FloatToStr(o.Field));

o2 := TMyClass.Create(f);

WriteLn(FloatToStr(o2.Field));
WriteLn(FloatToStr(o.Field));

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1.5
0.75
1.5

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

var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = 0;
   }
   ,Create$3:function(Self, value$1) {
      $Check(Self,"").Field = value$1.v;
      value$1.v/=2;
      return Self
   }
   ,Destroy:TObject.Destroy
};
var f = {v:0},
   o = null,
   o2 = null;

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

   f.v = 1.5;
   o = TMyClass.Create$3($New(TMyClass),f);
   o2 = o;
   WriteLn(FloatToStr$_Float_($Check(o,"").Field));
   o2 = TMyClass.Create$3($New(TMyClass),f);
   WriteLn(FloatToStr$_Float_($Check(o2,"").Field));
   WriteLn(FloatToStr$_Float_($Check(o,"").Field));