Type als String ausgeben

[franksreich]

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