如何用delphi处理json格式的数据？ 用 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. 

关于json以及这个unit的用处就不用多说了吧？