Возник вопрос по определению принадлежности объекта к классу, а именно, есть класс:


Как я должен написать в методе TRawClass.Method, чтобы узнать, что Owner является ли класс TSecondClass или классом унаследованных от TSecondClass (т.е. TThirdClass)


Это сообщение отредактировал(а) Delphist - 10.1.2011, 01:22

см. as 

is проверяет принадлежность объекта классу или его наследнику, в большинстве случаев этого достаточно. Если нужно отсечь наследников и проверять на точное соответствие, то картина усложняется.
Надёжным вариантом является проверка имени класса, получаемого через метод ClassName, либо проверка напрямую через метод IsClassName. Для того, чтобы не допустить опечаток, можно использовать именованные константы, либо получать имя класса через классовый метод напрямую из нужного класса, что и было продемонстрировано в приведённом коде.
Мне было лень это писать, но один голос с оценкой -3 вынудил сделать это.
Хотелось бы, чтобы поставивший -3 сделал ответную любезность и обосновал свою позицию.

БелАмор, не напрягайся , вон автора топика в прошлой теме вообще в ноль заминусовали.

Это сообщение отредактировал(а) superVad - 10.1.2011, 10:37

Delphist, почитай про операторы as, is, про RTTI.

Поскольку тут пошла речь про as и is, думаю, нелишним будет обратить внимание на несколько неочевидных моментов:

1. is проверяет на приналдежность классу или его наследнику.
2. is предназначен только для поверки принадлежности классу, являющимся потомком по отношению к классу, к которому относится переменная, ссыляющаяся на проверяемый объект. В случаях, когда принадлежность к классу вытекает из типа переменной, компилятор вообще исключает проверку, подставляя True.
3. as предназначен для приведения типа с проверкой только к потомку, но никак не к предку. При попытке приведения типа к предку через as, as игнорируется. В этом случае следует использовать обычное приведение типа.

Ссылка: ПРОГРАММИСТ.Нецелевое использование оператора is

и как это должно помочь?

Согласен

Добавлено @ 13:49

оператор is делает неправильно оценку для моего случая, т.к. в моем TRawClass  Ower is TCustomClass, поэтому вызов


а нужно, чтобы если Owner := SecondClass или Owner := ThirdClass, то вызов if Owner is TSecondClass then (или if Owner is Наследники TSecondClass then) возвращал True
как это сделать?


Это сообщение отредактировал(а) Delphist - 10.1.2011, 13:59

я и так про них все отлично знаю, еще раз внимательно посмотрите на мой пример

Не может ли быть такой ситуации, что на момент вызова TRawClass.Method Owner по какой-либо причине равен nil, например, его вызов происходит в конструкторе до присвоения Owner, или по каким-либо другим причинам?
Указывает ли Owner на реально существующий объект в момент проверки?

я, лично, не понял вопроса %)

Да указывает, и это не важно сейчас. Вопрос мой совершенно в другом направлении,
я про то, что если написать

и вызвать 


то вместо ожидаемого сообщения, будет тишина, хотя когда создавался RawClass в constructor'e TSecondClass, то RawClass.Owner := Self = SecondClass'y
Как заставить  if Owner is TSecondClass  then  правильно отрабатывать

Добавлено @ 15:55

на примере показал

Это сообщение отредактировал(а) Delphist - 10.1.2011, 15:59

А если написать:

... то какое имя класса будет показано перед тишиной?

Это сообщение отредактировал(а) БелАмор - 10.1.2011, 16:49

TSecondClass

Добавлено через 6 минут и 16 секунд
Проблема видать возникает что Owner изначально в TRawClass объявлен как TCustomClass,
и поэтому даже присвоение Owner := SecondClass, где SecondClass: TSecondClass не помогает
is вернет TCustomClass.
А вот как это исправить не знаю, единственный вариант, который пока вижу использовать
заместо Owner is TSecondClass использовать виртуальную функцию возвращающий Boolean
и переопределять ее у наследников.
Правда так не хочется делать