JSON
====
JSON parser.

It is `Variant` based and the parser must be freed.

```
var
  JsonParser: TJsonParser;
  Element: TJSONElement;
  I: Integer;
begin
  JsonParser := TJSONParser.Create();

  Element := JsonParser.AddObject('someObject');
  Element.AddValue('someInteger', 123);
  Element.AddValue('someString', 'HelloWorld');

  for I := 0 to Element.Count - 1 do
    WriteLn(Element.Item[I].ValueType);
end.
```

----

TJSONElement.Keys
-----------------
```
property TJSONElement.Keys: TStringArray;
```

----

TJSONElement.Values
-------------------
```
property TJSONElement.Values: TVariantArray;
```

----

TJSONElement.Count
------------------
```
property TJSONElement.Count: Integer;
```

----

TJSONElement.Item
-----------------
```
property TJSONElement.Item[Index: Integer]: TJSONElement;
```

----

TJSONElement.ValueType
----------------------
```
property TJSONElement.ValueType: EJSONValueType;
```

----

TJSONElement.Value
------------------
```
property TJSONElement.Value: Variant;
```
```
property TJSONElement.Value(NewValue: Variant);
```

----

TJSONElement.IsValue
--------------------
```
property TJSONElement.IsValue: Boolean;
```

----

TJSONElement.IsArray
--------------------
```
property TJSONElement.IsArray: Boolean;
```

----

TJSONElement.IsObject
---------------------
```
property TJSONElement.IsObject: Boolean;
```

----

TJSONElement.AsString
---------------------
```
property TJSONElement.AsString: String;
```

----

TJSONElement.AddValue
---------------------
```
procedure TJSONElement.AddValue(Key: String; Value: Variant);
```

----

TJSONElement.AddArray
---------------------
```
function TJSONElement.AddArray(Key: String): TJSONElement;
```

----

TJSONElement.AddArray
---------------------
```
function TJSONElement.AddArray(Key: String; Values: TVariantArray): TJSONElement;
```

----

TJSONElement.AddObject
----------------------
```
function TJSONElement.AddObject(Key: String): TJSONElement;
```

----

TJSONElement.AddNull
--------------------
```
function TJSONElement.AddNull(Key: String): TJSONElement;
```

----

TJSONElement.AddElement
-----------------------
```
procedure TJSONElement.AddElement(Key: String; Element: TJSONElement);
```

----

TJSONElement.Clone
------------------
```
function TJSONElement.Clone: TJSONElement;
```

----

TJSONElement.Delete
-------------------
```
procedure TJSONElement.Delete(Key: String);
```

----

TJSONElement.Delete
-------------------
```
procedure TJSONElement.Delete(Index: Integer);
```

----

TJSONElement.Clear
------------------
```
procedure TJSONElement.Clear;
```

----

TJSONElement.Find
-----------------
```
function TJSONElement.Find(Key: String; out Element: TJSONElement): Boolean;
```

----

TJSONElement.HasKey
-------------------
```
function TJSONElement.HasKey(Key: String): Boolean;
```

Returns `True` if the `Key` exists in the JSON object.

----

TJSONElement.HasKey
-------------------
```
function TJSONElement.HasKey(Keys: TStringArray): Boolean;
```

Returns `True` if **any** of the `Keys` exists in the JSON object.

----

TJSONElement.HasKeys
--------------------
```
function TJSONElement.HasKeys(Keys: TStringArray): Boolean;
```

Returns `True` if **all** `Keys` exists in the JSON object.

----

TJSONParser.Create
------------------
```
function TJSONParser.Create(Str: String = ''): TJSONParser; static;
```

Create a JSON Parser. Optional `Str` parameter which will parse the string into the parser.

- This needs to be free'd when finished.
- This is a `static` method.

Example:

```
var MyJsonParser: TJSONParser;
begin
  MyJsonParser := TJSONParser.Create();
  MyJsonParser.AddValue('someString', 'HelloWorld');
  MyJsonParser.AddValue('someInt', 1234);
  WriteLn MyJsonParser.AsString();
  MyJsonParser.Free();
end;
```

----

TJSONParser.CreateFromFile
--------------------------
```
function TJSONParser.CreateFromFile(FileName: String): TJSONParser; static;
```

Create a JSON parser from a json file.

- This needs to be free'd when finished.
- This is a `static` method.

Example:

```
var MyJsonParser: TJSONParser;
begin
  MyJsonParser := TJSONParser.CreateFromFile('somefile.json');
  WriteLn(MyJsonParser.Keys());
  MyJsonParser.Free();
end;
```

----

TJSONParser.SaveToFile
----------------------
```
function TJSONParser.SaveToFile(FileName: String): Boolean;
```

----

TJSONParser.Clear
-----------------
```
procedure TJSONParser.Clear;
```

----

TJSONParser.AddNull
--------------------
```
function TJSONParser.AddNull(Key: String): TJSONElement;
```

----

TJSONParser.AddValue
--------------------
```
procedure TJSONParser.AddValue(Key: String; Value: Variant);
```

----

TJSONParser.AddArray
--------------------
```
function TJSONParser.AddArray(Key: String): TJSONElement;
```
```
function TJSONParser.AddArray(Key: String; Values: TVariantArray): TSimbaJSONElement;
```

----

TJSONParser.AddObject
---------------------
```
function TJSONParser.AddObject(Key: String): TJSONElement;
```

----

TJSONParser.AddElement
----------------------
```
procedure TJSONParser.AddElement(Key: String; Element: TJSONElement);
```

----

TJSONParser.Find
----------------
```
function TJSONParser.Find(Key: String; out Element: TJSONElement): Boolean;
```

----

TJSONParser.Delete
------------------
```
procedure TJSONParser.Delete(Key: String);
```

----

TJSONParser.Delete
------------------
```
procedure TJSONParser.Delete(Index: Integer);
```

----

TJSONParser.FindPath
--------------------
```
function TJSONParser.FindPath(Path: String; out Element: TJSONElement): Boolean;
```

----

TJSONParser.HasKey
-------------------
```
function TJSONParser.HasKey(Key: String): Boolean;
```

Returns `True` if the `Key` exists in the root JSON parser.

----

TJSONParser.HasKey
-------------------
```
function TJSONParser.HasKey(Keys: TStringArray): Boolean;
```

Returns `True` if **any** of the `Keys` exists in the root JSON parser.

----

TJSONParser.HasKeys
--------------------
```
function TJSONParser.HasKeys(Keys: TStringArray): Boolean;
```

Returns `True` if **all** `Keys` exists in the root JSON parser.

----

TJSONParser.Count
-----------------
```
property TJSONParser.Count: Integer;
```

----

TJSONParser.Item
----------------
```
property TJSONParser.Item[Index: Integer]: TJSONElement;
```

----

TJSONParser.AsString
--------------------
```
property TJSONParser.AsString: String;
```

----

TJSONParser.Values
------------------
```
property TJSONParser.Values: TVariantArray;
```

----

TJSONParser.Keys
----------------
```
function TJSONParser.Keys: TStringArray;
```