var
iNumber, iName, iTown, iDate: шнур;
Работники, компенсации: IXMLNode;
iий: интежер;
начните
XMLDocument1.Active: = ложно;
XMLDocument1.XML.LoadFromFile (
«C:\Temp4 - XML \ Project1 \ XMLSourceFile \ SourceFile - MasterDetail.xml ");
XMLDocument1.Active: = True;
Работники: = XMLDocument1.DocumentElement;
для I: = 0 к Employees.ChildNodes.Count - 1 делает
начните
iNumber: = Employees.ChildNodes [I] .ChildNodes [«номер»]. Текст;
iName: = Employees.ChildNodes [I] .ChildNodes [«имя»]. Текст;
iTown: = Employees.ChildNodes [I] .ChildNodes [«городок»]. Текст;
Компенсации: = Employees.ChildNodes [I] .ChildNodes [«компенсации»];
iDate: = Payments.ChildNodes [«дата»]. Текст;
ListBox1.Items.Add (iNumber + «,» + iName + «,» + iTown + «,» + iDate);
конец;
конец;
|