Delphi中的类和对象分享.pdfVIP

谈谈 Delphi 中的类和对象 作者 ：佚名 来源 ： InterNet 加入时间 ：2004-11-25 谈谈 Delphi 中的类和对象 1.登不了大雅之堂地理解几个概念 说到类和对象，我们不能不提及这样几个概念：类，对象，实例。就我个人觉得可 以这样来理解：对象指的是泛称，自然界的任何实体都可以看成一个对象；而类则是 以这些对象某些特征而分成的一系列的种类；实例则是特指属于某一个类的一个对象。 好啦，这些大道理我就不用多说了。不如来一个 “背道而驰 ”的作法，我们用 Delphi code 来阐述这些外国人提出的一些令我们中国人不好理解的概念吧： var ABtn:TButton; 定义 ABtn 是属于 TButton 类的一个对象，但 ABtn 不能说是一个实例，因为它还没有 被创建，所以我们说这是定义了一个对象，如果说定义了一个实例，多多少少有 一些不够确切。 :) begin ABtn:=TButton.Create(Self);// 创建一个 TButton 的实例 ABtn.Caption:= 对象 ; ABtn.Free; end; 2. 对象是一个地地道道的指针 从物理角度来看，对象就是一段地址空间，这段地址空间的标志就是我们定义的 类 变量“ ”。所以我们可以把对象看成一个类的指针。大家知道，要访问一个指针就 必须对指针初始化。对象的既然是一个指针，也必须对它进行初始化。如何初始化呢？ 还是说指针的初始化吧。对于一个指针可以有以下两种方法来进行初始化： (一 )直接分配 var Pint:^Integer; begin new(Pint); Pint^:=12; Dispose(Pint); end; (二 )指向别的已分配空间的变量 var Pint:^Integer; i:integer; begin i:=12; Pint:=@i; end; 有趣的是，对象这种 “指针 ”也有两种方法初始化 (一 )直接分配 var AForm:TForm; begin AForm:=TForm.Create(Self); AForm.ShowModal; AForm.Free; end; (二 )指向别的已分配空间的实例 var AForm:TForm; begin AForm:=Self; AForm.Caption:= 知道了吗？为什么会这样呢 ; end; file:// 这 个 AForm 和它所指向的 Form 实例共用同一段地址单元， 所有对 AForm 操作都将 反应 file:// 到 它所对应的 Form 实例之上。 说到这，我们就很好解释为什么过程 (函数 ) 的对象参数传递时，象这样这的格式 : (一 )procedure SetEdit(var Edit:TEdit); begin Edit.Text:=11; end; 和 (二 )procedure SetEdit(Edit:TEdit); begin Edit.Text:=11; end; 效果是一样的了。 (一 )是把一个 TEdit 实体作为参数引用的形式进行参数传递， (二 )是 把一个 TEdit 的对象 “指针 ”作为参数传递。 3. 类可以理解成一种特殊的数据类型 我们知道数据类型可以进行强制类型转化，类即然可以理解成一种数据类型，那 么它也应该可以进行类类型转。比方如下代码为一个按钮 (Button1) 的单击事件： (一 ) procedure TForm1.Button1Click(Sender: TObject); var ACaption:String;