Sender и объект

[Человек_Борща]

eval, у вас неправильная справка. AS ничего не проверяет, это просто приведение типа. А вот IS проверяет, если хоть в каком-то колене дерева предков проверяемого объекта есть желаемый класс, оператор IS вернет TRUE.

[northener]

то получаем (закономерно!) access vioalation. (см. скриншот)

И где вы увидели AV?
Вы получили EInvalidCast, который возбудил as после того как его проверка показала несоответствие типа.

А вот AV вы получите при простом приведении типа (если вам очень повезет). Чаще всего исключения при неверном приведении типа не будет вообще.

[northener]

AS ничего не проверяет

AS не просто так называется checked typecast

[eval]

as возвращает либо ссылку либо nil, вы думаете как он это делает?
правильно через проверку ..
грубо ас делает так

if x is someclass then result := someclass(x)
else result := nil

[Человек_Борща]

Все равно опасно без IS работать. Лишняя проверка IS упреждает и сводит к 0, вероятность получить EInvalidTypecast а ещё можно своё else прописать.

[northener]

Все равно опасно без IS работать. Лишняя проверка IS упреждает и сводит к 0, вероятность получить EInvalidTypecast а ещё можно своё else прописать.

А кто говорит что is не нужен сам по себе? Просто в каждом конкретном случае используется тот вариант приведения типа, который наиболее удобен.

[eval]

Все равно опасно без IS работать.

да ну..

x := y as tbutton;
if x <> nill then showmessage(x.Caption);

[northener]

2 eval
Строчка if x <> nill then showmessage(x.Caption); не будет выполнена в случае несоответствия типов так как предыдущая строчка возбудит исключение упомянутое выше.

[eval]

а вы попробуйте

[northener]

а вы попробуйте

Сейчас не на чем. На работе Делфи нет. Но вроде уже много раз пробовал. Если y не является ссылкой на tbutton или его наследника, то приведение y as tbutton обязано возбудить исключение EInvalidCast. По крайней мере в Делфи до 2007 включительно.