Wie spitze Klammern im Text zulassen?

[sgmeiner]

Eventuell kannst du ja auch sowas probieren:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
  MainDoc, TempDoc: DOMDocument40;
  RootNode, DataNode: IXMLDOMNode;
begin
  MainDoc := CoDOMDocument40.Create;
  RootNode := MainDoc.appendChild(MainDoc.createElement('hauptknoten'));
  DataNode := RootNode.appendChild(MainDoc.createElement('userdaten'));
  TempDoc := CoDOMDocument40.Create;
  TempDoc.loadXML(EditInput.Text);

  if Assigned(TempDoc.firstChild) then
    DataNode.appendChild(TempDoc.firstChild)
  else
    DataNode.text := EditInput.Text;

  Memo.Text := MainDoc.xml;
end;

Funktioniert natürlich nur, wenn von EditInput (oder sonst woher) ein gültiger XML-Text kommt.