动态record数组的应用

最新推荐文章于 2023-02-17 15:49:53 发布

genispan

最新推荐文章于 2023-02-17 15:49:53 发布

阅读量1.6k

点赞数

分类专栏： Delphi应用文章标签： integer application null xml function

本文链接：https://blog.youkuaiyun.com/genispan/article/details/6022206

版权

Delphi应用专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一种从XML文件中读取数据并存储到Record类型数组的方法。通过Delphi编程实现，详细展示了如何解析XML节点并将属性值保存到数组中供后续使用。

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

最近用到了record类型的数组，主要涉及到record类型动态的创建与添加，实例代码如下：（主要功能为从XML文件中读取数据，并放在record数组中，当然，如果不是从XML文件中读取就省了很多步骤了）

procedure TForm1.btn2Click(Sender: TObject); var XMLDocChar: TXMLDocument; Root:Ixmlnode; i,LangLength:integer; function LoadData(RootNode:Ixmlnode):boolean; var j:integer; begin for j := 0 to Root.ChildNodes.Count- 1 do begin if Root.ChildNodes[j].NodeName<>'' then begin if Root.ChildNodes[j].Attributes['Name']<>null then begin SetLength(LangList,Length(LangList)+1); LangLength:= Length(LangList)-1; LangList[LangLength].LangName:=Root.ChildNodes[j].Attributes['Name']; end else continue; if Root.ChildNodes[j].Attributes['Text']<>null then LangList[LangLength].LangText:=Root.ChildNodes[j].Attributes['Text']; end; end; end; begin XMLDocChar:=TXMLDocument.Create(application); XMLDocChar.LoadFromFile('./language/frxrcClass_zh-CN.xml'); XMLDocChar.Active:=true; Root:=XMLDocChar.DocumentElement; LoadData(Root); XMLDocChar.LoadFromFile('./language/frxrcDesgn_zh-CN.xml'); XMLDocChar.Active:=true; Root:=XMLDocChar.DocumentElement; LoadData(Root); for i := 0 to Length(LangList) - 1 do begin mmo1.Lines.Add('Name:'+LangList[i].LangName+' Text:'+LangList[i].LangText); end; FreeAndNil(XMLDocChar); end;