用XML动态设置每个窗体上Label的Caption

最新推荐文章于 2022-07-20 16:12:52 发布

fitYou

最新推荐文章于 2022-07-20 16:12:52 发布

阅读量957

点赞数

文章标签： xml integer c

本文链接：https://blog.csdn.net/fitYou/article/details/25422

版权

XML的定义

<Main>

</FormaName>

</Main>

程序:

procedure LoadLabelCaption(IndeStr:String;Form:TForm);
var i:Integer;
    C:Integer;
    j:Integer;
begin
C:=Form.ComponentCount;
for i:=0 to C-1 do
begin
     if Form.Components[i] IS TLabel then
     begin
       XML.Active:=false;
       XML.Active:=true;
       if XML.ChildNodes.FindNode('Hint').ChildNodes.FindNode(IndeStr)<>nil then
       begin
         for j:=0 to XML.ChildNodes.FindNode('Hint').ChildNodes.FindNode(IndeStr).ChildNodes.Count-1 do
         begin
            if Form.Components[i].Name=XML.ChildNodes.FindNode('Hint').ChildNodes.FindNode(IndeStr).ChildNodes[j].NodeName then
               TLabel(Form.Components[i]).Caption:=XML.ChildNodes.FindNode('Hint').ChildNodes.FindNode(IndeStr).ChildNodes[j].Text;
         end;
       end;
     end;
end;
end;