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;
4、
十、