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

雨清

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

云深

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.

雨清

谢谢楼上的解释

bafengao

强烈支持楼主ing……