UC知道delphi编程新手问题
来源：百度知道 编辑：UC知道 时间：2024/05/26 09:13:00
我要写一个东西。
一个EDIT 一个按扭。
EDIT内容为1234，我要实现点一下按扭，EDIT的内容变成1235，
再点一下就变1236，这样循环。
告诉我怎么实现好么？
我写的不能运行。不会改EDIT的类型。我是这样写的。
edit1.text:=edit1.text+'1';
运行不了啊 。提示说什么型不能转为什么型。
帮帮我按照我的思路，帮我改正吧。谢谢
一个EDIT 一个按扭。
EDIT内容为1234，我要实现点一下按扭，EDIT的内容变成1235，
再点一下就变1236，这样循环。
告诉我怎么实现好么？
我写的不能运行。不会改EDIT的类型。我是这样写的。
edit1.text:=edit1.text+'1';
运行不了啊 。提示说什么型不能转为什么型。
帮帮我按照我的思路，帮我改正吧。谢谢
edit1.text:=inttostr(strtoint(edit1.text)+1);
你的问题很简单，用下面的方法就可以实现，代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=strtoint(edit1.Text)+1;
edit1.Text:=inttostr(i);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=inttostr(strtointdef(edit1.text,0)+1);
end;