Трудности с XML

[Ky3Heu,]

Есть xml-файл (см. вложенный файл data.zip). Мне нужно из этого файлика считывать параметры "P_ID", по ним я нахожу в БД нужные мне данные и надо подставить их обратно в параметры "R_DATE" и "P_VAL". Структуру исходного файла менять нельзя.. Промучился сегодня весь день, но результат абсолютный нуль. Помогите с кодом и компонентом.

[maxionans]

Ну а в чём трудность? Код свой покажи.

[Ky3Heu,]

XMLInput.Active:=True;

for i := 0 to XMLInput.DocumentElement.ChildNodes.Count-1 do
ListBox1.Items.Add(XMLInput.DocumentElement.ChildNodes[i].ChildNodes['P_ID'].text)

Ну и различные модификации пробовал.
Толку нет пока не поменяешь структуру файла, а этого делать нельзя.

[Аватар]

type TRecord1 = record
        P_ID: String;
        Node: IXMLNode;
     end;
var Node,Node1: IXMLNode;
    xCount: Integer;
    xArray: array of TRecord1;
...
  Node:=XMLDocument.DocumentElement.ChildNodes.FindNode('diffgr:diffgram');
  if Node=nil then Exit;
  Node:=Node.ChildNodes.First;
  if Node=nil then Exit;
  Node:=Node.ChildNodes.FindNode('ParametersData');
  xCount:=0;
  while (Node<>nil) and (Node.NodeName='ParametersData') do begin
    Node1:=Node.ChildNodes.FindNode('P_ID');
    if Node1<>nil then begin
      Inc(xCount);
      SetLength(xArray,xCount);
      xArray[xCount-1].P_ID:=Node1.Text;
      xArray[xCount-1].Node:=Node1;
    end;
    Node:=Node.NextSibling;
  end;

При корректировке XML xArray[i].Node можно использовать для обращения к нужному узлу.

[Ky3Heu,]

Спасибки. Даже с записью разобрался.