var
Indexnummer, iName, iTown, iDate: Schnur;
Angestellte, Zahlungen: IXMLNode;
I: ganze Zahl;
anfangen
XMLDocument1.Active: = falsch;
XMLDocument1.XML.LoadFromFile (
„C:\Temp4 - XML \ Project1 \ XMLSourceFile \ SourceFile - MasterDetail.xml ");
XMLDocument1.Active: = ausrichten;
Angestellte: = XMLDocument1.DocumentElement;
für i: = 0 zu Employees.ChildNodes.Count - 1 tun
anfangen
Indexnummer: = Employees.ChildNodes [i] .ChildNodes [„Zahl“]. Text;
iName: = Employees.ChildNodes [i] .ChildNodes [„Name“]. Text;
iTown: = Employees.ChildNodes [i] .ChildNodes [„Stadt“]. Text;
Zahlungen: = Employees.ChildNodes [i] .ChildNodes [„Zahlungen“];
iDate: = Payments.ChildNodes [„Datum“]. Text;
ListBox1.Items.Add (Indexnummer + „,“ + iName + „,“ + iTown + „,“ + iDate);
Ende;
Ende;
|