Datei bearbeiten und nur Teile wieder speichern

[Hoschie]

Moin Moin,

ich habs rausgefunden. Und geholfen hat mir dabei zusätzlich zu marabus sehr guten Anregungen ein wiederholtes, intensives Lesen, des XML-Tutorials.

Mein Code:

Delphi-Quellcode:

try
    fnNew:=('c:\Scan.xml'); // Datei zum speichern
    u:=GetXMLDocument(WebBrowser1.Document); // XML Quelle
    xd:=u.selectSingleNode('/root/data/Lehrgang'); // Benötigtes Element
    xdNode:=xd.cloneNode(True) as IXMLDOMElement;; // wichtig !!
    xdNew:= ComsDOMDocument.Create;

    if not FileExists (fnNew) then // erstellen File
    begin
      xdNew.loadXML('<?xml version="1.0"?><root></root>');
      xdNew.documentElement.appendChild(xdNode);  // hier hakte es
      xdNew.save(fnNew);
    end
    else
    begin
      xdNew.load(fnNew);
      xdNew.documentElement.appendChild(xdNode); // an bestehende Datei anhängen
      xdNew.save(fnNew);
    end;
  except
  if FileExists('C:\Log.txt') then  / LogFile zur Sicherheit
    begin
    AssignFile(log, 'C:\Log.txt');
    Append(log);
    Write(log,(Edit1.Text+chr(13)+chr(10)));
    CloseFile(log);
    end
  else
    begin
    AssignFile(log, 'C:\Log.txt');
    ReWrite(log);
    Write(log,(Edit1.Text+chr(13)+chr(10)));
    CloseFile(log);
    end;
  end;

Damit läuft es schon mal so, wie es soll. Jetzt werde ich da mal ein paar Testläufe mit machen um zu sehen wie es mit der Speicherverwaltung ist. Ich weiss noch nicht so recht, ob ich nicht noch irgendwas wieder freigeben muss.

Gruß
Hoschie