文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 601
阅读 8
收藏 0
点赞 0
评论 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
博文 2004
码字总数 14107
作品 0
深圳
程序员
UITableView初识(1)

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

AppleDream ⋅ 2016/05/22 ⋅ 0

java扫盲 接口 Enumeration

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

泥沙砖瓦浆木匠 ⋅ 2014/08/12 ⋅ 0

初识Jackson

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

帅得拖网速 ⋅ 2016/08/11 ⋅ 0

关于C++类静态成员在Delphi中实现的思考

关于C++类静态成员在Delphi中实现的思考   没有用过Version 7 以后的Delphi版本,即便5、6、7版本,我也不能够说了解较深。因此,本文可能杞人忧天。   一、为什么需要静态成员    比如...

geek_loser ⋅ 2014/11/11 ⋅ 0

初识rxjava(二)

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

努力的右先生 ⋅ 2017/03/17 ⋅ 0

在ActiveX控件中如何动态调用DLL函数

刚到公司不久,接到领导的下达的一个任务,就是把对POS机操作功能封装在ActiveX控件中,在IE中调用。这样就能实现在IE上直接对POS机进行操作。而我要封装的这个动态库,厂家只提供了一个单的动...

晨曦之光 ⋅ 2012/03/09 ⋅ 0

Delphi 使用 Duilib 库--Duilib for Delphi

导读 什么是Duilib for Delphi? Duilib for Delphi是一个基于C++Duilib的开源工程,主要致力于在Delphi中使用Duilib库构建漂亮的UI。 怎么学习?首先对Duilib有基本的了解,特别是XML构建的U...

不在乎y ⋅ 2015/11/30 ⋅ 0

初识配置文件与反射

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

R_s_x ⋅ 2017/11/24 ⋅ 0

Spring Boot - 整合Jsp/FreeMarker

Spring Boot - 初识 Hello World 索引 Spring Boot - 初识 Hello World Spring Boot - Servlet、过滤器、监听器、拦截器 Spring Boot - 静态资源处理、启动加载、日志处理 Spring Boot - 数据...

刘忠旭 ⋅ 2017/06/10 ⋅ 0

[转] Java中调用Delphi编写的DLL

有些时候,要写一些程序,在 JAVA 里面好难实现, 但如果使用其它编程语言却又比较容易时,我们不妨通过 JNI 来让不同语言的程序共同完成. JNI 的教程, 网上 C 的比较多,Java 也提供了 javah.ex...

鉴客 ⋅ 2010/10/28 ⋅ 1

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Gitee 生成并部署SSH key

1.如何生成ssh公钥 你可以按如下命令来生成 sshkey: ssh-keygen -t rsa -C "xxxxx@xxxxx.com" # Generating public/private rsa key pair...# 三次回车即可生成 ssh key 查看你的 ...

晨猫 ⋅ 47分钟前 ⋅ 0

zblog2.3版本的asp系统是否可以超越卢松松博客的流量[图]

最近访问zblog官网,发现zlbog-asp2.3版本已经进入测试阶段了,虽然正式版还没有发布,想必也不久了。那么作为aps纵横江湖十多年的今天,blog2.2版本应该已经成熟了,为什么还要发布这个2.3...

原创小博客 ⋅ 今天 ⋅ 0

聊聊spring cloud的HystrixCircuitBreakerConfiguration

序 本文主要研究一下spring cloud的HystrixCircuitBreakerConfiguration HystrixCircuitBreakerConfiguration spring-cloud-netflix-core-2.0.0.RELEASE-sources.jar!/org/springframework/......

go4it ⋅ 今天 ⋅ 0

二分查找

二分查找,也称折半查找、二分搜索,是一种在有序数组中查找某一特定元素的搜索算法。搜素过程从数组的中间元素开始,如果中间元素正好是要查找的元素,则搜素过程结束;如果某一特定元素大于...

人觉非常君 ⋅ 今天 ⋅ 0

VS中使用X64汇编

需要注意的是,在X86项目中,可以使用__asm{}来嵌入汇编代码,但是在X64项目中,再也不能使用__asm{}来编写嵌入式汇编程序了,必须使用专门的.asm汇编文件来编写相应的汇编代码,然后在其它地...

simpower ⋅ 今天 ⋅ 0

ThreadPoolExecutor

ThreadPoolExecutor public ThreadPoolExecutor(int corePoolSize, int maximumPoolSize, long keepAliveTime, ......

4rnold ⋅ 昨天 ⋅ 0

Java正无穷大、负无穷大以及NaN

问题来源:用Java代码写了一个计算公式,包含除法和对数和取反,在页面上出现了-infinity,不知道这是什么问题,网上找答案才明白意思是负的无穷大。 思考:为什么会出现这种情况呢?这是哪里...

young_chen ⋅ 昨天 ⋅ 0

前台对中文编码,后台解码

前台:encodeURI(sbzt) 后台:String param = URLDecoder.decode(sbzt,"UTF-8");

west_coast ⋅ 昨天 ⋅ 0

实验楼—MySQL基础课程-挑战3实验报告

按照文档要求创建数据库 sudo sercice mysql startwget http://labfile.oss.aliyuncs.com/courses/9/createdb2.sqlvim /home/shiyanlou/createdb2.sql#查看下数据库代码 代码创建了grade......

zhangjin7 ⋅ 昨天 ⋅ 0

一起读书《深入浅出nodejs》-node模块机制

node 模块机制 前言 说到node,就不免得提到JavaScript。JavaScript自诞生以来,经历了工具类库、组件库、前端框架、前端应用的变迁。通过无数开发人员的努力,JavaScript不断被类聚和抽象,...

小草先森 ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部