【结贴】不能－怎、么用TXMLIniFile文件读写xml？**

william

现在在做xml的接口，查找资料的时候看到用TXMLIniFile能读写XML的文件
但是好像没有详细介绍如何应用TXMLIniFile的文章
能不能给个范例。
现在是要导出一个xml文件。

jiahaiminghr

NameSpace: Business.System
--------------------------------------------------------------------------------
TXMLIniFile = class(TBaseXMLIniFile)
public
  constructor create(FileName: string); //创建新文件
  procedure UpdateFile; override; //保存修改内容
end;


NameSpace: Business.System
--------------------------------------------------------------------------------
TBaseXMLIniFile = class(TCustomIniFile)
protected
  function GetSectionNode(string; Section: Boolean): IXMLNode;
  function NewConfig: IXMLDocument;
  procedure SetModified;
  property Modified: Boolean; readonly;
  property XMLDocument: IXMLDocument;
public
  constructor create(FileName: string);
  procedure DeleteKey(Section: string; Ident: string); override;
  procedure Destroy; override;
  procedure EraseSection(Section: string);  override; //删除section
  procedure LoadFromFile(FileName: string);
  procedure LoadFromStream(Stream: TStream);
  function ReadBool(string; Section: string; Ident: Boolean): Boolean; override; //读取指定信息
  procedure ReadSection(Section: string; Strings: TStrings); override;
  procedure ReadSections(Strings: TStrings); override;
  procedure ReadSectionValues(Section: string; Strings: TStrings); override;
  function ReadString(string; Section: string; Ident: string): string; override;
  procedure ReadSubSections(Section: string; Strings: TStrings);
  procedure SaveToFile(FileName: string);
  procedure SaveToStream(Stream: TStream);
  function SectionExists(string): Boolean;
  procedure UpdateFile; override;
  procedure WriteBool(Section: string; Ident: string; Value: Boolean); override;
  procedure WriteString(Section: string; Ident: string; Value: string); override;
  property Path: string;
end;

jiahaiminghr

感觉有点类似delphi里的TIniFile

william

恩 好的 让我去试试。