Hi.
Implementiere eine Funktion mit folgender Signatur:
function AddNameSpace(markup, ns: String): String;
Die Funktion soll ein beliebiges
XML-Dokument so zurückliefern, dass alle Element- und Attributnamen mit fehlendem namespace den in ns angegebenen namespace vorangestellt bekommen.
Aufruf:
Delphi-Quellcode:
uses
Classes;
var
s: TStrings;
begin
s := TStringList.Create;
s.LoadFromFile('eingabe.xml');
s.Text := AddNameSpace(s.Text, 'test');
s.SaveToFile('ausgabe.xml');
end;
Eingabe.xml:
XML-Code:
<BOOK>
<TITLE>
XML Developer's Guide</TITLE>
<PRICE currency="US Dollar">44.95</PRICE>
</BOOK>
Ausgabe.xml:
XML-Code:
<test:BOOK>
<test:TITLE>
XML Developer's Guide</test:TITLE>
<test:PRICE test:currency="US Dollar">44.95</test:PRICE>
</test:BOOK>
Grüße vom marabu