理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类

//抽象方法类似与接口; 在没有接口的年代 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;

{使用起来没看出区别!}

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi11 是最新的 Delphi 版本,而 `delphi-opencv-master` 是一个开源的 Delphi 与 OpenCV 集成的项目,它提供了一组 Delphi 封装的 OpenCV 函数和类,方便 Delphi 开发者使用 OpenCV 进行图像处理和计算机视觉操作。 在 Delphi11 ,你可以通过以下步骤来使用 `delphi-opencv-master`: 1. 首先,你需要下载 `delphi-opencv-master` 项目的源代码,可以从 GitHub 上下载:https://github.com/Laex/Delphi-OpenCV 2. 解压缩下载的源代码,并将其的 `OpenCV` 文件夹复制到 Delphi11 项目的根目录下。 3. 在 Delphi11 打开你的项目,然后在菜单栏选择 `Project` -> `Options` -> `Delphi Compiler` -> `Search Path`,将 OpenCV 文件夹所在的路径添加到搜索路径。 4. 在 Delphi11 使用 `uses` 语句引入 `OpenCV_Image` 单元,并调用其的函数和类来进行图像处理和计算机视觉操作。 例如,以下代码演示了如何使用 `delphi-opencv-master` 进行图像读取和灰度化: ``` uses OpenCV_Image; var img: IplImage; begin // 读取图像 img := LoadImage('lena.jpg'); // 将图像转换为灰度图像 cvCvtColor(img, img, CV_RGB2GRAY); // 显示图像 ShowImage('My Image', img); // 等待用户按下任意键 WaitKey; // 释放图像内存 img.Release; end; ``` 这段代码使用了 `OpenCV_Image` 单元提供的 `LoadImage` 函数和 `ShowImage` 函数来读取和显示图像,使用了 OpenCV 库的 `cvCvtColor` 函数将图像转换为灰度图像。你可以根据自己的需要,使用 `delphi-opencv-master` 提供的其他函数和类来进行更加复杂的图像处理和计算机视觉操作。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值