Hallo zusammen und herzlich Willkommen bei meinem ersten Post
ich bin gerade dabei E-Mails in
XML Format zu verarbeiten,
das Durchlaufen per rekusiver Function funktioniert auch einwandfrei.
Ich versuche den NodeTypen über eine Case zu selektieren und möchte bei einem nicht definiertem Typen angeben um welchen es sich hierbei handelt.
Wie kann ich also einen Typen der so deklariert ist
Delphi-Quellcode:
TNodeType = (ntReserved, ntElement, ntAttribute, ntText, ntCData,
ntEntityRef, ntEntity, ntProcessingInstr, ntComment, ntDocument,
ntDocType, ntDocFragment, ntNotation);
mit in die Fehlermeldung einbauen?
Delphi-Quellcode:
Case newxmlnode.NodeType Of
ntText : Begin
showmessage(newxmlnode.NodeValue);
End;
ntReserved,
ntElement,
ntAttribute,
ntCData,
ntEntityRef,
ntEntity,
ntProcessingInstr,
ntComment,
ntDocument,
ntDocType,
ntDocFragment,
ntNotation : Begin
showmessage('noch nicht implementierter NodesType'); //hier soll der NodeType ausgegeben werden
End;
schöne sonnige Grüße
