Delphi是一種流行的編程語言，它可以用于生成JSON多層結構。JSON是一種用于在不同系統之間交換數據的格式。它是一種輕量級的數據交換格式，其結構包含鍵值對，這些鍵值對可以在不同的語言之間輕松共享。在Delphi中，我們可以使用TJSONObject類來生成JSON多層結構。

var
JsonObj, ChildJsonObj1, ChildJsonObj2, GrandChildJsonObj:TJSONObject;
JsonArray: TJSONArray;
begin
JsonObj:=TJSONObject.Create;
try
JsonObj.AddPair('name', 'Delphi JSON Example');
JsonObj.AddPair('description', 'Delphi example for generating JSON multi-layered structures');
ChildJsonObj1:=TJSONObject.Create;
ChildJsonObj1.AddPair('name', 'Child 1');
ChildJsonObj1.AddPair('description', 'This is the first child');
ChildJsonObj2:=TJSONObject.Create;
ChildJsonObj2.AddPair('name', 'Child 2');
ChildJsonObj2.AddPair('description', 'This is the second child');
GrandChildJsonObj:=TJSONObject.Create;
GrandChildJsonObj.AddPair('name', 'Grandchild');
GrandChildJsonObj.AddPair('description', 'This is a Grandchild object');
ChildJsonObj2.AddPair('grandchild', GrandChildJsonObj);
JsonArray:=TJSONArray.Create;
JsonArray.Add(ChildJsonObj1);
JsonArray.Add(ChildJsonObj2);
JsonObj.AddPair('children', JsonArray);
ShowMessage(JsonObj.ToString);
finally
JsonObj.Free;
end;
end;

在上面的代碼示例中，我們首先創建一個TJSONObject類的實例來表示我們要生成的JSON對象。然后，我們向其添加了兩個名為“name”和“description”的鍵值對。接下來，我們創建了兩個子對象（Child 1和Child 2），并向它們添加了與父對象類似的鍵值對。然后，我們創建了另一個TJSONObject實例，表示Grandchild對象，并將其作為“Child 2”的一個屬性添加到子對象中。最后，我們創建了一個TJSONArray實例，向其添加了兩個子對象，并將其作為一個名為“children”的屬性添加到父對象中。最后，我們可以調用JsonObj.ToString獲取JSON字符串表示。