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;
'델파이' 카테고리의 다른 글
윈도우10 1803 버전 업데이트후 델파이 2007 프로젝트 opening 에러 Borland.Delphi.Targets (0) | 2019.08.26 |
---|---|
TStringGrid 셀 내용 클립보드 복사 (0) | 2019.08.22 |
DBGrid 컬럼 Width 화면 크기에 따라 자동 변경하기 (0) | 2019.03.05 |
TMemo 모든 내용(행, Line) 보이게 세로 크기 늘리기 (0) | 2019.02.15 |
TMemo 모든 내용(행, Line) 보이게 세로 크기 늘리기 (0) | 2019.01.04 |