zoukankan      html  css  js  c++  java
  • delphi self 的使用

    delphi self 的使用

    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;

    在创建Tbutton类的对象的时候,需要给出一个内存管理者。

    self就表示了正在运行button1click这个过程的那个对象(的数据块的首地址)。其实大多数情况下就是form1。//这里的理解有点问题应该是OWER管理者

    Delphi之覆盖和隐藏

    如果一个子类方法声明指定的标识符与继承得到的方法具有相同的名称,

    但是未包含override,那么新的声明只是隐藏(hides)了父类方法。也就是说子类和父类方法同样存在,

    父类方法是静态的,并未被覆盖,例如:

    type

    T1=class(TObject)

         procedure Act;virtual;//virtual也好,或则dynamic也好,只是说明此方法可被覆盖

    end;

    T2=class(T1)

         procedure Act;//Act再次被声明,但是因为没有被声明为overriden,所以没有覆盖父类T1的相应方法

    end;

    var

         SomeObject:T1;

    begin

          SomeObject:T2.Create;

          SomeObject.Act;//这里实际调用的是T1.Act

    end;

    关于Sender,Self,Owner和parent

    Sender--意义:指本对象。

    Sender在什么对象相关代码里,那么Sender就是什么。

    Self--意义:指本类,也就是Self被引用的类。比如若在类TMyClass内引用了Self,

    那么Self=TMyClass.

    Owner--意义:哪个对象释放我的内存啊?

    如:Pan:=TPanel.Create(Self);其中Create的参数是:AOwner:TComponent。

    Owner释放Pan的内存。因为窗口释放Pan的内存,

    但窗口类的对象是Self.一般给Owner传Self就可以。

    比如:

    代码段一:

    pan:=TPanel.Create(Self);

    with Pan do begin

    try

    Left:=20;

    Top:=20;

    parent:=Self; //Parent:=Form1也可以。

    Visible:=true;

    ShowMessage('Created');

    finally

    Pan.free;

    end;

    end;

    -----------------------------------------------------

    Parent--

    意义:此对象包括在哪个对象里那?

    说明:若组件不是从TControl继承来的,那么在创建组件后不必声明此属性。

  • 相关阅读:
    Codeforces Round #630 (Div. 2) E. Height All the Same(组合数学 快速幂 逆元)
    Codeforces Round #627 (Div. 3) F. Maximum White Subtree(树型dp 换根法)
    Codeforces Round #630 (Div. 2) F. Independent Set (树型dp)
    权值线段树 简单总结 相关例题
    Codeforces Round #631 (Div. 2) D. Dreamoon Likes Sequences (bitmasks +dp )
    2018,奔波与意义
    geopandas overlay 函数报错问题解决方案
    使用Python实现子区域数据分类统计
    我要做数据分析
    geotrellis使用(四十二)将 Shp 文件转为 GeoJson
  • 原文地址:https://www.cnblogs.com/jijm123/p/9216121.html
Copyright © 2011-2022 走看看