Hello,
Has anybody written some pascal code to make the output of
"TJSONData.AsJSON" more readable for the human eye?
It is a one-liner, I'd like to have something like this (example
formatted with NetBeans IDE):
[{
"id":1,
"s_name":"startscreen",
"i_duration":5000,
"i_dayofweek":0,
"i_timetype":0,
"frames":[{
"id":1,
"layoutid":1,
"s_name":"top",
"i_top":10,
"i_left":200,
"i_width":200,
"i_height":200,
"texts":[{
"s_url":"http:\/\/www.test.ch\/lazarus\/",
"i_contenttype":1,
"s_html":"",
"s_name":"left",
"i_duration":5000,
"i_timetype":0,
"i_dayofweek":0
}]
etc.
Thank you
Theo
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
