Delphi XE10是一款十分強大的開發(fā)工具,可以用來開發(fā)各種類型的應(yīng)用程序。其中,JSON(JavaScript Object Notation)也是Delphi XE10支持的一種數(shù)據(jù)格式。
var
jsonStr: string;
jsonObj: TJSONObject;
jsonArray: TJSONArray;
begin
// 創(chuàng)建一個JSON對象
jsonObj := TJSONObject.Create;
try
jsonObj.AddPair('Name', TJSONString.Create('Peter'));
jsonObj.AddPair('Age', TJSONNumber.Create(30));
// 將這個JSON對象轉(zhuǎn)換成字符串表示
jsonStr := jsonObj.ToString;
ShowMessage(jsonStr);
finally
jsonObj.Free;
end;
// 創(chuàng)建一個JSON數(shù)組
jsonArray := TJSONArray.Create;
try
jsonArray.Add(TJSONString.Create('Delphi XE10'));
jsonArray.Add(TJSONString.Create('JSON'));
// 將這個JSON數(shù)組轉(zhuǎn)換成字符串表示
jsonStr := jsonArray.ToString;
ShowMessage(jsonStr);
finally
jsonArray.Free;
end;
end;
上述代碼演示了如何使用Delphi XE10來創(chuàng)建一個JSON對象和一個JSON數(shù)組,以及將它們轉(zhuǎn)換成字符串格式輸出??梢园l(fā)現(xiàn),Delphi XE10提供了非常方便的API來操作JSON數(shù)據(jù)。