Delphi XE高級寫JSON

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

創建JSON對象

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

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

添加屬性

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

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

創建數組

要創建一個JSON數組，我們可以使用TJSONArray類。例如：

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

將項目添加到數組

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

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

將JSON字符串轉換為對象

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

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

將對象轉換為JSON字符串

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

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