Type als String ausgeben

[franksreich]

Hallo zusammen und herzlich Willkommen bei meinem ersten Post :pale:

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 :dancer:

[mkinzler]

Packe die Namen in einen Array und selektiere anhand der Position in der Aufzählung

[sirius]

Du meinst anstat showmessage eine InputBox?

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Frank.

Vielleicht interessiert dich dieser Ansatz: klick

Freundliche Grüße

[franksreich]

Nen Array wäre eine Lösung aber man müsste dieses immer mit anpassen falls es eine Typenänderung gäbe.

Der Ansatz von Achim über die TypInfo (die ich bisher noch nicht kannte) war genau das richtige.

Es wird der Wert des Types von der richtigen Position als String zurückgegeben


Danke schön