record field init

Smart pascal source code


type
  TRec = record
    Field: Integer = 1;
    Name := 'hello';
    procedure WriteLnMe;
    begin
      WriteLn(Field);
      WriteLn(Name);
    end;
  end;

var r: TRec;

r.WriteLnMe;

r.Field := 2;
r.Name := 'world';
r.WriteLnMe;

const
  cr1: TRec = (Field: 123);

const
  cr2: TRec = (Name: 'World');

cr1.WriteLnMe;
cr2.WriteLnMe;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
hello
2
world
123
hello
1
World
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TRec(s,d) {
   d.Field=s.Field;
   d.Name$3=s.Name$3;
   return d;
}
function Clone$TRec($) {
   return {
      Field:$.Field,
      Name$3:$.Name$3
   }
}
function TRec$WriteLnMe(Self$1) {
   WriteLn(Self$1.Field);
   WriteLn(Self$1.Name$3);
}
var r = {Field:1,Name$3:"hello"};

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

   TRec$WriteLnMe(r);
   r.Field = 2;
   r.Name$3 = "world";
   TRec$WriteLnMe(r);
   TRec$WriteLnMe({Field:123,Name$3:"hello"});
   TRec$WriteLnMe({Field:1,Name$3:"World"});