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