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


Как я должен написать в методе 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
и переопределять ее у наследников.
Правда так не хочется делать

Ты будешь смеяться, но тишины как раз нету (D2009, если что). Если вызывать 

, то сообщение есть. Если 

 - то нету. Так что показывай тестовый пример, иллюстрирующий проблему. Как, что и чем ты инициализируешь...

Попытался из приведённого вами кода сделать рабочий пример.
Всё нормально работает. Привожу полный код. D2006.
Если у вас не заработет - проблема со средой (обновления и т.д.).
Если заработает - ищите отличия со своим кодом.
Если не получится - сделайте минимальный рабочий пример, котрый можно откомпилировать и выложите сюда.



Результат - одно сообщение:

б..я заработало   , всем спасибо, а БелАмору отдельное спасибо!

З.Ы. Я так и не понял в чем фигня была, просто тупо перенабрал свой код и все ок, разницы при это не нашел   

а это не есть гуд 

Вообще, в случае наступления совершенно необъяснимого полтергейста, имеет смысл для начала удалить из каталога проекта все dcu.
Кроме того, нужно тщательно следить, чтобы в каталоге не оставалось устаревших версий файлов pas и удалять их сразу, как только они образуются. Имеет смысл периодически проходить по каталогу и проверять его на наличие таких файлов. Случайно сохранившийся где-нибудь uses на старый файл - страшное дело...
Одной из возможных причин вашей ситуации могло быть сравнительно недавно выполненное сохранение какого-либо файла через Save As
В совсем запущенных случаях рекомендуется удалить всё, кроме pas и dfm (плюс, возможно, чего-то ещё) и создать проект заново, включив в него прежние файлы. Это бывает очень кстати при проблемах в случае открытия проекта в другой версии (особенно - более старой).

угу  

О чём ещё необходимо помнить:
Если в разных местах объявлены разные классы с одинаковыми именами, то это всё равно разные классы.
Если в каком-то месте доступны оба этих класса, то принимается во внимание тот, который упоминается последним. Та ещё засада. Можно создать объект одного типа в одном месте, а потом в другом пытаться проверить его через is на принадлежность к одноимённому, но другому классу, получать закономерный False и недоумевать... В таких случаях полезно вспомнить о полной спецификации: SomeModule.SomeName

угу, спасибо, знаем такую фишку  

DLL?

Нет, вопрос касался для EXE