Регистрация EnumSet
Как правильно зарегистрировать такие типы:
TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);
TButtonSet = set of TNavigateBtn;
TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);
TButtonSet = set of TNavigateBtn;
Комментарии
AddEnumSet(TButtonSet, 'nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh')
TDBNavigator передается константа имеющая тип - TNavigateBtn.
Этот класс не единственный, который использует такие типы.
Как это можно реализовать?