Delphi7是一款經典的編程語言，其中使用JSON格式賦值是非常常見的操作。JSON是一種輕量級的數據交換格式，廣泛應用于前后端數據傳輸，具有易讀、易解析的特點。我們可以使用Delphi7自帶的擴展JSON類庫進行JSON數據的解析、構建和賦值等操作，而下面我們就來具體學習一下JSON的賦值操作：

var
s: string;
jv: TJSONValue;
jo: TJSONObject;
begin
s := '{"name":"Tom","age":18}';
jv := TJSONObject.ParseJSONValue(s);
//獲取JSON對象
if jv is TJSONObject then
begin
jo := jv as TJSONObject;
//獲取name和age的值，進行賦值
Edit1.Text := jo.GetValue('name').Value;
Edit2.Text := jo.GetValue('age').Value;
end;
end;

在上述代碼中，我們首先定義了一個字符串變量s，其中存儲了一個JSON格式的數據，包括名字和年齡。接著使用TJSONObject.ParseJSONValue方法將JSON字符串解析為JSON值對象jv。然后，使用條件語句判斷jv是否為TJSONObject類型，如果是，就將jv轉換為TJSONObject類型，并利用jo.GetValue方法獲取指定數據項的值，并使用Edit控件顯示出來。

總結來說，使用Delphi7進行JSON賦值操作，可以通過解析JSON字符串，將其轉換為JSON值對象，并使用內置方法獲取對應的鍵值對來進行賦值操作。JSON賦值操作在前后端數據交互中非常常見，對于Delphi7開發者而言，熟練使用JSON操作也是非常有必要的。