delphi7环境,可以使用TXMLDocument类,测试代码如下,你可以先看一下效果,然后根据要求再把你自己的要求实现。uses XMLIntf, XMLDoc;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);Var FXMLDoc: TXMLDocument; RootNode,SecNode: IXMLNode;begin FXMLDoc := TXMLDocument.Create(Application); FXMLDoc.XML.Clear; FXMLDoc.Active := True; FXMLDoc.Encoding := 'GB2312'; RootNode := FXMLDoc.AddChild('C_BASEINFO'); RootNode.Attributes['C_DBName'] := 'FDBName'; RootNode.Attributes['C_UserName'] := 'FUserName'; SecNode := RootNode.AddChild('C_CellParams'); SecNode.Attributes['C_Count'] := 300; FXMLDoc.SaveToFile('C:/A.XML'); FXMLDoc.Free;end;