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..