наследники TCustomADODataSet

← →
DSKalugin © (2005-06-04 12:33) [0]

Как программно проверить являются ли компоненты производными от TCustomADODataSet? И работать с ними как с TCustomADODataSet

← →
Zacho © (2005-06-04 12:43) [1]

Я не работал с ADO, но разве операторы is и as в случае с потомками TCustomADODataSet работают как-то по-другому ?

← →
DSKalugin © (2005-06-04 12:44) [2]

Нашол
class function InheritsFrom(AClass: TClass): Boolean;

П.С. забыл, что сегодня суббота :-))

← →
DSKalugin © (2005-06-04 12:46) [3]

Да, as я тоже использую, для приведения типов

← →
Zacho © (2005-06-04 12:57) [4]

DSKalugin © (04.06.05 12:46) [3]

А is для проверки ?
:)

← →
DSKalugin © (2005-06-04 13:04) [5]

хехе, внатуре одно и тоже :-))
if (fmDM.dsPrice.DataSet is TCustomADODataSet) if fmDM.dsPrice.DataSet.InheritsFrom(TCustomADODataSet)

наоборот, для ленивых - IS (писать короче :-))
а InheritsFrom мне поискать пришлось :-)
Забыл, блин