Question

Delphi实现点击button1，其Caption值改变，并以循环

就是button1上原来Caption值为123，点击后成了456，再点击又成了123，再点又456，如此循环..

除了boolean赋值真假外，还有什么方法
另外，把boolean赋值的方法也说下，老不太明白

谢

Answer 1

用伪代码描述就是

button1.value = button1.value="123"?456:123;

Answer 2

你参考一下啦

var
Form1: TForm1;
tag: Boolean = True;
i : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if tag = 0 then Button1.Caption := '456'
else Button1.Caption := '123';

tag := not tag;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if i mod 2 = 0 then Button2.Caption := '456'
else Button2.Caption := '123';

i := i + 1;
end;

end.