動態record陣列的應用

最近用到了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;