重温Delphi之:面向对象
时间:2022-04-23
本文章向大家介绍重温Delphi之:面向对象,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
任何一门语言,只要具备了"封装,继承,多态"这三项基本能力,不管其实现方式是直接或曲折、复杂或简洁,就可以称之为“面向对象”的语言。
Delphi当年的迅速走红,是以其RAD快速开发吸引程序员的目光。这无疑是它最吸引人的优势,但同时也让人误以为delphi只是vb的高级版本,从而忽视了其面向对象的特性。
其实Pacscal发展到Delphi,已经完全具备了面向对象的所有特点:允许自定义类,类可以继承(单继承),允许方法重载/覆写,可以定义接口,类可以实现接口,允许定义静态方法(即class方法),虚方法,抽象类...等等,对于delphi怀有偏见的朋友,你还会怀疑delphi的面向对象能力吗?
下面是一些演示代码: 1.先定义一个基类TPeople
unit UPeople;
interface
type
TPeople = class(TObject)
private
_name:string; //私成成员定义
procedure Set_Name(value:string);//Name属性的set方法定义
function Get_Name:string; //Name属性的get方法定义
protected
function Get_Sex:Boolean;virtual;abstract; //定义抽象虚方法,由子类去实现
public
property Name:string read Get_Name write Set_Name; //定义Name属性
property Sex:Boolean read Get_Sex; //定义Sex只读属性(该属性并未实现,而是交由子类去实现)
class function ToString:string; //类方法,有点象c#中的static静态方法
procedure ShowName;//公用实例方法
end;
//实现部分
implementation
procedure TPeople.Set_Name(value:string);
begin
_name := value;
end;
function TPeople.Get_Name:string;
begin
result := _name;
end;
class function TPeople.ToString:string;
begin
result := 'This is a People Class';
end;
procedure TPeople.ShowName;
begin
Writeln('姓名:' + _name);
end;
end.
2.再定义一个子类TMan
unit UMan;
interface
uses
UPeople ;
type
TMan = class(TPeople)
constructor Create(name:string); overload ; //重载构造函数
private
_sex:Boolean;
protected
function Get_Sex:Boolean; override;
public
function ToString:string; //实例方法
end;
implementation
constructor TMan.Create(name:string); //注意写法:实现的时候不用加overload关键字
begin
inherited Create;
_sex := true; //男性强制定义为true
Self.Name := name;
end;
function TMan.Get_Sex:Boolean;
begin
result := _sex;
end;
function TMan.ToString:string;
begin
result := '这是TMan中的ToString方法';
end;
end.
3.再来一个子类TWoman
unit UWoman;
interface
uses
UPeople,UICook;
type
TWoman = class(TPeople,ICook)
constructor Create(name:string); overload ;
private
_sex:Boolean;
protected
function Get_Sex:Boolean; override;
public
procedure Cook;//接口的方法实现定义
procedure ShowName;overload;
//如果Class是从TObject继承的,又想实现接口的话,必须实现下面这三个function,
//如果想偷懒的话,把UPeople改成从TInterfacedObject继承就可以省掉这个步骤了
function _AddRef:Integer; stdcall;
function _Release:Integer;stdcall;
function QueryInterface(const IID:TGUID;out Obj):HResult; stdcall;
end;
implementation
function TWoman._AddRef:Integer;
begin
result :=-1;
end;
function TWoman._Release:Integer;
begin
result :=-1;
end;
function TWoman.QueryInterface(const IID:TGUID;out Obj):HResult;
const
E_NOINTERFACE = $80004002;
begin
if GetInterface(IID,Obj) then
Result := 0
else
Result := -1; {E_NOINTERFACE}
end;
constructor TWoman.Create(name:string);
begin
inherited Create;
_sex := false;
Self.Name := name;
end;
function TWoman.Get_Sex:Boolean;
begin
result := _sex;
end;
procedure TWoman.ShowName;
begin
Writeln('女人总是喜欢搞点花样,所以重载一下哈.')
end;
procedure TWoman.Cook;
begin
Writeln('因为我实现了ICook接口,所以我会做饭:)')
end;
end.
注意,TWoman这个子类实现了接口ICook,其定义如下:
4.ICook接口
unit UICook;
interface
type
ICook = interface //定义一个接口
procedure Cook;//接口的方法定义
end;
implementation
end.
5.放到ConsoleApplication中测试一把:
program ClassDemo;
{$APPTYPE CONSOLE}
uses
SysUtils,
UPeople in 'UPeople.pas',
UMan in 'UMan.pas',
UWoman in 'UWoman.pas',
UICook in 'UICook.pas';
var
aPeople:TPeople;
aMan:TMan;
aWoman:TWoman;
aCook:ICook;
begin
aPeople := TPeople.Create;
aPeople.Name := 'jimmy.yang';
Writeln(aPeople.Name);
Writeln(TPeople.ToString);//调用静态方法
aPeople.ShowName;
Writeln('----------------------------------------');
aMan := TMan.Create('杨俊明');
Writeln(aMan.Name);
Writeln(aMan.Sex);
aMan.ShowName; //通过继承得来的方法
Writeln(aMan.ToString);//TMan实例中的对象方法
Writeln('----------------------------------------');
aWoman := TWoman.Create('小龙女');
Writeln(aWoman.Name);
Writeln(aWoman.Sex);
aWoman.ShowName; //调用重载后的方法
aWoman.Cook;//实现接口得来的方法
Writeln('----------------------------------------');
aCook := ICook(aWoman);//类还可以转化为接口
aPeople.Free;
aPeople:= TWoman.Create('翠花'); //同样也允许子类创建得到父类
aPeople.ShowName;
aWoman.Free;
aWoman := TWoman(aPeople);
aWoman.Cook;
Readln;
end.
运行结果: jimmy.yang This is a People Class 姓名:jimmy.yang ---------------------------------------- 杨俊明 TRUE 姓名:杨俊明 这是TMan中的ToString方法 ---------------------------------------- 小龙女 FALSE 女人总是喜欢搞点花样,所以重载一下哈. 因为我实现了ICook接口,所以我会做饭:) ---------------------------------------- 姓名:翠花 因为我实现了ICook接口,所以我会做饭:)
- 1602: [Usaco2008 Oct]牧场行走
- 【LeetCode 500】关关的刷题日记27 Keyboard Row
- 1601: [Usaco2008 Oct]灌水
- 1657: [Usaco2006 Mar]Mooo 奶牛的歌声
- 1610: [Usaco2008 Feb]Line连线游戏
- 1012: [JSOI2008]最大数maxnumber
- 1430: 小猴打架
- 1202: [HNOI2005]狡猾的商人
- 1059: [ZJOI2007]矩阵游戏
- 3039: 玉蟾宫
- 大公司都有哪些开源项目之腾讯
- Vue拖拽组件开发实例
- 一小时培训之神经网络入门
- 【LeetCode 290】 关关的刷题日记28 Word Pattern
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- Hadoop之MapReduce开发总结
- python之文件操作
- 血的教训!千万别在生产使用这些 redis 指令
- Python selenium chrome parses blob url
- 实战|仅用18行JavaScript构建一个倒数计时器
- 译|通过Node和Redis进行API速率限制
- EasySwoole实现Execl导入导出
- 设计模式:参与者风格
- vuepress集成element-ui
- 如何利用unli-app框架快速构建EasyRTC_SFU安卓app项目?
- 离线安装Superset 0.37
- GO 语言 FAQ
- React倒计时功能实现——解耦通用
- 函数式编程 pipe之函数柯里化
- 初识SpringBoot