将新字段插入 JSON 文件

Question

如何向 JSON 文件插入或添加新字段？我正在使用 lkjson 顺便说一句。

var
  js: TlkJSONobject;
  val : String;
begin
  js := TlkJSONstreamed.loadfromfile(jsonFile) as TlkJsonObject;
  try
    try
      val := js.Field['users'].Field[username].Field[value5].Value; //field value5 doesnt exist
    except
      //add field

    end;
    TlkJSONstreamed.SaveToFile(js, jsonFile);
  finally
    js.Free;
  end;
end;

Answer 1

像这样：

(js.Field['users'].Field[username] as TlkJSONobject).Add(value5, '1');

users 和 username 确实存在。