델파이 JSON 파일 읽기(delphi Json File Read)

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 TJSONArray;

 

  FreeAndNil(apaging);

end;

 

==========================sampleTest.json==========================

{"list": [{
"TEST1": 1,
"TEST2": 2,
"TEST3": 3,
},
{
"TEST1": 4,
"TEST2": 5,
"TEST3": 6,
}]
}

==========================sampleTest.json==========================