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
