今天我們來學(xué)習(xí)一下在Delphi中如何添加一個JSON數(shù)組。

var
s: string;
jsonArray: TJSONArray;
jsonObject: TJSONObject;
begin
jsonArray:= TJSONArray.Create;
jsonObject:= TJSONObject.Create;
jsonObject.AddPair('name', 'John');
jsonObject.AddPair('age', 25);
jsonArray.Add(jsonObject);
jsonObject:= TJSONObject.Create;
jsonObject.AddPair('name', 'Jane');
jsonObject.AddPair('age', 28);
jsonArray.Add(jsonObject);
s:= jsonArray.ToJSON;
ShowMessage(s);
end;

代碼中，我們首先創(chuàng)建了一個TJSONArray對象，然后創(chuàng)建了兩個TJSONObject對象，并將它們添加到了數(shù)組中。最后，我們將數(shù)組轉(zhuǎn)換成了JSON字符串并通過ShowMessage函數(shù)進(jìn)行展示。

通過上述代碼，我們可以看到在Delphi中創(chuàng)建JSON數(shù)組是一件非常簡單的事情。希望這篇文章能夠幫助大家更好地使用JSON。