Sender и объект

[Аватар]

as к несовместимому типу никаких nil, а EInvalidCast. По-крайней мере в D7

[Serge_Bliznykov]

Сообщение от eval

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

ну, я попробовал.
Project1.rar

procedure TForm1.Button1Click(Sender: TObject);
var x : TButton;
  y : TObject;
begin
 y := Form1;
 x := y as tbutton;
 if x <> nil then showmessage(x.Caption);
end;

Получаю сообщение о "Invalid class typecase"
что не так?!


p.s. ладно, спор, на мой взгляд, не о чём. Проверять тип или не проверять - личное дело программиста. я бы лично проверял. это просто, наглядно, надёжно.
Но я встречал и людей, которые блоком try except с пустым обработчиком исключения "гасят" ошибки, программа якобы работает без ошибок

[eval]

тогда мои извинения, почему-то мне казалось что это не должно вызывать исключение, да и странно почему вызывает... в с#, например, другое поведение.

[northener]

почему-то мне казалось что это не должно вызывать исключение, да и странно почему вызывает

Имхо, ничего странного. На мой взгляд оператор as это предохранитель нужный (обязательный) на этапе отладки когда можно случайно по ошибке вызвать неверное приведение типа класса. Ибо такая ошибка в коде (как я уже упоминал выше) очень редко приведет к чему-либо сразу заметному. И поди потом разберись почему программа работает неправильно. А оператор as сразу всё скажет и покажет. А в релизе и оператор is нужен только при проходе по спискам Components/Controls когда мы никак заведомо не можем точно знать класс, на который указывает элемент списка.

[eval]

А в релизе и оператор is нужен только при проходе по спискам Components/Controls

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

а я т.к. делфи довно в руках держал, сейчас в основном шарп
http://msdn.microsoft.com/en-us/libr...(v=vs.90).aspx
то что-то как-то в недоумении