A new design for a JSON Parser

[sysrpl]

Another way to add an array of string nodes would be:

Code: Pascal  [Select][+][-]

1. procedure AppendStrings(Node: TJsonNode; Strings: TStrings);
2. var
3.   S: string;
4. begin
5.   Node := Node.Add('Strings').AsArray;
6.   for S in Strings do
7.     Node.Add.AsString := S;
8. end;

If Strings contained `apple, banana, cucumber, doughnut` then after using the `AppendStrings` code above Node would at minumum look like:

Code: Text  [Select][+][-]

1. { "Strings": ["apple", "banana", "cucumber", "doughnut"] }

[zoltanleo]

Hi sysrpl.

Thank a lot. I try to use it.

Upd: I already wanted to be glad that you have added a new convenient procedure to the module. I was wrong.
I found a workaround a long time ago by following @engkin's advice. I was hoping you would add one more to some useful features.