delphi读取xml文件

页面导航:首页 > 软件编程 > Delphi > delphi读取xml文件

delphi读取xml文件

来源: 作者: 时间:2016-01-18 15:41 【

在使用delphi的时候不免要与配置文件打交道。那么xml无疑是配置文件的最好格式,那么怎么操作xml呢?其实很简单,看看下面的代码吧。[delphi] 功能: 根据省份更新地市信息--------------

在使用delphi的时候不免要与配置文件打交道。那么xml无疑是配置文件的最好格式,那么怎么操作xml呢?其实很简单,看看下面的代码吧。
[delphi]
  功能:  根据省份更新地市信息 
-------------------------------------------------------------------------------} 
procedure TForm.GetCityInfo; 
var 
  iXMLAreaFile : IXMLDocument; 
  sFileName,aProvince,sProvince,sCity : string; 
  nCol,nNum,nCityCount,nprovinceCount : Integer; 
begin 
  iXMLAreaFile := TXMLDocument.create(nil); 
  sFileName :=  getexepath + 'Province.xml'; 
  iXMLAreaFile.FileName := sFileName; 
  iXMLAreaFile.active := True; 
  sProvince := cbbprovince.Text; 
  if sProvince = '全部' then 
  begin 
    cbbcity.Items.Clear; 
    cbbcity.Items.Add('全部'); 
    cbbcity.ItemIndex := 0; 
  end 
  else 
  begin 
    cbbcity.Items.Clear; 
    cbbcity.Items.Add('全部'); 
    cbbcity.ItemIndex := 0; 
    nprovinceCount := iXMLAreaFile.DocumentElement.childnodes.Count; 
    for nNum := 0 to nprovinceCount-1 do 
     begin 
       //获取province节点内容  
       aProvince := iXMLAreaFile.DocumentElement.ChildNodes[nNum]. 
       AttributeNodes[0].nodevalue; 
       if aProvince = sProvince then 
       begin 
         ncityCount := iXMLAreaFile.DocumentElement.childnodes[nNum].childnodes.Count; 
         //获取市级节点内容 
         for nCol := 0 to ncitycount-1 do 
         begin 
           sCity := iXMLAreaFile.DocumentElement.ChildNodes[nNum]. 
           childnodes[nCol].AttributeNodes[0].nodevalue; 
           cbbCity.Items.Add(sCity); 
         end; 
       end; 
     end; 
  end; 
end; 

简单吧。先定义XML文件然后读取信息。

 


摘自 苏生-苏米沿的专栏

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<