<?pas
var jsonObj := JSON.NewObject;

// Building JSON
jsonObj.name := 'DWScript';
jsonObj.version := 2.0;
jsonObj.active := True;

var tags := JSON.NewArray;
tags.Add('pascal');
tags.Add('web');
tags.Add('scripting');

jsonObj.tags := tags;

PrintLn('<b>Generated JSON:</b>');
PrintLn('<pre>' + JSON.Stringify(jsonObj) + '</pre>');

// Parsing JSON
var jsonStr := JSON.Stringify(jsonObj);
var parsedObj := JSON.Parse(jsonStr);

PrintLn('<b>Parsed Data:</b>');
PrintLn('Name: ' + parsedObj.name);
PrintLn('Active: ' + (if parsedObj.active then 'Yes' else 'No'));
PrintLn('First Tag: ' + parsedObj.tags[0]);
?>