我最近从使用ULKJson切换到SuperObject,并且一直在查看该软件包附带的示例,已经在大部分内容上有了一些进展,但似乎遇到了一些问题。更具体地说,我无法找到一个示例来显示如何访问类似于下面示例中的数组中的项。
{
"name": "John Smith",
"tel": 555-5555,
"age": 18,
"height": 1.8,
"place": [{"address": "PO Box 1234", "city": "Florida", "code": 2000},
{"address": "1 Sparrow street", "city": "Florida", "code": 2000}]
}
为了访问常规项目,我使用以下代码,看起来可以正常工作。
procedure TForm1.Button1Click(Sender: TObject);
var
SO : ISuperObject;
age, height, tel : Integer;
name : String;
begin
SO := TSuperObject.ParseFile('JSON.txt',true);
name := SO.S['name'];
age := SO.I['age'];
tel := SO.I['tel'];
height := SO.I['height'];
Memo1.Lines.Clear;
Memo1.Lines.Add('Name: ' + name);
Memo1.Lines.Add(#10#13);
Memo1.Lines.Add('Age: ' + age);
Memo1.Lines.Add(#10#13);
Memo1.Lines.Add('Telephone: ' + tel);
Memo1.Lines.Add(#10#13);
Memo1.Lines.Add('Height: ' + height);
Memo1.Lines.Add(#10#13);
end;
然而,我不确定如何访问Place数组中的项目,我相信我只是忽略了一些简单的东西,但我在演示中找不到任何示例来展示如何访问这些数据,希望这里的一位专家可以提供一些帮助或者至少指引我学习的指南。
示例集
对你来说无法编译或其他原因吗? - TLama