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;

[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} ?

[lxo]

Zitat von 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} ?

Ja für den Fall würde es gehen.
War auch etwas blödes Beispiel, weil die Enumerationen schon unterschiedlich sein können.
Dann kann ich das nicht anwenden.
Also z.B.

Delphi-Quellcode:

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

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

Aber {$SCOPEDENUMS ON} hilft mir weiter.

Danke