Считывание значений из XML

[artemavd]

И что, программа построила дерево по xml-ке??? Stilet, ну скинь полностью свой проект, а? Ну че жалко чтоли?

[SolovejK]

Сообщение от Stilet

Де ты там такое увидел?

Дык исходник же выложили для скачивания. И там в одной из папок B0000183.xml был, как я понял его и надо читать. А он корявый вот и не читается.

А test.xml для примера выложен и он без проблем читается

[artemavd]

Этот xml мой создается автоматически. И что, никак не получится представить его в виде дерева?

[Stilet]

А он корявый вот и не читается.

А че у меня все читается?

И что, никак не получится представить его в виде дерева?

Так. Давай значит ты определись что тебе хочется.
Дерево - это одно, его построить тоже не сложно, получить значений некого поля - это другое. Так что же тебе нужно то?
Хочешь проект? пожалуйста, но он тебя не обрадует, потому как ты задачу поставил на попа

[artemavd]

Хорошо, я поясню, что мне нужно. Мне нужно построить дерево по имеющемуся xml файлу. Пример такого файла я выложил. Нужно, чтобы корнем дерева был номер BatchID и нажав его отображались поля Number contacrt и NumberLS. Вот, что основное нужно. По аналогии с примером программы, в которой читается xml файл под названием test.

Ок, бог с ним пока с деревом . Сойдет и в ListBox. Но вот пытаюсь сделать отображение этих значений так:

 for j:=1 to Form1.StringGrid1.RowCount do
 begin
  Form1.StringGrid1.Cells[0,j]:=????
 end;

Вот что написать вместо вопросов?). Это чтоли

Form1.StringGrid1.Cells[0,j]:=f.NodeValue;

?

[SolovejK]

Сообщение от Stilet

А че у меня все читается?

У меня даже Internet Explorer этот xml не открывает. Я уже про Delphi молчу. Интересно стало посмотреть твой проект как ты прочитал этот xml. Изменил в твоем проекте только путь до xml скомпилировал и тупо получил ошибку как в 13 посте

[artemavd]

У меня не получается считать два значения из двух полей. Мне всего лишь нужно два значения из поля Field FieldName="WhoCreate" и Field FieldName="WhoOCR". Делаю так:

procedure TForm1.Button9Click(Sender: TObject);
begin
 XMLDocument1.LoadFromFile('version.xml');
 XMLDocument1.Active:=True;
 Form1.Edit5.Text:=XMLDocument1.DocumentElement.ChildNodes['Field FieldName="WhoCreate"'].Text;
 Form1.XMLDocument1.Active:=False;
end;

Но выдается ошибка, что типа не должно быть каких-то символов. А как тогда считать значение если они там есть? В первом файле скрин ошибки, а во втором что нужно считать.

[SolovejK]

Field в данном случае это узел, а FieldName атрибут узла. Обращение к узлу и атрибуту происходят по разному:

//читаем данные узла
 Form1.Edit5.Text:=XMLDocument1.DocumentElement.ChildNodes['Field'].Text;
//а так читаем атрибут
 Form1.Edit5.Text:=XMLDocument1.DocumentElement.ChildNodes['Field'].GetAttribute(WideString('FieldName'));

З.Ы. Возможно ответ не акатуален по дате, но может кому пригодится )