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.
  • 相关阅读:
    Delphi 7下使用VT实现树型列表结合控件
    Spring:源码解读Spring IOC原理
    【HTTP】Fiddler(二)
    简单工厂模式、工厂方法模式、抽象工厂模式 之间的对比
    UML类图关系(泛化 、继承、实现、依赖、关联、聚合、组合)
    Tomcat 的context.xml
    Tomcat的context.xml说明、Context标签讲解
    Node.js
    区块链架构设计
    什么是区块链
  • 原文地址:https://www.cnblogs.com/del/p/993623.html
Copyright © 2011-2022 走看看