Delphi Json试用

简单试用一下Json

Uses System.Json

Var
	AJson : TJSONObject   //Json对象
	A: string;   //Json字符
begin
	AJson := TJSONObject.ParseJSONValue(tmpStr) as TJSONObject;
  	MM_2.Lines.Add('开始：');//MM_2为Memo控件，为了看一下效果。
	MM_2.Lines.Add('共有：' + IntToStr(AJson.Count));
	for I := 0 to AJson.Count - 1 do
	begin
    	A := A + AJson.Get(I).ToString;
	end;
	MM_2.Lines.Add(A);
end;