随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//类单元
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.
posted on 2007-12-13 13:56  万一  阅读(...)  评论(...编辑  收藏