[icegood]

Код:

  cA = class
  strict private
  type
    SubclassAType = (ValueOne, ValueTwo, ValueThree);
  end;

  cB = class
  strict private
  type
    SubclassBType = (ValueOne, ValueTwo, ValueThree);
  end;

[dcc32 Error] Unit1.pas(27): E2004 Identifier redeclared: 'ValueOne'
[dcc32 Error] Unit1.pas(27): E2004 Identifier redeclared: 'ValueThree'
[dcc32 Error] Unit1.pas(39): E2003 Undeclared identifier: 'ValueOneB'
[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

Почему значения ValueOne, ValueTwo, ValueThree не инкапсулируются?
Как єто обойти?

[lmikle]

Дать им разняе имена или просто вынести определение типа из класса. Тебе же надо переменные внутри класса, а не типы, наверное.

Код:

type
  TSubclassAType = (ValueOne, ValueTwo, ValueThree);

  cA = class
  strict private
    FSubclassAType : TSubclassAType;
  end;

  cB = class
  strict private
    FSubclassAType : TSubclassAType;
  end;