Question

delphi edit1.text文本数字增加问题？

例：已知：一个button1控件,一个edit1控件，edit1.text:='0';。我要实现的是：点击第一次点击button1  edit1.text:=1；第二次点击button1  edit1.text:=2；第三次点击button1  edit1.text:=3；......如何实现。

Answer 1

设定一个全局变量i，再from的create的是的时候初始化 i:=0;

然后再button的click事件中写入：
i:=i+1;

Answer 2

var
a:string;
begin
i:=i+1;
a:=inttostr(i);
edit1.text:=a;
end;
定义全局变量 i:integer;
初始化 i:=0;

Answer 3

接上，然后把i转换成string
edit1.text = inttostring（i）；