record property

Smart pascal source code


type
  TTest = record
    Field: Integer;
    property Prop: Integer read Field write Field;
  end;

procedure Stuff(const t: TTest);
begin
  t.Prop := t.Prop + 333; // property bypass 'const' as in Delphi
end;

var t: TTest := (Field: 123);

WriteLn(t.Field);
Stuff(t);
WriteLn(t.Field);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
123
456

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

function Copy$TTest(s,d) {
   d.Field=s.Field;
   return d;
}
function Clone$TTest($) {
   return {
      Field:$.Field
   }
}
function Stuff(t$1) {
   t$1.Field+=333;
};
var t = {Field:0};

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

   t = {Field:123};
   WriteLn(t.Field);
   Stuff(t);
   WriteLn(t.Field);