计算器最后一个字符清除编码含义（退格键）

雨清 · 发表于 2013-4-7 15:42:12

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

procedure TForm1.btn20Click(Sender: TObject);
begin
if(edt1.text='')then
edt1.Text:=edt1.Text
else
edt1.Text:=copy(edt1.Text,1,Length(edt1.text)-1);
end;
真诚向大虾请教上面语句意思，不甚感谢

云深 · 发表于 2013-4-7 17:39:09

begin
if(edt1.text='')then                                                    //如果edt控件里的内容为空
edt1.Text:=edt1.Text                                              //则edt1=edt的内容
  else                                                                            //否则
edt1.Text:=copy(edt1.Text,1,Length(edt1.text)-1); //edt1的内容=复制edt1的内容:从第一个字符到(总字符数-1)的位置
end;
====================
代码写的很啰嗦,按他的意图:
edt1.text=copy(edt1.Text,1,Length(edt1.text)-1);
就可以了.
特别要注意的是:edt1.text内文本的起始数组为1而不是0.

雨清 · 发表于 2013-4-7 20:52:41

谢谢楼上的解释

bafengao · 发表于 2013-5-21 22:29:19

强烈支持楼主ing……

账号		自动登录	找回密码
密码			立即注册