var
iNumber, iName, iTown, iDate: corda;
Empregados, pagamentos: IXMLNode;
i: inteiro;
começar
XMLDocument1.Ative: = falso;
XMLDocument1.XML.LoadFromFile (
“C:\Temp4 - XML \ Project1 \ XMLSourceFile \ SourceFile - MasterDetail.xml ");
XMLDocument1.Ative: = retificar;
Empregados: = XMLDocument1.DocumentElement;
para i: = 0 a Employees.ChildNodes.Count - 1 faz
começar
iNumber: = Employees.ChildNodes [i] .ChildNodes [“número”]. Texto;
iName: = Employees.ChildNodes [i] .ChildNodes [“nome”]. Texto;
iTown: = Employees.ChildNodes [i] .ChildNodes [“cidade”]. Texto;
Pagamentos: = Employees.ChildNodes [i] .ChildNodes [“pagamentos”];
iDate: = Payments.ChildNodes [“data”]. Texto;
ListBox1.Items.Add (iNumber + “,” + iName + “,” + iTown + “,” + iDate);
extremidade;
extremidade;
|