想了半天没想出来，点按钮时第一次label显示“01”第一次，第二次时显示“02”怎么做到？

Question

刚才问时没说明白，就是让lael显示在01和02两个数值之间，点第三次时显示01依次类推……我的表达能力差不知道大家明白没有？

Answer 1

还有一种方法是把值写在ini文件中,点一次增加一次,退出程序后可以继续,如果不需要可以退出程序时清零.
全局变量也很好

Answer 2

刚才问时没说明白，就是让lael显示在01和02两个数值之间，点第三次时显示01依次类推……我的表达能力差不知道大家明白没有？-----------------
i 定义为全局变量,不断自增if i mod 2=1 then
   label1.caption:='01'
if i mod 2 =0 then
   label.caption:='02'

Answer 3

那更简单
  if Label1.Caption = '01' then
    Label1.Caption = '02'
  else
    Label1.Caption = '01';

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  if label1.Caption ='01' then
     label1.Caption :='02'
   else
     label1.Caption :='01';end;
给楼上说不得一样。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(3 - StrToIntDef(Label1.Caption, 2));
end;

Answer 6

楼上的最精简。也可以使用TF处理，为True时值为'01',为False时值为'02'。