delphi生成JSON格式字符串的一个简单的类


unit JsonUtilUnt;

interface

type

TJSONTokener = class(TObject)

private

jsonStr:WideString;

public

constructor Create;

destructor destroy;override;

procedure AddElement(nodeName,nodeValue:String);

procedure ClearElement;

function toString:WideString;

end;

implementation

{ TJSONTokener }

constructor TJSONTokener.Create;

begin

inherited;

end;

destructor TJSONTokener.destroy;

begin

inherited;

end;

procedure TJSONTokener.AddElement(nodeName,nodeValue:String);

begin

if length(jsonStr)>0 then

jsonStr:=ConCat(jsonStr,',"',nodeName,'":',nodeValue)

else

jsonStr:=ConCat(jsonStr,'"',nodeName,'":',nodeValue);

end;

procedure TJSONTokener.ClearElement;

begin

jsonStr:='';

end;

function TJSONTokener.toString:WideString;

begin

Result:=ConCat('{',jsonStr,'}');

end;

end.