string functions/proceduren

[marabu]

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