var
iNumber iName, iTown, iDate: stränga;
Anställda betalningar: IXMLNode;
i: heltal;
börja
XMLDocument1.Active: = falskt;
XMLDocument1.XML.LoadFromFile (
”C:\Temp4 - XML \ Project1 \ XMLSourceFile \ SourceFile - MasterDetail.xml”);
XMLDocument1.Active: = True;
Anställda: = XMLDocument1.DocumentElement;
för I: = 0 till Employees.ChildNodes.Count - 1 gör
börja
iNumber: = Employees.ChildNodes [I] .ChildNodes [”numrera”]. Text;
iName: = Employees.ChildNodes [I] .ChildNodes [”namnge”]. Text;
iTown: = Employees.ChildNodes [I] .ChildNodes [”Town”]. Text;
Betalningar: = Employees.ChildNodes [I] .ChildNodes [”betalningar];
iDate: = Payments.ChildNodes [”datera”]. Text;
ListBox1.Items.Add (iNumber + ”,” + iName + ”,” + iTown + ”,” + iDate);
avsluta;
avsluta;
|