Delphi 5 是一款老版本的開發工具，雖然已經被淘汰了，但對于一些老程序員來說，它仍然是一種熟悉的存在。那么在 Delphi 5 中如何讀取 JSON 數據呢？

procedure TForm1.Button1Click(Sender: TObject);
var
lJsonData: TJsonData;
lJsonParser: TJSONParser;
begin
lJsonParser := TJSONParser.Create(nil);
try
lJsonData := lJsonParser.Parse(TEncoding.UTF8.GetBytes(Memo1.Lines.Text), 0) as TJsonData;
try
if Assigned(lJsonData) then
begin
// 讀取 JSON 數據一般都是通過節點的方式進行
// 下面以一個例子演示如何讀取 JSON 中某個節點的數據
// 通過節點名稱讀取節點數據
ShowMessage(lJsonData.FindPath('name').AsString);
// 通過節點索引讀取節點數據
ShowMessage(lJsonData.Items[0].FindPath('amount').AsString);
// 遍歷 JSON 節點
for var i := 0 to lJsonData.Count - 1 do
begin
ShowMessage(lJsonData.Items[i].FindPath('name').AsString);
// ...
end;
end;
finally
lJsonData.Free;
end;
finally
lJsonParser.Free;
end;
end;

上述代碼中，我們使用了 Delphi 提供的 TJSONParser 和 TJsonData 類型來讀取 JSON 數據。通過 Parse 方法將 JSON 字符串轉換成 TJsonData 對象，然后就可以通過查找路徑或者使用索引來獲取 JSON 中的節點數據。

當然，該代碼僅僅是提供了一個簡單的示例，實際應用中還需要根據具體的需求進行代碼修改。