lkJSON-Delphi下使用json数据格式

program sample1;
{$APPTYPE CONSOLE}
uses
SysUtils,
uLkJSON in 'uLkJSON.pas';
var
js:TlkJSONobject;
ws: TlkJSONstring;
s: String;
i: Integer;
begin
js := TlkJSONobject.Create;
//  js.add('namestring', TlkJSONstring.Generate('namevalue'));
js.Add('namestring','namevalue');
// get the text of object
s := TlkJSON.GenerateText(js);
writeln(s);
writeln;
writeln('more readable variant:');
// (ver 1.03+) generate readable text
i := 0;
s := GenerateReadableText(js,i);
writeln(s);
js.Free;
// restore object (parse text)
js := TlkJSON.ParseText(s) as TlkJSONobject;
// and get string back
// old syntax
ws := js.Field['namestring'] as TlkJSONstring;
s := ws.Value;
writeln(s);
// syntax of 0.99+
s := js.getString('namestring');
writeln(s);
readln;
js.Free;
end.