Wie spitze Klammern im Text zulassen?

[marabu]

Hallo.

Ich würde bei der Eingabe prüfen, ob der Benutzer gültigen XML-Code bereitstellt und den String in Abhängigkeit davon weiter verarbeiten:

Delphi-Quellcode:

uses
  MSXML2;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  doc, tmp: IXMLDOMDocument;
  s: String;
begin
  doc := CoDomDocument.Create;
  doc.async := false;
  doc.documentElement := doc.createElement('root');

  tmp := CoDomDocument.Create;
  tmp.async := false;

  s := '<test>marabu</test>';
  if InputQuery('Input', 'XML', s) then
    if tmp.loadXML(s)
      then doc.documentElement.appendChild(tmp.documentElement)
      else doc.documentElement.appendChild(doc.createTextNode(s));
  ShowMessage(doc.xml);
end;

Grüße vom marabu