Am 28.01.2014 12:29, schrieb luciano de souza:
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:
[snip]
s.text := r.AsJson;
s.SavetoFile('test.txt');
[snip]
The corresponding out
On Tue, 28 Jan 2014, luciano de souza wrote:
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:
[snip]
The corresponding output is:
{ "people" : [{ "name" : "Luciano de Souza"
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 := TStringli
