Delphi是流行的編程語言之一，擁有十分強大的JSON轉化能力。JSON（JavaScript Object Notation）是一種輕量級的數據交換格式，而XML（eXtensible Markup Language）則是一種標記語言。在一些項目中，我們需要將JSON數據轉化為XML格式，本文將介紹如何用Delphi實現這個功能。

uses
System.JSON, Xml.XMLDoc, Xml.XMLIntf;
function JsonToXml(jsonStr: string): IXMLNode;
var
jsonObj: TJSONObject;
strWriter: TStringWriter;
xmlWriter: TXmlTextWriter;
begin
jsonObj := TJSONObject.ParseJSONValue(jsonStr) as TJSONObject;
strWriter := TStringWriter.Create;
xmlWriter := TXmlTextWriter.Create(strWriter);
try
xmlWriter.Formatting := TXmlFormatting.fIndented;
xmlWriter.Indentation := 2;
xmlWriter.WriteStartDocument;
jsonObj.SaveToXML(xmlWriter);
xmlWriter.WriteEndDocument;
Result := LoadXMLData(strWriter.ToString);
finally
jsonObj.Free;
strWriter.Free;
xmlWriter.Free;
end;
end;

上面的代碼演示了如何將JSON字符串轉化為XML節點。首先，我們需要將JSON字符串解析為TJSONObject對象。然后，創建一個字符串寫入器和一個XML寫入器。設置XML寫入器的格式和縮進屬性，并開始寫入XML文檔。調用jsonObj.SaveToXML方法將JSON對象寫入XML文檔，然后關閉XML文檔。最后，我們將字符串寫入器中的內容加載到XML節點中返回。

以下是一個示例，在這個示例中，我們將一個JSON字符串轉化為XML格式并輸出到控制臺：

procedure TForm1.Button1Click(Sender: TObject);
var
jsonStr: string;
xmlNode: IXMLNode;
begin
jsonStr := '{"name": "John Smith", "age": 28}';
xmlNode := JsonToXml(jsonStr);
WriteLn(xmlNode.XML);
end;

結果如下：

<?xml version="1.0" encoding="utf-16"?>
<object>
<pair name="name">
<string>John Smith</string>
</pair>
<pair name="age">
<number>28</number>
</pair>
</object>

以上就是將JSON字符串轉化為XML節點的Delphi代碼實現。這個功能可以方便在一些需要XML格式的項目中使用JSON數據。