最近项目中要使用Json交换数据，曾有印象Delphi2009的宣传文章中已经支持Json了，我想2010中应该也会有吧。用Json这个词在安装目录搜索了一番，却只找到DBXJSON和DBXJSONReflect，从名字上看就已经很失望了。但还是不死心，于是进去看看源代码。果然只是给DataSnap准备的。

既然官方不支持，只能自谋生路了，看过万一老师推荐的JSON – SuperObject v1.1应该也是不错的东西，不过我不太喜欢接口调用，就没有仔细去看了。

Json的官方网站上也列出了一个For Delphi的库，名字是：lkjson( 官方网站 )。于是下载下来，大致看了一下代码很轻量。

由于刚入手还不了解，简单说一下使用方法：

1，载入

var Jso: TlkJSONbase;

begin

Jso:=TlkJSON.ParseText(Memo1.Text);

从字符串中载入Json，并返回一个TlkJSONbase对象，当然使用完毕后记得释放掉它。

2，节点处理

TlkJSONbase是所有Json总类的父类，通过它的SelfType方法可以获取节点的类型，然后根据类型把它转化成相应的类去操作。

例如 (Json as TlkJSONObject)

下面列出全部的类型与操作说明：

jsBase

值对类型。相关类：TlkJSONobjectmethod。

(Json as TlkJSONobjectmethod).Name: 节点的名称

(Json as TlkJSONobjectmethod).ObjValue: 节点的值，注意ObjValue的类型还是TlkJSONbase依然需要用SelfType来判断具体类型。

jsList,

数组类型。相关类：TlkJSONlist

(Json as TlkJSONlist).Count：获取数组的长度。

(Json as TlkJSONlist).IndexOf(n): 获取数组的第N个元素，返回值依然是TlkJSONbase。

jsObject

对象类型。相关类：TlkJSONObject。

(Json as TlkJSONObject).Name: 获取属性的长度

(Json as TlkJSONObject).IndexOfName('N'): 获取名为N的属性的值，返回值依然是TlkJSONbase。

jsNumber,

整数或浮点数，可以用Value来直接获取，不用转化类了。

jsString,

字符串。同上。

jsBoolean,

布尔值，同上。

jsNull,

空值，同上。

3，介于以上理解为了加深印象我写了一个简单的json格式化函数。

uses uLkJSON;function FormatJson(Jso: TlkJSONbase; Level:Integer): String;
var I:Integer;
begin   if Jso is TlkJSONobjectmethod then beginwith TlkJSONobjectMethod(Jso) do beginResult:='"'+Name+'" : ';Jso:=ObjValue;end;end else Result:='';TlkJSONObject(Jso).IndexOfName()if Jso is TlkJSONObject then beginResult:=Result+'{'#13#10;for I := 0 to Jso.Count - 1 do beginResult:=Result+StringOfChar(#9,Level+1)+FormatJson(Jso.Child[I],Level+1);if I<>Jso.Count-1 thenResult:=Result+','#13#10elseResult:=Result+#13#10;end;Result:=Result+StringOfChar(#9,Level)+'}';endelse if Jso is TlkJSONlist then begin    Result:=Result+'['#13#10;for I := 0 to Jso.Count - 1 do beginResult:=Result+StringOfChar(#9,Level+1)+FormatJson(Jso.Child[I],Level+1);if I<>Jso.Count-1 then Result:=Result+','#13#10elseResult:=Result+#13#10;end;Result:=Result+StringOfChar(#9,Level)+']';endelse begin if Jso.SelfType=jsString then Result:=Result+'"'+Jso.Value+'"'elseResult:=Result+VarToStr(Jso.Value);       end;
end;procedure TForm20.Button1Click(Sender: TObject);
var Jso: TlkJSONbase;
beginJso := TlkJSON.ParseText(Memo1.Text);tryMemo1.Clear;Memo1.Text := FormatJson(Jso,0);finallyJso.Free;end;
end;