delphi之self
在使用delphi的对象技术的时候,经常会看到一个词汇:self,它到底指的是什么呢?我们还要从对象与类的关系谈起。 类是对将要创建的对象的性质的描述,是一种文档。这很重要:类只是一段描述性的文字,它并不会真去分配内存,无论在其中定义多少变量。 如果打个比方,类就是图纸,而对象就是根据图纸盖的房子。对象是真正在 内存中存在的东西,是运行“实体”。根据一份图纸可以盖多个相似的房子,同 样道理,根据一个类,可以创建多个类似的对象,这个过程叫做“实例化”。在delphi中使用对象技术,要遵循以下的步骤:
1。定义一个类
2。用该类声明一个名字(实质是一个指针)
3。用该类实例化一个对象,并使它与先前的名字联系起来
4。调用对象的方法或属性
5。释放对象
下面我们写一个最简单的表达累加器功能的类
type
TCount = class
private
FNum: integer; // 记录有多少个数字被累加
FSum: integer; // 当前的累加和
pubic
procedure Add(n: integer) // 把整数n累加进去
procedure clear; // 清零
procedure show; // 显示当前信息
constructor create; // 构造函数
end;
....
使用的过程是这样的:
var a: TCount; // 这里只是声明了一个名字,并非真正地分配了一个对象
...... // a这个变量只占用4字节地内存
a := TCount.create; // 在堆空间中分配内存,并把首地址拷贝到a中。
a.add(5);
a.add(7);
a.show(); // 以上是调用a对象的有关方法
a.free; // free会去调用析构函数,完成堆空间的释放。
我们看这样一个问题:一个对象到底占用多大的内存空间?
答案是很小!因为在分配一个对象地时候,实际上只分配了类中定义的数据,而没有分配其中的函数所需要的空间。这些类中定义的函数(称为成员函数),与普通函数一样被存放在静态地址空间中。
这样就引出了第二个问题:既然对象的数据和操作这些数据的方法不是存在一起,那么这些函数如何才能知道到底要操作哪个数据块呢?(类可生成多个实例)
显然,最容易想到的解决办法就是让这些特殊函数带一个参数,是个指针类型,该指针指示要操作的数据块的首地址。
事实上,成员函数正是这样做的,它们有一个缺省的参数self,这是个指针类型,对于上边的例子,它的定义就是:TCount self。编译器在遇到调用a.add(5)的时候,把它解释为:TCount.add(a,5);把代表对象的数据块的地址送给add函数作为第一个参数--隐含的参数。
说得本质一些就是:self是当前正在执行本函数的那个对象的数据块的首地址。
self既然代表对象自己,那么难道自己还用定义吗?看下边的代码:
procedure TForm1.button1click(sender: TObject);
var
a: TButton;
begin
a := Tbutton.create(self);
....
end;
转载于:https://www.cnblogs.com/keycode/archive/2010/10/16/1853128.html