Delphi7是一個非常出色的編程語言，支持多種編程方式，也可以輕松地讀取JSON字符串。JSON是一種輕量級的數據交換格式，它以人類可讀的方式來表示數據，常用于Web應用程序的數據交換。下面我們就來看看Delphi7如何讀取JSON。

procedure ReadJson;
var
json: TJSONObject;
str: string;
begin
str := '{"name":"Delphi","version":"7","author":"Borland"}';
try
json := TJSONObject.ParseJSONValue(str) as TJSONObject;
try
ShowMessage(json.GetValue('name').Value);
ShowMessage(json.GetValue('version').Value);
ShowMessage(json.GetValue('author').Value);
finally
json.Free;
end;
except
on E: Exception do
ShowMessage(E.Message);
end;
end;

以上代碼可以解析JSON字符串，并獲取其中的值。我們用了Delphi自帶的JSON處理類TJSONObject，并使用ParseJSONValue方法將JSON字符串解析成TJSONObject類的實例。接著，我們可以使用GetValue方法來獲取其中的值。

需要注意的是，GetValue方法返回的TJSONValue實例，需要使用Value屬性才能獲取到具體的值。GetValue方法的參數是JSON鍵的名稱，例如'author'表示獲取JSON對象中的author鍵對應的值。

以上就是Delphi7如何讀取JSON的方法，如果你需要在你的Delphi程序中讀取JSON，可以使用以上代碼作為參考。Delphi7是一個非常強大的軟件開發環境，它可以幫助你快速地開發各種類型的Window應用程序。