Delphi 是一種十分常用的面向對象編程語言，其開發環境中的數據表格控件非常有用。與此同時，JSON 格式也是現代化應用程序中常用的數據交換格式。在 Delphi 中，我們可以使用表格控件來讀取和顯示 JSON 數據。以下是一個解釋如何在 Delphi 中使用表格控件來讀取和顯示 JSON 數據的簡要指南。

procedure TForm1.Button1Click(Sender: TObject);
var
jsonValue: TJSONValue;
jsonArr: TJSONArray;
jsonItem: TJSONValue;
i: Integer;
begin
//創建一個新的 TJSONObject 對象
jsonValue := TJSONObject.ParseJSONValue(Memo1.Lines.Text);
//確保 jsonValue 不為空
if Assigned(jsonValue) then
begin
//確保 jsonValue 是 TJSONArray 類型
if jsonValue is TJSONArray then
begin
//將其轉換為 TJSONArray
jsonArr := TJSONArray(jsonValue);
//遍歷數組
for i := 0 to jsonArr.Size - 1 do
begin
//獲取當前項
jsonItem := jsonArr.Get(i);
//確保當前項是 TJSONObject
if jsonItem is TJSONObject then
begin
//將其轉換為 TJSONObject
ShowMessage(TJSONObject(jsonItem).GetValue('name').Value);
end;
end;
end;
end;
end;

在以上代碼示例中，我們通過解析 Memo1 中的 JSON 數據，創建一個新的 TJSONObject 對象，并將其轉換為 TJSONArray。隨后，遍歷該數組，并逐一檢查它是否為 TJSONObject。如果是，則將其轉換為 TJSONObject，然后使用 GetValue 方法來獲取 name 屬性的值。最后，將其顯示在消息框中。總體而言，以上代碼刻畫了在 Delphi 中讀取和顯示 JSON 數據的基本過程。