델파이 JSON 생성 (서브아이템포함)

델파이 JSON 생성 (서브아이템포함)

 

user Json 추가

 

var

JTopObj, JObj : TJSONObject;

JArr : TJSONArray;

JPair : TJSONPair;

i : integer;

begin

JTopObj := TJSONObject.Create;

JArr := TJSONArray.Create;

 

for i := 1 to 2 do

begin

JObj := TJSONObject.Create; // Item block

JObj.AddPair('array_index', TJSONNumber.Create( i ) ); // Array index (option)

JObj.AddPair('itemDatetime', '20200708' );

JObj.AddPair('itemTaxAmount', TJSONNumber.Create( 20 ) );

JObj.AddPair('itemDescription', '' );

JObj.AddPair('itemUnit', '' );

JArr.AddElement( JObj );

end;

 

JPair := TJSONPair.Create( 'items', JArr );

JTopObj.AddPair('typeCode','0101');

JTopObj.AddPair('eseroSend','5');

JTopObj.AddPair( JPair ); // Insert to main block

 

Memo2.Text := JTopObj .ToString;

JTopObj .Free;