delphi 修改xml的数据

zhongqian1_6 2011-04-15 05:51:06
<User Name="testuser2">
<Option Name="Pass">81dc9bdb52d04dc20036dbd8313ed055</Option>
<Option Name="Group">test</Option>
<Option Name="Bypass server userlimit">2</Option>
<Option Name="User Limit">0</Option>
<Option Name="IP Limit">0</Option>
<Option Name="Enabled">2</Option>
<Option Name="Comments"/>
<Option Name="ForceSsl">0</Option>
<IpFilter>
<Disallowed/>
<Allowed/>
</IpFilter>
<Permissions>
<Permission Dir="E:\Vhost\FtpRoot\testuser2">
<Option Name="FileRead">1</Option>
<Option Name="FileWrite">1</Option>
<Option Name="FileDelete">0</Option>
<Option Name="FileAppend">0</Option>
<Option Name="DirCreate">0</Option>
<Option Name="DirDelete">0</Option>
<Option Name="DirList">0</Option>
<Option Name="DirSubdirs">0</Option>
<Option Name="IsHome">0</Option>
<Option Name="AutoCreate">0</Option>
</Permission>
</Permissions>
<SpeedLimits DlType="0" DlLimit="10" ServerDlLimitBypass="2" UlType="0" UlLimit="10" ServerUlLimitBypass="2">
<Download/>
<Upload/>
</SpeedLimits>
</User>

我想修改<SpeedLimits DlType="0" DlLimit="10" ServerDlLimitBypass="2" UlType="0" UlLimit="10" ServerUlLimitBypass="2">这一行里面的DlLimit这个数据,想把10改成100,怎么改呢?用这个方法好像不行

Sun_Node :=Child_Node.ChildNodes.First;
while (Sun_Node <> nil) do
begin
NodeName := Sun_Node.Attributes['Name'];
if NodeName = 'Enabled' then
begin
Sun_Node.NodeValue := '0';
xml1.SaveToFile(filename);
Break;
end;
Sun_Node := Sun_Node.NextSibling;
end;
这是我修改enabled的值的代码。。。
...全文
160 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhongqian1_6 2011-04-18
  • 打赏
  • 举报
回复
呵呵。。谢谢啊,,我自己单词写错了,,,
dinoalex 2011-04-15
  • 打赏
  • 举报
回复
你可以SHOWMESSAGE一下NAME,看看是否找到正确的值
浩南_哥 2011-04-15
  • 打赏
  • 举报
回复

node.Attributes['DlLimit'].NodeValue := '100'


你上面的语句应该是没问题的,
xml1.SaveToFile(filename);//这句话最好放到最后在执行,都修改完后再保存。

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧