Thema: FreePascal Wert in XML finden?

Einzelnen Beitrag anzeigen

Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.767 Beiträge
 
Delphi 10.4 Sydney
 
#31

AW: Wert in XML finden?

  Alt 30. Okt 2020, 07:59
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  Doc: TXMLDocument;
  RootNode, ParentNode, DatenNode, VarElemen, ElementNode, ItemNode, TextNode: TDOMNode;
begin
  try
    ReadXMLFile(Doc, 'Muster.xml');
    // tue etwas mit dem XMLDoc
    WriteXMLFile(Doc, 'MusterNeu2.xml')
  finally
    Doc.Free;
  end;
end;
wenn Du nach diesem Prinzip vorgehst, liest Du aus Muster.xml ein machst Änderungen und speicherst unter MusterNeu2.xml ab.
Dann liest Du beim nächsten ButtonClick wieder Muster.xml ein (da sind keine Änderungen drin) machst wieder Änderungen und speicherst (überschreibst) MusterNeu2.xml. Damit sind die ersten Änderungen weg.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat