Delphi XE高級寫JSON

Delphi XE是一個功能強大的開發(fā)工具，它支持各種數(shù)據(jù)格式，包括JSON。在Delphi XE中，我們可以使用TJSONObject和TJSONArray兩個類來處理JSON數(shù)據(jù)。

創(chuàng)建JSON對象

要創(chuàng)建一個JSON對象，我們可以使用TJSONObject類。例如：

var
jsonObject: TJSONObject;
begin
jsonObject := TJSONObject.Create;
end;

添加屬性

添加屬性非常簡單，我們可以使用AddPair方法。例如：

jsonObject.AddPair('name', 'John');
jsonObject.AddPair('age', 30);

創(chuàng)建數(shù)組

要創(chuàng)建一個JSON數(shù)組，我們可以使用TJSONArray類。例如：

var
jsonArray: TJSONArray;
begin
jsonArray := TJSONArray.Create;
end;

將項目添加到數(shù)組

我們可以使用Add方法將項目添加到數(shù)組中。例如：

jsonArray.Add('apple');
jsonArray.Add('banana');

將JSON字符串轉(zhuǎn)換為對象

我們可以使用TJSONObject.ParseJSONValue方法將JSON字符串轉(zhuǎn)換為對象。例如：

var
jsonString: string;
jsonObject: TJSONObject;
begin
jsonString := '{"name":"John","age":30}';
jsonObject := TJSONObject.ParseJSONValue(jsonString) as TJSONObject;
end;

將對象轉(zhuǎn)換為JSON字符串

我們可以使用ToString方法將JSON對象轉(zhuǎn)換為JSON字符串。例如：

var
jsonObject: TJSONObject;
jsonString: string;
begin
jsonObject := TJSONObject.Create;
jsonObject.AddPair('name', 'John');
jsonObject.AddPair('age', 30);
jsonString := jsonObject.ToString;
end;