Arrays of Records in SmartMS ex 2

 Top 

Example code : Arrays of Records in SmartMS ex 2

type

 TTwoNames = array[0..2] of string;

 

 TMyRec = record

    Nome: TTwoNames;

  end;

 

const

  NAMES1: TTwoNames = ('Warley','Alex','Seven Lakes');

  NAMES2: TTwoNames = ('Osama','Bin Laden','Alcaida');

 

var  StringArraysList: array[0..1] of TMyRec = (

    (Nome: NAMES1),

    (Nome: NAMES2)

  );

 

 

procedure TForm1.W3Button9Click(Sender: TObject);

 var v : variant;

begin

 v := StringArraysList[1];

 WriteLn(v.Nome);

end;

Result is: ["Osama", "Bin Laden", "Alcaida"] 

----------

 

JS output

 

var StringArraysList = [{Nome:["","",""]},{Nome:["","",""]}];

var StringArraysList = [{Nome:["Warley","Alex","Seven Lakes"]},{Nome:["Osama","Bin Laden","Alcaida"]}];

 

function Clone$TMyRec($) {

   return {

      Nome:$.Nome.slice(0)

   }

}

 

function W3Button9Click(Self, Sender$12) {

      var v = undefined;

      v = Clone$TMyRec(StringArraysList[1]);

      WriteLn(v.Nome);

   }