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

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

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;
真诚向大虾请教上面语句意思，不甚感谢{:5_110:}

云深 发表于 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……
页: [1]
查看完整版本: 计算器最后一个字符清除编码含义（退格键）