[fpc-devel] JSON Beautifier

[theo]

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