RTTI und Enum mit Werten, Bug oder Feature?

[Rainer Wolff]

Hallo,

ich bin grad über folgendes Phänomen gestolpert: Wenn ich einen Enum definiere und mittels RTTI meine Klasse auslese, funzt alles ganz normal (Code unten). Wenn ich den Enum-Elementen jetzt aber Werte zuweise:

Code:

 tenum1 = (fRot=3, fBlau=10);

werden sie in der Schleife nicht mehr aufgelistet.
Isses ein Bug oder kennt jemand dafür nen Grund?

Gruß Rainer

Code:

  tenum1 = (fRot, fBlau);

  tmyclass = class(TPersistent)
  private
    Fs1: tenum1;
  public
    property s1:tenum1 read Fs1 write Fs1;
  end;

procedure TForm8.FormCreate(Sender: TObject);
var
  context: TRttiContext;
  aType: TRttiType;
  aProperty: TRttiProperty;
  attrib: TCustomAttribute;
begin
  aType:=context.GetType(tmyclass);
  for aProperty in aType.GetProperties do
  begin
    Caption:=caption+aProperty.Name;
  end;