怎么对按钮进行记数？

Question

怎么对按钮进行记数？给个简单的代码

Answer 1

在按钮的click事件里使一个计数器自加就行了
procedure TForm1.Button1Click(Sender: TObject);
var
  Mycounter:integer;
begin
Mycounter:= Mycounter+1;
end;

Answer 2

加个计数器
var
  Form1: TForm1;
  c:Integer=0;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(c);
  label1.caption:=inttostr(c);
end;

Answer 3

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
     i:=0;
     inc(i)
     label1.caption:='你按的次數:'+inttostr(i);
end;