개발자의 사투

var tempObj : TJSONObject; begin tempObj := TJSONObject.Create; tempObj.AddPair('A', '1') tempObj.AddPair('B', '2') tempObj.AddPair('C', '3') showmessage(tempObj.Get('A').JsonValue.Value); // '1' end; array 찾아올때 ///(TJSONArray.Items[i] as TJSONObject).Get('A').JsonValue.Value;

uses System.IOUtils; var aJsonObject: TJTJSONObject; aJsonArray : TJSONArray; data: TBytes; tempString: String; begin aJsonObject:= nil; aJsonArray := nil; data := TEncoding.ASCII.GetBytes(TFile.ReadAllText('FILE_PATH' + 'sampleTest.json')); tempString := TEncoding.UTF8.GetString(data); apaging := TJSONObject.ParseJSONValue(tempString) as TJSONObject; aList := apaging.GetValue('list') as TJSONAr..