Prüfen ob Integer im Enumeration-Type enthalten ist

[Keks]

Zitat von himitsu:

k.A. wo der Debugger die Werte her holt, aber in der einkompilierten RTTI fehlt ganz einfach die Liste der Namen, sobald man selber die Werte zuweist.

Moment, aber ich brauche doch gar nicht die Namen, sondern nur die Zahlen-Werte!?

[himitsu]

Es werden aber nicht die Zahlen gespeichert, sondern die Namen, in einem indizierten Array. (Index = Zahl )

Als Zahl ist alles im Wertebereich des Speichertyps gültig.

[Sir Rufo]

Die einfachste Art ist doch hier

Delphi-Quellcode:

type
  TMeinBeispiel = ( mbEins, mbZwei, mbDrei );
const
  MeinBeispielValues : array[TMeinBeispiel] of integer = ( 0, 1, 5 );

Wenn man das jetzt noch in einen Record packt, der die Umwandlung vornimmt, dann hat man doch alles zusammen und kann nach Belieben hin- und her konvertieren und das auch noch voll automatisch.

[Keks]

Sorry, aber irgendwie verstehe ich Dein Beispiel nicht ... oder ich stehe auf dem Schlauch.
MeinBeispielValues[mbDrei] = 5 aber was mache ich damit? Die Zuordnung Ord(mbDrei) = 5 hatte ich doch vorher schon?

[himitsu]

Nein.

Ord(mbDrei) = 2

Der Enum ist "einfach", besitzt eine vollständige RTTI, aber diehn nur der als Namensliste.
Die eigentlichen Werte sind aber extern abgelegt und werden nur für's Casten benutzt.

[Keks]

Ähm ...

Delphi-Quellcode:

type TMeinBeispiel = (mbEins=0, mbZwei=1, mbDrei=5);
begin
  ShowMessage(IntToStr(Ord(mbDrei))); // -> "5"

[himitsu]

Zitat:

Delphi-Quellcode:

type
  TMeinBeispiel = ( mbEins, mbZwei, mbDrei );
const
  MeinBeispielValues : array[TMeinBeispiel] of integer = ( 0, 1, 5 );

[edit]
"hatte" ... hatte "hab" gelesen.

Aber zusätzlich hast du so eben einen Code, wo man alle gültigen "Namen" auslesen kann und auch eine Liste (Array) mit allen gültigen Werten hat.