728x90
델파이2010에선 JSON unit이 없어서 DBXJSON을 사용하여 json을 생성하는 방법입니다
uses
DBXJSON;
function makejson():string;
var
JTopObj, JObj : TJSONObject;
JArr : TJSONArray;
JPair : TJSONPair;
i : integer;
sTemp : String;
begin
JTopObj := TJSONObject.Create;
JArr := TJSONArray.Create;
for i := 1 to 3 do
begin
JObj := TJSONObject.Create;
JObj.AddPair(TJSONPair.Create('array_index', TJSONNumber.Create( i )));
JObj.AddPair(TJSONPair.Create('itemDate', '20210817'));
JObj.AddPair(TJSONPair.Create('itemname', 'egg' ));
JArr.AddElement(JObj);
end;
JPair := TJSONPair.Create( 'items', JArr );
JTopObj.AddPair(TJSONPair.Create('price','3000'));
JTopObj.AddPair(TJSONPair.Create('type','food'));
JTopObj.AddPair(JPair);
sTemp := JTopObj.ToString;
result := sTemp;
end;
위와 같이 생성가능하며 생성된 문구는 아래와 같습니다
{"price":"3000","type":"food",
"items":[{"array_index":1,"itemDate":"20200708","itemname":"egg"},
{"array_index":2,"itemDate":"20200708","itemname":"egg"}]}
728x90
'운동하는 개발자 > Delphi' 카테고리의 다른 글
델파이 windows10 한글 깨짐 / edit 창 한글 커서 오류 (d2codingfont) (0) | 2021.09.23 |
---|---|
delphi 각종 윈도우 경로 읽기 get windows path / SHGetSpecialFolderPath (0) | 2021.08.19 |
델파이 idhttp 에러메세지 내용 확인 / idhttp error message (0) | 2021.07.06 |
델파이 JSON String 파싱 / delphi json parsing (0) | 2021.07.02 |
델파이 중복 실행 (델파이 다중 실행 IDE 두개 켜기) (0) | 2021.06.16 |