理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类
来源:互联网 发布:杀意波动补丁优化 编辑:程序博客网 时间:2024/06/06 08:55
//抽象方法类似与接口; 在没有接口的年代 Delphi 是用抽象方法来模拟接口的; 我想它最终会被接口替代.
{下面就定义了两个抽象方法}
TMyClass = class(TObject)
procedure Proc1; virtual; abstract; {抽象方法首先应该是一个虚方法或动态方法}
function Fun: string; dynamic; abstract; {抽象方法也叫纯虚方法}
end;
{
抽象方法在本类中只有定义、没有实现;
抽象方法应该在子类中实现.
如果一个类包含了抽象方法, 那么这个类也就成了抽象类;
抽象类只能通过其子类来实例化, 自己不能生成对象.
最常用的一个抽象类应该是 TStrings 了, 举例:
}
var
List: TStrings;
i: Integer;
begin
List := TStringList.Create;
for i := 0 to 99 do List.Add(IntToStr(i));
Memo1.Lines := List;
List.Free;
end;
{
TStrings 类中包含了抽象方法, 但这些抽象方法在其子类 TStringList 中都得到了实现;
因此, 我们虽然定义的是 TStrings 类的变量, 却要通过 TStringList 来实现.
这里就有个问题, 我们直接使用 TStringList 不行吗? 为什么还要绕个弯?
我觉得是: 这样才更符合"多态"的思想吧;
仅就本例而言 Memo1.Lines 本身就是 TStrings 类型的, 这样可以避免类型冲突. 举例说明:
}
//这是个错误的例子
var
List: TStringList; {如果定义为 List: TStrings 可消除错误}
begin
List := TStringList.Create;
List := Memo1.Lines; {这里会出问题}
List.Free;
end;
//在 Delphi 7 及以前的版本中, 我们是通过查看一个类是不是有抽象方法来判断是不是抽象类的.
{现在可以用 class abstract 声明抽象类, 譬如:}
TBass = class abstract(TObject)
procedure Proc;
function Fun: string; virtual; abstract;
end;
{但这好像仅仅是个提示, 如果其中没有抽象方法, class abstract 的定义只是个摆设, 譬如:}
TBass = class abstract(TObject)
procedure Proc;
function Fun: string;
end;
{和}
TBass = class(TObject)
procedure Proc;
function Fun: string;
end;
{使用起来没看出区别!}
- 理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类
- 理解 Delphi 的类(十一) - 深入类中的方法[1] - 虚方法与动态方法
- 抽象类与抽象方法理解
- Java中的抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- 抽象类与抽象方法
- Java的抽象类与抽象方法
- 关于父类与子类的类型转换(TStrings与TStringList)
- TRACE宏
- MATLAB2维小波变换经典程序
- *主旨: 存活者偏差----很重要的逻辑观念*(转)
- 头文件
- 理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类
- 利用 AWK 的数值计算功能提升工作效率
- 模拟SQL创建数据库表
- Java 入门::文件格式(一)
- Windows 2003 的默认上传文件大小和大小限制的问题
- Windows挂钩的简单使用
- 格式转换介绍
- Vmware 6.0.0 build-45731 在 Linux 2.6.X 安装 VmTools 的问题的解决方法
- Essential c++ 第六章二叉树的完整实现