Соответствие классов

← →
Unknown user © (2004-12-02 19:33) [0]

МАстера подскажите как проверить что переменная Cls:TClass, имеет тип TItemClass=class of TItem?

← →
Суслик © (2004-12-02 19:35) [1]

inheritsfrom

← →
Суслик © (2004-12-02 19:36) [2]

или на равенство, если нужно точное условие

← →
Unknown user © (2004-12-02 19:41) [3]

Cls.inheritsfrom(TItemClass) -ошибка компиляции
Cls=TItemClass -тоже. Сравнивать надо именно переменную типа TClass не имеет ли она тип TItemClass. Как?

← →
Суслик © (2004-12-02 19:42) [4]

> [3] Unknown user © (02.12.04 19:41)

ищи ошибку - я тебе все верно сказал

← →
Суслик © (2004-12-02 19:45) [5]

> Cls.inheritsfrom(TItem) -

тебе нужно это

← →
Юрий Зотов © (2004-12-02 23:47) [6]

> Unknown user © (02.12.04 19:41) [3]

InheritsFrom.

Ошибка компиляции связана с чем-то другим, не с этим. И что за ошибка - разве у нее нет текста?

← →
Игорь Шевченко © (2004-12-03 01:00) [7]

Если нужно точное сравнение, то можно попробовать

function IsItemClass (const Value: TClass): Boolean; begin Result := Value.ClassInfo = TItemClass.ClassInfo; end;

Если же допустимы и наследники, то InheritsFrom

← →
VMcL © (2004-12-03 07:19) [8]

>>Игорь Шевченко © (03.12.04 01:00) [7]

ИМХО, лучше так:
function IsItemClass (const Value: TClass): Boolean; begin Result := (Value <> nil) and (Value.ClassInfo = TItemClass.ClassInfo); end;
P.S. $BOOLEVAL, конечно, OFF.

← →
Unknown user © (2004-12-03 10:38) [9]

Спасибо всем, как всегда не углядел.

VMcL © (03.12.04 07:19) [8]

Лучше :) А еще лучше сравнивать ClassName, что в общем-то довольно очевидно. Вредно по ночам советы давать.

С уважением,

Игорь Шевченко © (03.12.04 23:54) [10]
А еще лучше сравнивать ClassName
разве равенство ClassName гарантирует что это один и тот же класс? Могут существовать одноименные классы объвленные в разных модулях.

jack128 © (04.12.04 17:39) [12]

Да, безусловно могут. Ошибся я, спасибо. Значит, остается ClassType для строгого сравнения.

При должной иерархии, кстати, сравнение по имени класса является довольно удобным средством не упоминать ненужные unit"ы в списке uses.

Соответствие классов Найти похожие ветки