varietà
indice I, iName, iTown, iDate: stringa;
Impiegati, pagamenti: IXMLNode;
i: numero intero;
cominciare
XMLDocument1.Active: = falso;
XMLDocument1.XML.LoadFromFile (
“C:\Temp4 - XML \ Project1 \ XMLSourceFile \ SourceFile - MasterDetail.xml ");
XMLDocument1.Active: = allineare;
Impiegati: = XMLDocument1.DocumentElement;
per la i: = 0 a Employees.ChildNodes.Count - 1 fa
cominciare
indice I: = Employees.ChildNodes [i] .ChildNodes [“numero„]. Testo;
iName: = Employees.ChildNodes [i] .ChildNodes [“nome„]. Testo;
iTown: = Employees.ChildNodes [i] .ChildNodes [“città„]. Testo;
Pagamenti: = Employees.ChildNodes [i] .ChildNodes [“pagamenti„];
iDate: = Payments.ChildNodes [“data„]. Testo;
ListBox1.Items.Add (indice I + “,„ + iName + “,„ + iTown + “,„ + iDate);
estremità;
estremità;
|