아래 글을 보기전에 먼저 JSON 포맷에 대해 이해하고 있어야 하며, UJSON 라이브러리에 대한 간략한 이해가 필요하므로 아래에 링크된 글을 먼저 읽어보시면 도움이 됩니다.
물론 코드 자체만으로도 이해가 가능하긴 하지만요. ^^;
이전글 : 델파이에서 JSON 사용하기 [lkJSON] Vs [uJSon]
JSON 포맷에서
{"topRank", ["ch_userid":"cup", "prgid":"prg", "runtime":"run", "thumbnail_path":"resol"]}
와 같이 Array를 취급하는 방법으로 회사동료 "남광진"씨가 작업하였음.
변수를 3개나 사용하였다는것이 걸리는점인데, 추후 보강하면 업데이트 할 예정.
var
mJson, sJson: TJsonObject;
aJson: TJSONArray;
begin
try
mJson:= TJsonObject.create;
sJson:= TJsonObject.create;
aJson:= TJSONArray.create;
mJson.put('topRank', aJson);
aJson.put(sJson);
sJson.put('ch_userid','cup');
sJson.put('prgid','prg');
sJson.put('runtime','run');
sJson.put('thumbnail_path','resol');
memo1.Lines.Add(mJson.toString);
finally
mJson.Free;
end;