文档章节

理解 Delphi 的类(二) - 初识类的方法

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 601
阅读 8
收藏 0
说到"类", 就会提到:
属性方法事件 (这是类包含的内容);
封装继承多态 (这是类的主要用途).

下面定义并调用了了一个过程 MyProc、一个函数 MyFun.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


//这是一个过程, 过程没有返回值
procedure MyProc(var x: Integer);
begin
  x := x * 2;
end;

//这是一个函数, 函数必须有返回值
function MyFun(var x: Integer): Integer;
begin
  x := x * 2;
  Result := x;
end;


//调用过程与函数
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := 6;
  MyProc(i);                {使用过程}
  ShowMessage(IntToStr(i)); {12}

  i := 6;
  i := MyFun(i);            {使用函数}
  ShowMessage(IntToStr(i)); {12}
end;

end.

 
 
 
 
 

 

 

  
把过程与函数 MyProc、MyFun 包含在一个类里面.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Type
  TMyClass = class
    procedure MyProc(var x: Integer);
    function  MyFun (var x: Integer): Integer;
  end;
{
  上面定义了一个类, 其中包含了两个方法;
  函数与过程来到类里面一般叫做方法, 函数是有返回值的方法、过程是没有返回值的方法;

  在这里, 方法只有定义没有实现;
  但必须在本单元的 implementation 区内实现.

  下面就是两个方法的实现:
}

function TMyClass.MyFun(var x: Integer): Integer;
begin
  x := x * 2;
  Result := x;
end;

procedure TMyClass.MyProc(var x: Integer);
begin
  x := x * 2;
end;



//调用测试
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  myClass: TMyClass;          {对象声明}
begin
  myClass := TMyClass.Create; {对象建立}

  i := 6;
  myClass.MyProc(i);          {调用方法}
  ShowMessage(IntToStr(i));   {12}

  i := 6;
  i := myClass.MyFun(i);      {调用方法}
  ShowMessage(IntToStr(i));   {12}

  myClass.Free;               {对象释放}
end;

end.

 
 
 
 
 

 

 

  
一般情况下, 类都会定义在 interface 区; 在 implementation 区定义的类只能本单元使用.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

  {类定义, 因为已经在 Type 区了, 可以省略 Type 关键字}
  TMyClass = class
    procedure MyProc(var x: Integer);
    function  MyFun (var x: Integer): Integer;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


{TMyClass 中方法的实现}

function TMyClass.MyFun(var x: Integer): Integer;
begin
  x := x * 2;
  Result := x;
end;

procedure TMyClass.MyProc(var x: Integer);
begin
  x := x * 2;
end;



//调用测试
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  myClass: TMyClass;          {对象声明}
begin
  myClass := TMyClass.Create; {对象建立}

  i := 6;
  myClass.MyProc(i);          {调用方法}
  ShowMessage(IntToStr(i));   {12}

  i := 6;
  i := myClass.MyFun(i);      {调用方法}
  ShowMessage(IntToStr(i));   {12}

  myClass.Free;               {对象释放}
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/01/11/1034510.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
UITableView初识(1)

第一:对于控件,我已说了几个,学习控件,就是学习控件的创建(图形界面的操作,代码的手动创建,外加对控件的封装); 第二个:就是这个控件的一些应用场景,应用于哪些场合。 第三个:那就是...

AppleDream
2016/05/22
21
0
java扫盲 接口 Enumeration

java扫盲 接口 Enumeration 摘要: 摘要: 原创出处: http://www.cnblogs.com/Alandre/ 泥沙砖瓦浆木匠 希望转载,保留摘要,谢谢! 记起2年前,高中生活最多的是老师的批评。谢谢! -泥沙砖瓦...

泥沙砖瓦浆木匠
2014/08/12
0
0
初识Jackson

首先我们学习json的时候第一想到的是如何将JavaBean对象转化成Json字符串,或者怎样将json字符串转化成JavaBean对象。 一.JavaBean对象转化成Json字符串(串行化) 使用ObjectMapper object...

帅得拖网速
2016/08/11
60
0
初识rxjava(二)

上一篇,简单的认识了最近火爆异常的RxJava,如果你对RxJava还是很陌生,你可以去网上找一下相关知识,当然也可以看我的上一篇文章初识RxJava。这里我通过RxJava的使用场景之一——与Retrofi...

努力的右先生
2017/03/17
0
0
初识配置文件与反射

前言 在开始重构之前有一些疑惑点,配置文件以及反射。虽然之前听过过,但是不清楚是什么,先认识一番。 配置文件 定义 配置文件是用户登录电脑时,或是用户在使用软件时,软件系统为用户所要...

R_s_x
2017/11/24
0
0

没有更多内容

加载失败,请刷新页面

加载更多

特斯拉车主成功破解了自己Model 3汽车

据汽车博客Electrek消息,一位特斯拉车主成功破解了自己Model 3汽车,还在此基础上运行了Ubuntu。 这位叫trsohmers的网友表示,“功劳大多要归到Ingineerix的头上,他花了数月才找到初始的那...

linuxCool
20分钟前
1
0
Gitbook : random errors when using gitbook plugin on running "gitbook serve"

在执行gitbook serve时,会有不定的失败错误 参考问题 :#1309 解决方案: 更新gitbook版本,这个问题似乎是3版本的问题 , 官方也不打算在这个版本解决了。 更新 到最新版本后, 不再出现问...

ol_O_O_lo
34分钟前
1
0
提灯照暗,向内自省——《中国文化的深层结构》读书笔记3800字

提灯照暗,向内自省——《中国文化的深层结构》读书笔记3800字: 作者:王健茜;断断续续一个多月才读完了《中国文化的深层结构》,这并不是一本难懂的书,之所以读得慢,源于对书中观点的思...

原创小博客
37分钟前
1
0
高德地图-行政区域接口

1、获取全国各省信息 https://restapi.amap.com/v3/config/district?extensions=all&key=应用Key&s=rsv3&output=json 2、获取下级行政区域信息 https://restapi.amap.com/v3/config/distric......

voole
48分钟前
4
0
集群介绍 ..

12月19日任务 18.1 集群介绍 18.2 keepalived介绍 18.3/18.4/18.5 用keepalived配置高可用集群 一.集群介绍 根据功能划分为两大类:高可用和负载均衡 高可用集群通常为两台服务器,一台工作,...

hhpuppy
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部