XML изменение значения между тегами - Delphi - Ответ 3653680

procedure TForm1.Button1Click(Sender: TObject);
var
  Node : IXMLNode;
  Od : TOpenDialog;
begin
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    ShowMessage('Файл с заданным именем не существует. Действие отменено.');
    Exit;
  end;
 
  XMLDocument1.LoadFromFile(Od.FileName);
  XMLDocument1.Active := True;
  //Запрет на автоматическое создание узлов и на автосохранение.
  XMLDocument1.Options := XMLDocument1.Options - [doNodeAutocreate, doAutoSave];
 
  Node := XMLDocument1.DocumentElement;
  Node := Node.ChildNodes.FindNode('t0');
  if Node <> nil then
    Node := Node.ChildNodes.FindNode('d0');
  if Node <> nil then
    Node := Node.ChildNodes.FindNode('n1');
  if Node <> nil then
    Node.NodeValue := 't0-d0-n1-value';
 
  //Сохраняем документ, если он изменился.
  if XMLDocument1.Modified then
    XMLDocument1.SaveToFile(Od.FileName);
end;