Delphi中處理JSON數據是一種非常常見的操作。JSON是當前常用的數據交換格式之一,可以輕松地進行不同編程語言之間的數據傳遞。
在Delphi中,處理JSON數據需要使用JsonDataObjects庫。這個庫提供了許多有用的JSON操作函數和對象,可以幫助我們輕松地解析和創建JSON數據。
uses JsonDataObjects; var json: TJsonObject; value: TJsonBaseObject; str: string; begin //創建一個JSON對象 json := TJsonObject.Create; //往JSON對象中添加屬性 json['name'] := 'Tom'; json['age'] := 18; json['gender'] := 'male'; //將JSON對象轉換為字符串 str := json.ToJSON; //輸出JSON字符串 writeln(str); //從JSON字符串中解析出JSON對象 value := TJSONObject.ParseString(str); //獲取JSON對象中的屬性值 writeln(value['name'].AsString); writeln(value['age'].AsInteger); writeln(value['gender'].AsString); //釋放JSON對象內存 json.Free; value.Free; end;
上述代碼演示了如何使用JsonDataObjects庫創建和解析JSON數據。首先創建一個TJsonObject對象,并向其中添加屬性。然后將JSON對象轉換為字符串并輸出。接著從字符串中解析出JSON對象,并獲取其中的屬性值。最后釋放JSON對象內存。