Hello all,

JSON is a very easy format to handle with Freepascal. However, the output is not so readable when the number of registers increase. An example of it is:

program test;
{$mode objfpc}{$H+}
uses
classes, fpjson;
var
r, j: TJSONObject;
a: TJSONArray;
s: TStringlist;
BEGIN
s := TStringlist.create;
r := TJSONObject.create;
a := TJSONarray.create;
j := TJsonObject.create;
j.strings['name'] := 'Luciano de Souza';
j.integers['age'] := 38;
j.strings['city'] := 'Niterói';
j.strings['country'] := 'Brazil';
a.add(j.clone);
j.clear;
j.strings['name'] := 'Mariella Molinari';
j.integers['age'] := 29;
j.strings['city'] := 'Padova';
j.strings['country'] := 'Italy';
a.add(j.clone);
r.add('people', a);
s.text := r.AsJson;
s.SavetoFile('test.txt');
try
finally
j.free;
r.free;
s.free;
end;
END.

The corresponding output is:

{ "people" : [{ "name" : "Luciano de Souza", "age" : 38, "city" : "Niterói", "country" : "Brazil" }, { "name" : "Mariella Molinari", "age" : 29, "city" : "Padova", "country" : "Italy" }] }

My question is: is there a way to automatically format it? Breaking lines? Becoming easy the reading?

[snip]

s.text := r.AsJson; s.SavetoFile('test.txt');

[snip]

TJSONData.AsJSON basically uses the format options "foSingleLineArray, foSingleLineObject" (it's not implemented that way though, put it appears like this ^^). To manually influence this you should take a look at TJSONData.FormatJSON.

Regards,
Sven

[snip]

Yes. Use the FormatJSON function.
Note that it is slower than the AsJSON function, because of the formatting.

Michael.