record method 2

Smart pascal source code


Type
  TRec = Record
    Field: String;

    Function GetName: String;
    Begin
      Result := 'Hello ' + Field;
    End;

    procedure SetExclamation;
    begin
      Field := Field + '!';
    end;
  End;

Function GetRec: TRec;
Begin
  Result.Field := 'World';
End;

WriteLn(GetRec.GetName);

var r := GetRec;
r.SetExclamation;
WriteLn(r.GetName);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Hello World
Hello World!
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TRec(s,d) {
   d.Field=s.Field;
   return d;
}
function Clone$TRec($) {
   return {
      Field:$.Field
   }
}
function TRec$GetName(Self$1) {
   return "Hello "+Self$1.Field;
}
function TRec$SetExclamation(Self$2) {
   Self$2.Field = Self$2.Field+"!";
}
function GetRec() {
   var Result = {Field:""};
   Result.Field = "World";
   return Result
};
var r = {Field:""};

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

   WriteLn(TRec$GetName(GetRec()));
   r = GetRec();
   TRec$SetExclamation(r);
   WriteLn(TRec$GetName(r));