Чем можно заменить

← →
NAlexey © (2003-05-27 10:21) [0]

Например мне надо проверить:
if Control is TCustomGrid then ...
Но не хочется включать в Uses-Grids. Чем можно заменить такую конструкцию?

← →
VMcL © (2003-05-27 10:23) [1]

>NAlexey © (27.05.03 10:21)

Ничем.

← →
Skier © (2003-05-27 10:27) [2]

>NAlexey
TObject.ClassNameIs(...)

← →
VMcL © (2003-05-27 10:33) [3]

>Skier © (27.05.03 10:27)

ClassNameIs performs much the same function as the is operator, except that it requires an exact match, returning False for descendants of the named class.

← →
NAlexey © (2003-05-27 10:34) [4]

>TObject.ClassNameIs(...)
А если наследник? Может там что с RTTI помудрить?

← →
Skier © (2003-05-27 10:37) [5]

>NAlexey © (27.05.03 10:34)

> Может там что с RTTI помудрить?

Помудри...

← →
rounin (2003-05-27 10:40) [6]

Можно пройтись по всем предкам с помощью
ClassNameIs + ClassParent

Можно передать в модуль указатель на TCustomGrid:

var
_TCustomGrid: TClass;

// где-то в другом модуле {YourUnit.}_TCustomGrid := TCustomGrid;

if Control.InheritsFrom(_TCustomGrid) then...

← →
Skier © (2003-05-27 10:41) [7]

>rounin (27.05.03 10:40)

А как с этим быть ? :)

> Но не хочется включать в Uses-Grids.

← →
Digitman © (2003-05-27 10:42) [8]

Раз ты предполагаешь, что среди контролов м.б. грид, это означает, что где-то в uses-секциях прочих модулей уже фигурирует модуль Grids.
И какая разница, укажешь ты в этом модуле Grids или не укажешь ? Ни на что это уже не влияет - коль грид где-то фигурирует, модуль уже используется, и лишняя ссылка на него в данном модуле никаких доп.ресурсов не потребует (если речь идет, насколько это очевидно из вопроса, о якобы нежелательности задействовать неиспользуемые "по полной программе" ресурсы модуля)

Другой вопрос, что сторока с IS-проверкой типа м.б. в хост-приложении, в то время как проверяемый контрол - в DLL. Но в таком случае достаточно собрать и хост-приложение и DLL c опцией build with run-time package, и код модуля grids будет загружен и использован один и тот же (т.е. существовать он будет в единственном экз-ре в вирт.адр.пространстве процесса)

мда, странные задумки... какой смысл отказыватся от grids...

> хотя RTTI помогла

... и помогла именно потому, что информация об интересующем тебя классе появилась в ней в результате компиляции при явно фигурировавшем где-то в uses модуле Grids

Чем можно заменить Найти похожие ветки