Delphi中使用XML绑定来操作XML文件

Delphi中使用XML绑定来操作XML文件

XML文件从前几年一出现，就非常流行，很多软件中都支持把数据保存为XML格式。

XML之所以这么受欢迎，因为它是一个非常简单的并且又是结构化的ASCII文本语言。XML文件的这种特性，使得任何人和任何程序都能很方便的读懂它。

不过XML文件也流行了这么多年了，我却一直没有使用过它，因为：简单一些的数据，我习惯使用ini或自定义一种格式来保存；而复杂或者大量的数据，显然更适合使用数据库来保存。

直到最近写一个程序时，才不得不用到它。

下面就是我写程序时，用到的一些XML文件的编程方法

我用的Delphi还是几年前的Delphi6，刚好Delphi的这个版本开始支持XML文件。

我使用的是Delphi6中的XML绑定来操作XML文件。

首先，我要操作的XML为stock.xml，它是一个关于股票方面的文件，内容如下：

<?xml version="1.0" encoding="gb2312"?> <StockList> <StockItem Name="股票名称1" Code="股票代码1">股票例子1</StockItem> </StockList>

在主菜单上选择File New->Other，然后在仓库中选择XML Data Binding，会启动Delphi的XML绑定向导。

这个向导有三页，在第一页中指定stock.xml

第二页显示了一些树结构和节点数据类型，这里可以修改编码(比如修改前缀)和数据类型映射

第三页显示生成的类和相应接口，Delphi会将这些类和接口生成一个.pas文件，保存它，例如我保存为stock.pas

绑定到这里就完成了，下面就是如何使用Delphi生成的这些类和接口了，也很简单！

在主窗口的uses段中加入stock.pas，并放上一个TXMLDocument控件（在internet页）XMLDocument1，将它的FileName指定为stock.xml

下面的代码取得xml第一只股票的信息： var StockList:IXMLStockListType; StockItem:IXMLStockItemType; begin   StockList:=GetStockList(XMLDocument1);   StockItem:=StockList.Get_StockItem(0);   Memo1.Lines.Add('Name:'+StockItem.Name);   Memo1.Lines.Add('Code:'+StockItem.Code);   Memo1.Lines.Add('Stock:'+StockItem.Text); end;

增加一只股票的信息： var StockList:IXMLStockListType; begin   StockList:=GetStockList(XMLDocument1);   with StockList.Add do   begin     Name:='股票名称2';     Code:='股票代码2';     Text:='股票例子2';   end;   XMLDocument1.SaveToFile('stock.xml');//保存更改 end;

删除最后一只股票的信息： var StockList:IXMLStockListType; begin   StockList:=GetStockList(XMLDocument1);   StockList.Delete(StockList.Count-1);   XMLDocument1.SaveToFile('stock.xml');//保存更改 end;

改变第一只股票的信息： var StockList:IXMLStockListType; StockItem:IXMLStockItemType; begin   StockList:=GetStockList(XMLDocument1);   StockItem:=StockList.Get_StockItem(0);   StockItem.Name:=StockItem.Name+'A';   StockItem.Code:=StockItem.Code+'A';   StockItem.Text:=StockItem.Text+'A';   XMLDocument1.SaveToFile('stock.xml'); end;

建立一个新的xml文件，在其中增加一只股票的信息，并保存为stock2.xml var StockList:IXMLStockListType; begin   StockList:=GetStockList(XMLDocument1);   with StockList.Add do   begin     Name:='股票名称1';     Code:='股票代码1';     Text:='股票例子1';   end;   XMLDocument1.Encoding:='gb2312';   XMLDocument1.SaveToFile('stock2.xml'); end;

这就是Delphi为我们提供的XML数据绑定功能，用它来操作XML文件很方便，也很强大。