json - 使用 SuperObect 更改 Json

Question

我正在使用 SuperObject 来处理 Json/Delphi我有一个函数，它接受一个字符串并创建一个 var super 对象类型，我需要检查它是否有一个对象(在我的例子中是“smtp”)，如果没有，我创建。问题是:“smtp”有子项，例如 smtp.address，我必须创建 smtp 及其所有子项，但我的函数不起作用。

我的代码:

if js.o['smtp'] = nil then
  js.o['smtp'].S['address']:= 'justATest';

有人可以帮助我吗？

我正在使用带有 SuperObject Unit 的 Delphi 2007

Answer 1

if js['smtp'] = nil then
  js.S['smtp.address']:= 'justATest';