Delphi 是一種強大的編程語言,在處理 JSON 數組方面也是非常出色的。JSON(JavaScript Object Notation) 是一種輕量級的數據交換格式,具有良好的可讀性和易于處理的特性,被廣泛應用于各種 Web 應用程序。
使用 Delphi 處理 JSON 數組非常簡單。下面是 Delphi 中解析 JSON 數組的示例代碼:
var JSON: TJSONObject; MyArray: TJSONArray; i: Integer; begin JSON := TJSONObject.ParseJSONValue('{"MyArray": ["item1", "item2", "item3"]}') as TJSONObject; MyArray := JSON.GetValue('MyArray') as TJSONArray; for i := 0 to MyArray.Count - 1 do begin writeln(MyArray.Items[i].Value); //輸出 item1、item2、item3 end; end;
以上代碼通過 TJSONObject.ParseJSONValue 方法將 JSON 字符串轉換為 JSONObject 對象,并使用 GetValue 方法獲取 MyArray 數組,在循環中逐個輸出數組元素的值。
在 Delphi 中創建 JSON 數組同樣非常簡單,下面是一個創建 JSON 數組并序列化為字符串的示例代碼:
var MyArray: TJSONArray; JSON: TJSONObject; begin MyArray := TJSONArray.Create; MyArray.Add('item1'); MyArray.Add('item2'); MyArray.Add('item3'); JSON := TJSONObject.Create; JSON.AddPair('MyArray', MyArray); writeln(JSON.ToString); //輸出 {"MyArray":["item1","item2","item3"]} end;
以上代碼創建了一個 TJSONArray 對象,并添加了三個元素。使用 TJSONObject.Create 創建 JSON 對象,并使用 AddPair 方法添加 MyArray 數組。最后通過 ToString 方法將 JSON 對象序列化為字符串。
總之,Delphi 在處理 JSON 數組方面非常出色,使用簡單、方便,時下非常流行的 Web 應用程序中也廣泛采用。
上一篇VS怎么安裝vue