在使用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節點內容 www.2cto.com
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文件然後讀取信息。
摘自 蘇生-蘇米沿的專欄
