提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  其他

当前栏目

教程-Tbutton(sender) 与 (sender as Tbutton) 等价吗？

教程 as 等价
2023-09-14 08:57:13 时间
问题：Tbutton(sender) 与 (sender as Tbutton) 等价吗？ 
答: 
1. Sender As TButton时delphi做类型检查。
比如:
var frm:TForm;
beign
  frm:=TFrom.Create(Applicaion);
  (frm as TButton).Caption:='这是错误的';//这里delphi不允许通过
end;
 
2. 而TButton(Sender)不管怎么样总是试图转化的。
比如:
TButton(frm).Caption:='虽然这样可以，但是错误';//这里可以通过，但是如果类型不对，造成内存混乱。
再如：
var i:Longint;
begin
  frm:=TForm.Create(Applicaiton);
  i:=Longint(Frm);
  TForm(i).Caption:='这样写是对的';
end;

相关文章