Подскажите пожалуйста ...как внести изменения в существующий XML файл в Delphi 7 XMLDocument

[Igor_kud]

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    XMLDocument1: TXMLDocument;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  node,folder,ifnode,ioverlay:IXMLNode;
  v:OLEVariant;
  s:integer;
  fileName:string;
  implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
 
begin
 // XMLDocument1 := XMLDocument1.Create(Self);
 //for S:=1 to 10 do
 
fileName := 'Rukovod.xml';
// Теперь проверяем существует ли файл
if FileExists(fileName)then
//ShowMessage(fileName+' Файл существует,продолжаем работу!')
 
else
begin
 
XMLDocument1.Active := True;
      XMLDocument1.Encoding := 'UTF-8';
      XMLDocument1.Options := [ doNodeAutoCreate, doNodeAutoIndent ];
 
      node := XMLDocument1.AddChild('DATA');
 
      folder := node.AddChild('Nomer_opponenta');
      folder.Text := '1';
 
      ioverlay := folder.AddChild('Otveti_na_testi');
      ifnode := ioverlay.AddChild( 'Test_1' );
      ifnode.Text := 'Rezult_1';
      ifnode := ioverlay.AddChild( 'Test_2' );
      ifnode.Text := 'Rezult_2';
      ifnode := ioverlay.AddChild( 'Test_3' );
      ifnode.Text := 'Rezult_3';
      ifnode := ioverlay.AddChild( 'Test_4' );
      ifnode.Text := 'Rezult_4';
      ifnode := ioverlay.AddChild( 'Test_5' );
      ifnode.Text := 'Rezult_5';
 
     XMLDocument1.SaveToFile('Rukovod.xml');
 
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
begin
XMLDocument1.LoadFromFile('Rukovod.xml');
XMLDocument1.Active := True;
???????node := XMLDocument1.ChildNodes.Nodes['DATA'];
??????????folder := node.AddChild('Nomer_opponenta','DATA');
 тут и нужно сделать какие-то манипуляции:(
 
 end;
 
end.

[igh0st]

Не совсем понятна цель, напиши что конкретно хочешь вставить в документ.
Из ошибок пока общего плана - в одной процедуре создаешь объект и не уничтожаешь его после использования вообще, это не есть гуд, надо так:

XMLDocument1 := XMLDocument1.Create(Self);
try
    // что-нибудь делаем с объектом
    XMLDocument1.Active := True;
    XMLDocument1.Encoding := 'UTF-8';
    ...
    XMLDocument1.SaveToFile('Rukovod.xml');
finally
    XMLDocument1.Free;
end;

Соответсвенно на чтение такая же конструкция с созданием и уничтожением объекта в памяти.

[Igor_kud]

  <?xml version="1.0" encoding="UTF-8" ?> 
- <DATA>
- <Nomer_opponenta>
  1 
- <Otveti_na_testi>
  <Test_1>Rezult_1</Test_1> 
  <Test_2>Rezult_2</Test_2> 
  <Test_3>Rezult_3</Test_3> 
  <Test_4>Rezult_4</Test_4> 
  <Test_5>Rezult_5</Test_5> 
  </Otveti_na_testi>
  </Nomer_opponenta>
  </DATA>

Вот в такой XML файл нужно добавить <Nomer_opponenta> 2 и все дерево после него.