TFltStrOption = (fsoUpCase, fsoLoCase, fsoSubLStr, fsoSubRStr, fsoSubMStr, fsoAstAsLike);
TFltStrOptions = set of TFltStrOption;
TFltString = class(TFltField)
Но в этом модуле была понамешено всего много, поэтому для использования в UniGui разделила на модуль общего пользования skfilter и остатка для VCL, с таким учетом, чтобы по минимуму менять другие модули программ, где filters использовался, ну т.е. не нужно было вставлять skfilter
Получилось:
unit skfilter;
TFltStrOption = (fsoUpCase, fsoLoCase, fsoSubLStr, fsoSubRStr, fsoSubMStr, fsoAstAsLike);
TFltStrOptions = set of TFltStrOption;
TSkFltString = class(TFltField)
unit filters;
TFltString = class(TSkFltString);
Конечно этого оказалось мало. Везде, где используется fsoSubMStr, нужно вставлять skfilter
Как переобъявить типы, чтобы этого не нужно было делать?
Иначе разница VCL7 и VCL11 будет постоянно, а изменения в VCL7 постоянные и объемные
Что-то вроде, чтобы было и в
unit filter;
TFltStrOption = (fsoUpCase, fsoLoCase, fsoSubLStr, fsoSubRStr, fsoSubMStr, fsoAstAsLike);
TFltStrOptions = set of TFltStrOption;
Мне не хватает видимо знаний D11
Нашла-таки пример!! unit System.Types; type TDuplicates = (dupIgnore, dupAccept, dupError); unit System.Classes; const dupIgnore = System.Types.TDuplicates.dupIgnore{ deprecated 'Use dupIgnore from System.Types.TDuplicates'};
Обсуждают сегодня