Показать сообщение отдельно
  #4  
Старый 06.01.2014, 16:33
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Через TXMLDocument можно так:
Код:
uses
  XMLDoc, XMLIntf;
.....
procedure TForm1.Button1Click(Sender: TObject);
var
  xml: TXMLDocument;
  Node: IXMLNode;
begin
  xml := TXMLDocument.Create(Application);
  try
    xml.LoadFromFile('careerSavegame.xml');
    Node := xml.ChildNodes.FindNode('careerSavegame');
    if Assigned(Node) then
    begin
      Node.Attributes['money'] := 1000000;
      xml.SaveToFile('careerSavegame.xml');
    end;
  finally
    xml.Free;
  end;
end;
Ответить с цитированием