在Delphi中怎样来实现:
把一个字符串的最后一个字符删除。(可用Delete方法)
具体怎样来写?

解决方案 »

  1. Delete(S, Length(S), 1);
      

  2. E文:delete(s,length(s),1);
    中文:delete(s,length(s)-1,2);
      

  3. procedure TForm1.Button2Click(Sender: TObject);
    var
    s:string;
    begin
    s:=edit3.Text ;
    Delete(s,length(s),1);
    edit4.Text :=s;
    end;
      

  4. procedure TForm1.Button2Click(Sender: TObject);
    var s:string;
    begin
      s:=edit3.Text ;
      Delete(s,length(s),1);
      edit4.Text :=s;
    end;
      

aliyun

类似问题 »