DELPHI面向对象参考

　　DELPHI面向对象参考
　　陈奇 2005-07-21
　　一、类和对象
　　类是对象的类型，是创建对象的模板。一个类可以创建多个对象，而一个对象总是属于某个类。类具有内部的属性（状态）和行为（操作）。
　　对象是类的实例，具有区别于同类其他对象的属性集合。
　　对象的声明存放于堆栈，对象的引用存放于堆。
　　二、类的方法分类
　　1、 普通方法
　　不加任何修饰的方法为普通方法。普通方法必须调用类的实例进行访问。即必须
　　建类的对象，调用方式为：对象.方法，声明方式为：
　　procedure[function] 方法名(参数表)[:返回值];
　　2、 构造方法
　　构造方法用于创建类的实例，调用后返回类的句柄。构造方法可以有多个版本。声明方式是：
　　 constructor 构造方法名(参数表);
　　3、 析构方法
　　析构方法用于销毁类的实例，一般不建议直接调用析构方法，而采用调用对象.Free的方式进行对象释放。声明方式为：
　　destructor 析构方法名(参数表);
　　4、 类方法
　　类方法属于一个类，在运行时即存在于内存中。可使用类.方法的方式进行调用，即不需要创建类的实例。声明方式是在普通方法前加class：
　　class procedure[function] 方法名(参数表)[:返回值];
　　5、 消息处理方法
　　消息处理方法和一个唯一的消息ID进行关联，用于响应动态分派的消息。声明方式：
　　procedure 方法名(消息变元);message 消息ID;
　　三、多态、继承、重载
　　1、 静态方法
　　静态方法由对象的类决定。属于“早期联编”，即在编译阶段就决定了方法的实现版本。一个类的实例可创建为其他类的实例，但是调用到同名方法时，使用的方法是声明该实例的类的静态方法，声明方式：
　　procedure[function] 方法名(参数表)[:返回值];
　　2、 虚拟方法
　　虚拟方法可实现“后期联编”，即在程序运行时可动态调用不同的方法版本，实现多态。所有类的虚拟方法在内存中建立了一张VMT（虚拟方法表），在调用时动态定位方法函数的位置。比动态方法多占用内存空间，但是速度较快。声明方式：
　　procedure[function] 方法名(参数表)[:返回值];virtual;
　　3、 动态方法
　　虚拟方法可实现“后期联编”，即在程序运行时可动态调用不同的方法版本，实现多态。本类的动态方法在内存中建立了一个DMT（动态方法表），在调用时根据动态方法唯一的编号定位方法地址。比虚拟方法少占用内存，但是速度较慢（因为可能用到祖先类的动态方法）。声明方式：
　　procedure[function] 方法名(参数表)[:返回值];dynamic;
　　4、 抽象方法
　　抽象方法不提供方法的实现脚本。只提供一个方法的签名（方法名称、参数表、返回值）。一般在高级别类中使用抽象方法。派生类对抽象方法进行覆盖、重载实现抽象方法脚本。使用抽象方法，必须创建实现了抽象方法的类（一般为派生类）才可使用。因为抽象方法也属于“后期联编”，因此必须和虚拟方法、动态方法结合，声明方式：
　　procedure[function] 方法名(参数表)[:返回值];virtual;abstract;
　　procedure[function] 方法名(参数表)[:返回值];dynamic; abstract;
　　抽象方法提供了一种从高层次视图观察对象的方式
　　5、 方法覆盖
　　在父类中生命的静态方法、虚拟方法、动态方法，都可在派生类中进行同名签名登记。这将覆盖父类的这些方法。提供更特殊的功能，声明方式：
　　procedure[function] 方法名(参数表)[:返回值];override;
　　方法的覆盖提供了对类的多态性
　　6、 方法重载
　　在父类中生命的静态方法、虚拟方法、动态方法，都可在派生类中进行同名签名登记，但是需要不同的参数表。这将重载父类的这些方法。提供更特殊的功能，声明方式：
　　procedure[function] 方法名(参数表)[:返回值];overload;
　　方法的重载提供了对类的扩充性
　　四、reintroduce、self、is、as
　　1、 reintroduce
　　当父类中以定义了一方法，派生类再定义同签名的方法将会隐藏父类的方法，如果不希望这种结果出现，可在派生类定义方法时，加此标志，声明方式：
　　procedure[function] 方法名(参数表)[:返回值];reintroduce;
　　2、 self
　　self代表了实例对象自身。类的所有数据成员和函数成员都隐含存在于with self do结构范围内。使用方法：
　　self.Edit1.text:=’’;
　　3、 is
　　is用于进行实例对象的类型检查，以Boolean返回是否是该类实例（或派生类实例），使用方法：
　　if Edit1 is Tedit then …
　　4、 as
　　as用于进行对象的强制类型转换，一般适用于子类向父类的转换（特殊→一般），而从父类到子类的转换可能失败。在使用时，可结合is进行判断，使用方式：
　　if Sender is Tedit then (Sender as TEdit).Text:=’’;
　　五、类内部成员可见性
　　1、 类具有private、public、protected、published共4中访问属性。访问属性是指其他类对该类对象的可操作性，可读写性，以及其他类对本类中类方法（函数）的可操作性
　　2、 private：本类内部使用；声明在同一单元的其他类可使用
　　3、 public：本类、本类派生类、其他类都可访问
　　4、 protected：本类、本类派生类可访问。其他类不可访问
　　5、 published：所有类都可访问。
　　综合举例：
　　TClass1=class
　　private
　　 {内部数据/状态储存声明}
　　 FName: string;
　　 FAge: Integer;
　　 {内部属性写方法声明}
　　 procedure SetAge(const Value: Integer);
　　protected
　　 {保护虚方法声明}
　　 procedure Eat;virtual;
　　public
　　 {公有属性/状态储存声明}
　　 Sex: string;
　　published
　　 {公共属性发布声明}
　　 {构造函数}
　　 constructor create;
　　 {具有读/写方法的属性声明}
　　 property Name:string read FName write FName;
　　 property Age: Integer read FAge write SetAge;
　　end;
　　TClass2=class
　　private
　　 FSex: string;
　　published
　　 constructor create;
　　end;
　　TClass11=class(TClass1)
　　public
　　 {覆盖了父类中同名的方法，提升了方法的可见性}
　　 procedure Eat;override;
　　end;
　　{ TClass1 }
　　constructor TClass1.create;
　　begin
　　end;
　　procedure TClass1.Eat;
　　begin
　　end;
　　procedure TClass1.SetAge(const Value: Integer);
　　begin
　　 FAge := Value;
　　end;
　　{ TClass2 }
　　constructor TClass2.create;
　　var
　　 c2:TClass2;
　　begin
　　 c2:=TClass2.create;
　　 c2.FSex:='';
　　 FreeAndNil(c2);
　　end;
　　{ TClass11 }
　　procedure TClass11.Eat;
　　begin
　　 inherited;
　　end;
　　UML图-类图：
　　6、 派生类可提升父类的可见性，却不可降低父类的可见性
　　六、对象、对象引用、类引用、参数传递
　　1、 对象之间通过消息传递（参数），进行互操作，使用其他类提供的服务（方法组合）；消息即对另一对象方法的调用或属性读写
　　2、 对象分配在堆中、普通数据类型分配在栈中
　　3、 对象名代表了该对象在栈中的位置，该位置存储的是对象在堆中的实际地址；普通变量名代表了该变量在栈中的位置，该位置存储的是具体数据，而该数据可能是其他变量/对象的地址
　　4、 值参传递：传递的是具体的数值，进行处理后不会改变原值，其实传递的是该数据的一个副本
　　5、 引用传递：传递的是对该变量/对象的地址引用，处理后可能会改变原值，传递的是同一个变量/对象的地址
　　6、 类引用：类的类，形式为“class of type”，其中type代表该类可引用的类元类型。
　　七、对象的创建、使用、销毁
　　1、 创建：Create是 Tobject提供的默认构造函数，若从Tobject继承创建的类，自动继承该方法
　　2、 销毁：Destroy是Tobject提供的默认析构函数，若从Tobject继承创建的类，自动继承该方法
　　3、 使用：可使用if Assigned (对象名) 判断该对象是否存在；使用FreeAndNil(对象名)释放对象
　　4、 克隆：继承自Tpersistent的类对象都具有克隆功能。使用对象2.Assign(对象1)的方式克隆
　　5、 对象的属主：当对象拥有属主时，其生命周期由属主对象进行管理，无属主的对象需要进行手工管理。
　　6、 对象的创建：先继承父类创建，再完成自身的创建
　　7、 对象的释放：先释放自身，在完成父类的继承释放
　　八、类及对象间的关系
　　1、 继承：子类继承了父类的所有保护、公有、发布部分的数据成员及函数/过程成员
　　2、 重载：不是类的特有。提供一个同名但参数不同的函数/过程，具有多个实现版本
　　3、 覆盖：子类通过继承父类的函数/过程，重新定义了功能实现
　　4、 引用：一个对象内部定义了另一个对象变量，即为引用关系
　　5、 合成：对象内的各组成部分依赖于某一主体属性而同生共灭
　　6、 聚合：对象内的各组成部分属于零散的简单组合关系，使用不同的服务组合成一个整体的功能
　　九、接口
　　1、 接口：具有某种特定的属性及函数/过程签名的定义，而没有实现。不具备内部数据成员。功能的调用是通过创建实现其功能签名的派生类完成的
　　2、 接口必须具备3个方法：_AddRef/_Release/QueryInterface，最简单的方式是从TinterfacedObject继承
　　3、 接口使用演示：
　　IInterface=interface
　　['{02960574-2025-46C3-9882-F79C3C67EA99}']
　　 function GetName:string;
　　 procedure Eat;
　　end;
　　TPerson=class(TInterfacedObject,IInterface)
　　private
　　 FName: string;
　　public
　　 function GetName:string;virtual;
　　 procedure Eat;dynamic;
　　 procedure SayHello;virtual;abstract;
　　published
　　 constructor create;
　　 destructor destory;
　　 property Name:string read FName write FName;
　　end;
　　TChinese=class(TPerson,IInterface)
　　public
　　 procedure SayHello(str:string);overload;
　　 procedure SayHello;overload;override;
　　published
　　 constructor create;
　　 destructor destory;
　　end;
　　{ TPerson }
　　constructor TPerson.create;
　　begin
　　 ShowMessage('TPerson.create');
　　end;
　　destructor TPerson.destory;
　　begin
　　 ShowMessage('TPerson.destory');
　　end;
　　procedure TPerson.Eat;
　　begin
　　 ShowMessage('TPerson.Eat');
　　end;
　　function TPerson.GetName: string;
　　begin
　　 result:='TPerson.GetName';
　　end;
　　{ TChinese }
　　procedure TChinese.SayHello(str: string);
　　begin
　　 ShowMessage('TChinese.SayHello('+str+')');
　　end;
　　constructor TChinese.create;
　　begin
　　 ShowMessage('TChinese.create');
　　end;
　　destructor TChinese.destory;
　　begin
　　 ShowMessage('TChinese.destory');
　　end;
　　procedure TChinese.SayHello;
　　begin
　　 //inherited;
　　 ShowMessage('TChinese.SayHello');
　　end;
　　procedure TForm1.Button2Click(Sender: TObject);
　　var
　　 FMan:TPerson;
　　begin
　　 FMan:=TChinese.create;
　　 FMan.SayHello;
　　 FMan.Free;
　　end;