谈谈Delph中的类和对象2---类可以理解成一种特殊的数据结构、类型转换
三、类可以理解成一种特殊的数据结构
我们知道数据类型可以进行强制类型转换,类既然可以理解成一种数据类型,那么它也应该可以进行类型转换。比如下面代码为一个按钮(Button1)的单击事件
procedure TForm1.Button1Click(Sender: TObject); var ACaption: String; begin ACaption:= TButton(Sender).Caption; //Sender从TObject转化为TButton ShowMessage(Format('You clicked "%s"!',[ACaption])); end;
在这段代码中,Sender是一个TObject型对象,我们把它强制转化为TButton类型,注意进项强制类型转换的格式:TButton(Sender);
如果你看得不清楚,可以参照一下我们通常的数据类型的转化
procedure TForm1.Button1Click(Sender: TObject); var S_Str: String; P_Str: PChar; begin S_Str:= 'I love China'; P_Str:= PChar(S_Str); S_Str:= ''; S_Str:= String(P_Str);; ShowMessage(S_Str); end;
但是在面向对象的程序设计过程中,强调的是安全性,比如上面的将TObject类型的Sender强制转换成TButton存在着不安全性。
如下面的代码依然是写Button1.OnClick事件
procedure TForm1.Button1Click(Sender: TObject); begin TCanvas(Sender).Brush.Color:= clRed; end;
执行一下就会出错,这样岂不是违背了面向对象的程序设计的宗旨了吗?没有!既然是类,就应该有类特定的类强制转换方法,更改上面的代码如下
procedure TForm1.Button1Click(Sender: TObject); begin (Sender as TCanvas).Brush.Color:= clRed; end;
使用as来转化,as 就可以把错误抓住,不会影响程序的正常运行
如下面的操作:在一个窗体上放一个Edit和十个Button,把Button.Caption分别设置为'0'、'1'、……'9',然后写下一个按钮的OnClick事件如下
procedure TForm1.Button1Click(sender: TObject); begin Edit1.Text:= Edit1.Text+(Sender as TButton).Caption; end;
就可以把别的Button的OnClick事件关联到Button1Click上。