程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 關於類的入門例子(2): 數字盒子

關於類的入門例子(2): 數字盒子

編輯:Delphi

 //類單元

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.

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved