Enumeration mit gleichen Namen innerhalb einer Unit - Bezeichner redeklariert

[Rollo62]

Vielleicht so (ungetestet) ?

Delphi-Quellcode:

TEnum_Base = (e1, e2, e3);

TClass1 = class
  strict private type
    TEnum = TEnum_Base;
  end;

  TClass2 = class
  strict private type
    TEnum = TEnum_Base;
  end;

Ansonsten irgendwas mit {$SCOPEDENUMS ON} ?