高分求：TXMLDocument控件的详细使用说明和例子
谁有TXMLDocument控件的详细使用说明？ 问题点数：0、回复次数：4Top
1 楼laihecongxi（兴哥）回复于 2002-12-04 09:07:13 得分 0
http://www.csdn.net/Develop/article/13%5C13154.shtm
Top
2 楼oldwan（）回复于 2002-12-19 09:21:59 得分 0
http://homepages.borland.com/ccalvert/TechPapers/Delphi/XMLSimple/XMLSimple.htmlTop
3 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2002-12-19 12:36:07 得分 0
http://www.csdn.net/develop/read_article.asp?id=12428Top
4 楼fancuixia（范翠霞）回复于 2002-12-20 09:50:51 得分 0
procedure TfrmManageFriend.loadUserList;
var
i:integer;
rootNode,userNode,userListNode,tempNode:IXMLNode;
begin
if leUserList.RowCount > 2 then
for i := leUserList.RowCount downto 2 do
leUserList.DeleteRow(i-1);
if FileExists(configFileName) then
try
xmlConfig.LoadFromFile(configFileName);
rootNode := xmlConfig.DocumentElement;
if rootNode.ChildNodes.FindNode('userList')<> nil then
begin
userListNode := rootNode.ChildNodes.Nodes['userList'];
for i := 0 to userListNode.ChildNodes.Count -1 do
leUserList.InsertRow(userListNode.ChildNodes.Nodes[i].ChildNodes.Nodes['userName'].Text,
userListNode.ChildNodes.Nodes[i].ChildNodes.Nodes['IP'].Text,
true);
end;
except
MessageDlg('无法载入配置文件！',mtError, [mbYes], 0);
end;
end;
procedure TfrmManageFriend.saveModified;
var
i:integer;
rootNode,userNode,userListNode,tempNode:IXMLNode;
begin
//保存修改结果到配置文件中
//如果Key是"新增好友",则不要保留。即好友列表中不能出现名为“新增好友”的好友记录
if FileExists(configFileName) then
try
xmlConfig.LoadFromFile(configFileName);
rootNode := xmlConfig.DocumentElement;
if rootNode.ChildNodes.FindNode('userList')<> nil then
begin
userListNode := rootNode.ChildNodes.Nodes['userList'];
userListNode.ChildNodes.Clear;
for i := 1 to leUserList.RowCount - 1 do
begin
userListNode.AddChild('user');
userListNode.ChildNodes.Nodes[i-1].AddChild('userName');
userListNode.ChildNodes.Nodes[i-1].ChildNodes.Nodes['userName'].Text := leUserList.Keys[i];
userListNode.ChildNodes.Nodes[i-1].AddChild('IP');
userListNode.ChildNodes.Nodes[i-1].ChildNodes.Nodes['IP'].Text := leUserList.Values[leUserList.Keys[i]];
end;
end;
xmlConfig.SaveToFile(configFileName);
except
MessageDlg('无法载入配置文件！',mtError, [mbYes], 0);
end;
modified := false;
end;
Top
