XML Endtag finden

[mkinzler]

Etwas erweitert:

Delphi-Quellcode:

const
  FileName = 'MyXmlFile.xml';
var
  N, N2: Integer;
  S: string;
begin
  S := TFile.ReadAllText(FileName);
  N := S.LastIndexOf('</');
  if N >= 0 then begin
    N2 := S.IndexOf( '>', N)+1;
    TFile.WriteAllText(FileName, S.Insert(N2, '<MyTag>MyValue</MyTag>'));
  end;
end;