Another way to add an array of string nodes would be:
procedure AppendStrings(Node: TJsonNode; Strings: TStrings);
var
S: string;
begin
Node := Node.Add('Strings').AsArray;
for S in Strings do
Node.Add.AsString := S;
end;
If Strings contained `apple, banana, cucumber, doughnut` then after using the `AppendStrings` code above Node would at minumum look like:
{ "Strings": ["apple", "banana", "cucumber", "doughnut"] }