var
iNumber, iName, iTown, iDate: koord;
Werknemers, Betalingen: IXMLNode;
i: geheel;
begin
XMLDocument1.Active: = Vals;
XMLDocument1.XML.LoadFromFile (
„C:\Temp4 - XML \ Project1 \ XMLSourceFile \ SourceFile - MasterDetail.xml“);
XMLDocument1.Active: = Waar;
Werknemers: = XMLDocument1.DocumentElement;
voor I: = 0 aan Employees.ChildNodes.Count - 1
begin
iNumber: = Employees.ChildNodes [I] .ChildNodes [„Aantal“]. Tekst;
iName: = Employees.ChildNodes [I] .ChildNodes [„Naam“]. Tekst;
iTown: = Employees.ChildNodes [I] .ChildNodes [„Stad“]. Tekst;
Betalingen: = Employees.ChildNodes [I] .ChildNodes [„Betalingen“];
iDate: = Payments.ChildNodes [„Datum“]. Tekst;
ListBox1.Items.Add (iNumber + „,“ + iName + „,“ + iTown + „,“ + iDate);
eind;
eind;
|