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

Question

怎么控制？

Answer 1

var
  DownCount:Integer;labelClick(Sender:Tobject)
begin
 label1.caption:=Inttostr(DownCount);
 inc(DownCount);
end;

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

var 
    DownCount:Integer; (全局变量)
  if(DownCount>2) then
    begin
    DownCount:=0;
    label1.caption:=Inttostr(DownCount);
    inc(DownCount);
    end
     else
       if (DownCount<=2) then
        begin
      label1.caption:=Inttostr(DownCount);
      inc(DownCount);
    end;
end;

Answer 6

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

Answer 7

jadeluo 强。这种方法是最简单了得的。
不用增加新的变量。
星星就是星星啊。
学习了。
谢谢。

Answer 8

不明白楼主的等级如何得来的。
jadeluo的代码确实简洁。
前面加个‘0’：
Label1.Caption :='0'+IntToStr(3 - StrToIntDef(Label1.Caption,2));
或者
Label1.Caption :=IntToHex(3 - StrToIntDef(Label1.Caption,2));

Answer 9

不好意思，落掉了参数：
Label1.Caption   :=IntToHex(3   -   StrToIntDef(Label1.Caption,2),2); 

Answer 10

if lable1.caption = '01' then
  lable1.caption = '02'
else lable1.caption = '01;  

Answer 11

不需要用全局变量,只要利用好各组件的tag属性,就能控制好了
begin
  label1.caption := '0' + inttostr(Tag mod 2 + 1);
  tag := tag + 1  ;
end;