zoukankan      html  css  js  c++  java
  • 关于类的入门例子(2): 数字盒子

    //类单元
    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.
  • 相关阅读:
    SQL大语句——实现分页,select top后面跟变量出错
    jQuery异步请求(如getJSON)跨域解决方案
    Debug常用命令
    清华操作系统实验--80x86汇编基础
    在Windows10中运行debug程序
    恢复Windows10应用商店
    最少硬币问题
    嵌套矩形问题
    清华大学操作系统实验准备--挖坑
    动态规划入门-数字三角形
  • 原文地址:https://www.cnblogs.com/del/p/993623.html
Copyright © 2011-2022 走看看