将新字段插入JSON文件

Question

如何在JSON文件中插入或添加新字段？我用lkjson btw。

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。