在Delphi開發中，JSON是一種常見的數據格式，用于數據的傳輸和存儲。當我們需要在Delphi中處理JSON數據時，通常需要將JSON轉換成內存中的實體對象。本文將介紹如何使用Delphi進行JSON轉實體。

Delphi中有一個重要的JSON庫SuperObject，它可以方便地將JSON數據轉換為內存對象，同時也可以將內存對象轉換為JSON。使用SuperObject進行JSON轉實體的步驟如下：

var
jsonStr: string;
jsonObj, itemObj: ISuperObject;
itemList: TSuperArray;
entity: TMyEntity;
begin
// 1. 讀取JSON字符串
jsonStr := '{"name":"Tom", "age": 18, "items":[{"name":"item1", "price":10.0}, {"name":"item2", "price":20.0}]}';
// 2. 解析JSON
jsonObj := SO(jsonStr);
// 3. 讀取屬性值并賦給實體對象
entity := TMyEntity.Create;
try
entity.Name := jsonObj.S['name'];
entity.Age := jsonObj.I['age'];
// 4. 讀取內嵌對象數組并賦給實體對象
itemList := jsonObj.A['items'];
for itemObj in itemList do
begin
entity.Items.Add(
TMyItem.Create(
itemObj.S['name'],
itemObj.F['price']
)
);
end;
// 5. 使用實體對象
ShowMessage(entity.ToString);
finally
entity.Free;
end;
end;

以上代碼演示了一個簡單的例子，將一個包含內嵌對象數組的JSON字符串轉換為一個實體對象。

總結來說，使用Delphi進行JSON轉實體可以采用SuperObject這個常用的JSON庫，通過解析JSON字符串、讀取屬性值和內嵌對象數組等操作來實現。