Array of Record Type Add Create

Smart pascal source code


type
  TRec = record
    name: string;
    id: integer;
    //why doesn't constructor syntax work here?!?
    class function Create(id: integer; name: string): TRec;
  end;

class function TRec.Create(id: integer; name: string): TRec;
begin
  result.id := id;
  result.name := name;
end;

procedure Testing;
var
  recs: array of TRec;
  r : Trec;
begin
  recs.add(TRec.Create(1, 'A'));
  r:=TRec.Create(2, 'b');
  recs.Add(r);

  writeln(recs[0].id);
  writeln(recs[0].name);
  writeln(format('%s', [recs[0].name]));
  writeln(recs[1].id);
  writeln(recs[1].name);
  writeln(format('%s', [recs[1].name]));
end;

{ unit1.pas }
begin
testing;

{ CONSOLE OUTPUT
  1AA
  2bb
}

function Testing() {
   var recs = [],
      r = {name$1:"",id:0};
   recs.push(Create$5(1,"A"));
   r = Create$5(2,"b");
   recs.push(Clone$TRec(r));
   WriteLn(recs[0].id);
   WriteLn(recs[0].name$1);
   WriteLn((recs[0].name$1.toString()));
   WriteLn(recs[1].id);
   WriteLn(recs[1].name$1);
   WriteLn((recs[1].name$1.toString()));
};

function Copy$TRec(s,d) {
   d.name$1=s.name$1;
   d.id=s.id;
   return d;
}
function Clone$TRec($) {
   return {
      name$1:$.name$1,
      id:$.id
   }
}

function Create$5(id$1, name$2) {
   var Result = {name$1:"",id:0};
   Result.id = id$1;
   Result.name$1 = name$2;
   return Result
}