delphi读取xml文件

最新推荐文章于 2025-06-15 13:16:49 发布

九点搬书匠

最新推荐文章于 2025-06-15 13:16:49 发布

阅读量5.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi xml string

本文链接：https://blog.youkuaiyun.com/sushengmiyan/article/details/7570068

Delphi 专栏收录该内容

83 篇文章

订阅专栏

本文介绍了在Delphi中如何操作XML文件，提供了一种简单的实现方式，通过代码示例展示了读取XML配置文件的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在使用delphi的时候不免要与配置文件打交道。那么xml无疑是配置文件的最好格式，那么怎么操作xml呢？其实很简单，看看下面的代码吧。

  功能:  根据省份更新地市信息
-------------------------------------------------------------------------------}
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文件然后读取信息。