Delphi是一種編程語言和開發環境,它能夠輕松處理JSON格式的數據。
JSON是JavaScript Object Notation的縮寫,是用于存儲和交換數據的一種文本格式,非常流行。
var
json: TJSONObject;
begin
json := TJSONObject.Create; // 創建JSON對象
try
json.AddPair('name', 'John'); // 添加鍵值對
json.AddPair('age', 30);
Memo1.Lines.Add(json.ToString); // 輸出JSON字符串
finally
json.Free; // 釋放JSON對象
end;
在上面的例子中,我們使用了Delphi的TJSONObject類來創建一個JSON對象,并添加一對鍵和值,最后輸出JSON字符串。
如果我們要讀取一個JSON字符串,可以使用TJSONObject.ParseJSONValue方法:
var
jsonStr: string;
json: TJSONObject;
begin
jsonStr := '{"name":"John","age":30}';
json := TJSONObject.ParseJSONValue(jsonStr) as TJSONObject; // 將JSON字符串解析為JSON對象
try
Memo1.Lines.Add(json.GetValue('name').Value); // 輸出鍵'name'的值
Memo1.Lines.Add(json.GetValue('age').Value);
finally
json.Free; // 釋放JSON對象
end;
在這個例子中,我們將一個JSON字符串解析為JSON對象,并使用TJSONValue.GetValue方法獲取指定鍵的值。
Delphi提供了豐富的JSON處理功能,包括數組、嵌套對象、日期時間等類型,可以輕松地完成JSON數據的讀取和寫入。