文档章节

关于类的入门例子(2): 数字盒子

涂孟超
 涂孟超
发布于 2014/09/26 15:29
字数 187
阅读 4
收藏 0
//类单元
unit NumBox;

interface

type
  TNumBox = class
  private
    FCount: Integer;
  public
    procedure AddOne;
    procedure AddFive;
    procedure ZeroCount;
    function GetCount: Integer;
  end;

implementation

{ TNumBox }

procedure TNumBox.AddOne;
begin
  Inc(FCount);
end;

procedure TNumBox.AddFive;
begin
  Inc(FCount,5);
end;

procedure TNumBox.ZeroCount;
begin
  FCount := 0;
end;

function TNumBox.GetCount: Integer;
begin
  Result := FCount;
end;

end.

 
 
 
 
 

 

 

  
//调用 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses NumBox; var NumBox1: TNumBox; procedure TForm1.FormCreate(Sender: TObject); begin NumBox1 := TNumBox.Create; end; procedure TForm1.Button1Click(Sender: TObject); begin NumBox1.AddOne; Text := IntToStr(NumBox1.GetCount); end; procedure TForm1.Button2Click(Sender: TObject); begin NumBox1.AddFive; Text := IntToStr(NumBox1.GetCount); end; procedure TForm1.Button3Click(Sender: TObject); begin NumBox1.ZeroCount; Text := IntToStr(NumBox1.GetCount); end; procedure TForm1.FormDestroy(Sender: TObject); begin NumBox1.Free; end; end.

本文转载自:http://www.cnblogs.com/del/archive/2007/12/13/993623.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
CSS入门指南-2:盒子模型、浮动和清除

这是CSS设计指南的读书笔记,用于加深学习效果。 上一篇介绍了css 的工作原理,这一篇主要介绍和。 盒子模型 所谓盒子模型,就是浏览器为页面中的每个HTML元素生成的矩形盒子。这些盒子们都要...

goodspeed
2017/07/22
0
0
Java程序员从笨鸟到菜鸟之(十七)CSS基础积累总结(下)

七.组织元素(span和div) span和div元素用于组织和结构化文档,并经常联合class和id属性一起使用。 在这一课中,我们将进一步探究span和div的用法,因为这两个HTML元素对于CSS是很重要的。 ...

长平狐
2012/11/12
241
0
关于非对称加密,这里有个最简单的解释!

本文转自微信公众号“Wancloud万云”发布的译文: Panayotis Vryonis《Explaining public-key cryptography to non-geeks》 原文地址:http://mp.weixin.qq.com/s/E-i4a5sEKWRRq3f0zzXekQ 作......

万向区块链
2018/04/03
168
1
5. Java 中的变量 【连载 5】

1. 理解 Java 中的变量 程序中需要处理数据,Java 中的变量是用来装载数据。变量类似一个盒子,我们通过这个盒子,就可以操作盒子里面的数据。 Java 中每个变量都有名称和数值。名称不会变化...

密叔
2018/01/07
0
0
谈谈机会过程中的平均数律与机会变异

基本概念 下面列出的几个概念有助于理解本文所讨论的主题。 机会过程 书中没有给出机会过程的显式定义,我用搜索引擎也没有找到理想的回答: 但是书中提供了丰富的例子来说明机会过程,括号内...

Lee的白板报
2015/08/29
213
0

没有更多内容

加载失败,请刷新页面

加载更多

PostgreSQL 11.3 locking

rudi
今天
5
0
Mybatis Plus sql注入器

一、继承AbstractMethod /** * @author beth * @data 2019-10-23 20:39 */public class DeleteAllMethod extends AbstractMethod { @Override public MappedStatement injectMap......

一个yuanbeth
今天
10
1
一次写shell脚本的经历记录——特殊字符惹的祸

本文首发于微信公众号“我的小碗汤”,扫码文末二维码即可关注,欢迎一起交流! redis在容器化的过程中,涉及到纵向扩pod实例cpu、内存以及redis实例的maxmemory值,statefulset管理的pod需要...

码农实战
今天
4
0
为什么阿里巴巴Java开发手册中不建议在循环体中使用+进行字符串拼接?

之前在阅读《阿里巴巴Java开发手册》时,发现有一条是关于循环体中字符串拼接的建议,具体内容如下: 那么我们首先来用例子来看看在循环体中用 + 或者用 StringBuilder 进行字符串拼接的效率...

武培轩
今天
8
0
队列-链式(c/c++实现)

队列是在线性表功能稍作修改形成的,在生活中排队是不能插队的吧,先排队先得到对待,慢来得排在最后面,这样来就形成了”先进先出“的队列。作用就是通过伟大的程序员来实现算法解决现实生活...

白客C
今天
81
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部