variété
numéro d'inode, iName, iTown, iDate : corde ;
Employés, paiements : IXMLNode ;
i : nombre entier ;
commencer
XMLDocument1.Active : = faux ;
XMLDocument1.XML.LoadFromFile (
« C:\Temp4 - XML \ Project1 \ XMLSourceFile \ SourceFile - MasterDetail.xml ") ;
XMLDocument1.Active : = rectifier ;
Employés : = XMLDocument1.DocumentElement ;
pour I : = 0 à Employees.ChildNodes.Count - 1 font
commencer
numéro d'inode : = Employees.ChildNodes [I] .ChildNodes [« nombre »]. Texte ;
iName : = Employees.ChildNodes [I] .ChildNodes [« nom »]. Texte ;
iTown : = Employees.ChildNodes [I] .ChildNodes [« ville »]. Texte ;
Paiements : = Employees.ChildNodes [I] .ChildNodes [« paiements »] ;
iDate : = Payments.ChildNodes [« date »]. Texte ;
ListBox1.Items.Add (numéro d'inode + « , » + iName + « , » + iTown + « , » + iDate) ;
extrémité ;
extrémité ;
|