Código Delphi [-] var n: ArrayOfItem; ... setlength(n,1); n[0]:=Invoice_Body.create; n[0].Item_Descripcion:= tr_bl[1][0][0]; n[0].Item_Value := tr_bl[1][0][1]; result.Item:=copy(n);
var n: ArrayOfItem; ... setlength(n,1); n[0]:=Invoice_Body.create; n[0].Item_Descripcion:= tr_bl[1][0][0]; n[0].Item_Value := tr_bl[1][0][1]; result.Item:=copy(n);