json 문자열 파싱(parsing)

uses 절 DBXJSON, System.JSON  추가

procedure TfrmJSON.Button1Click(Sender: TObject);

var jv: TJSONValue;

    str, json_str: string;

begin

json_str:= 

'{

"No": one",

"myname": "Tom",

"age": "52"

}';

jv := TJSONObject.ParseJSONValue(json_str);

str := jv.GetValue<string>('No');

mmLogs.Lines.Add('"No" -> ' + str);

str := jv.GetValue<string>('myname');

mmLogs.Lines.Add('"myname" -> ' + str);

str := jv.GetValue<string>('age');

mmLogs.Lines.Add('"age" -> ' + str);

str := jv.GetValue<string>('addr', '없다');    //name 에 해당하는 value가 없을 때 기본값 설정

mmLogs.Lines.Add('"addr" -> ' + str);

end;