Insert new field to JSON file

Question

How can I insert or add a new Field to JSON file ? I'm using 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;

if you want this lazy approach with implicit creation I think you should use SuperObject library instead. While it might be somewhat slower. / http://stackoverflow.com/questions/16790006 / http://stackoverflow.com/questions/7731833 — Arioch 'The, Nov 27 '15 at 08:02

fantaghirocco · Accepted Answer · 2015-11-27T10:54:34.397

1

Like this:

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

Where users and username do exist.

edited Nov 27 '15 at 10:54

answered Nov 27 '15 at 10:04

fantaghirocco

4,761
6
38
48

Since the data may not be exactly as you expect, checked type cast should be preferred, replace `TlkJSONobject(...)` with `(... as TlkJSONobject)`. – David Heffernan Nov 27 '15 at 10:51
@DavidH you truly said that Master O:-) – fantaghirocco Nov 27 '15 at 10:55

Insert new field to JSON file

1 Answers1