Enumeration mit gleichen Namen innerhalb einer Unit - Bezeichner redeklariert

[lxo]

Hallo,

wenn ich in einer Unit folgende Typen definiere bekomme ich die Fehlermeldung "[dcc32 Fehler] Unit1.pas(24): E2004 Bezeichner redeklariert: "e1"".

Würde ich TClass2 in einer anderen Unit definieren funktioniert es.
Kriegt man das auch irgendwie innerhalb einer Unit hin?

Delphi-Quellcode:

  TClass1 = class
  strict private type
    TEnum = (e1, e2, e3);
  end;

  TClass2 = class
  strict private type
    TEnum = (e1, e2, e3);
  end;