Delphi7提供了許多處理JSON數據的工具。在此我們將介紹如何使用Delphi7遍歷JSON數據。

uses
JSON;
var
jsonObj: TJSONObject;
jsonArr: TJSONArray;
jsonValue: TJSONValue;
i: Integer;
begin
jsonObj := TJSONObject.ParseJSONValue('{"name":"John", "age":30, "city":"New York"}') as TJSONObject;
try
for i := 0 to jsonObj.Count - 1 do // 遍歷對象中的所有項
begin
jsonValue := jsonObj.Pairs[i].JsonValue; // 獲取鍵對應的值
Writeln(jsonObj.Pairs[i].JsonString.Value + ': ' + jsonValue.Value); // 輸出鍵與值
end;
jsonArr := TJSONArray.ParseJSONValue('[1, 2, 3, 4]') as TJSONArray;
try
for i := 0 to jsonArr.Count - 1 do // 遍歷數組中的所有項
begin
jsonValue := jsonArr.Items[i]; // 獲取數組的項
Writeln(jsonValue.Value); // 輸出項的值
end;
finally
jsonArr.Free;
end;
finally
jsonObj.Free;
end;
end;

上述代碼演示了如何遍歷JSON對象和JSON數組。通過TJSONObject和TJSONArray類，我們可以輕松解析和操作JSON數據。同時，Delphi7還提供了一些其他的JSON處理工具，使得開發者可以更加便捷地處理JSON數據。