例 abcdefg我想得到efg怎么做?

解决方案 »

  1.   


    s := 'abcdefg';
    Delete(s, 1, length(s)-3);
      

  2.   

    var
      astr:string;
    begin
      Copy(astr,length(astr)-3,length(astr))
    end;
      

  3.   

    上面错了,下面是对的:
     var
      astr:string;
    begin
      Copy(astr,length(astr)-3,3)
    end;
      

  4.   

    use StrUtilss := 'abcdefg';
    S1 := RightStr(s, 3);
      

  5.   

    var
      SS:string;
    begin
      SS:=Edit1.Text;
      Edit2.Text:=copy(SS, length(SS)-2,3);
    end;
      

  6.   

    to DongXF(孔雀东南飞),应该是
    uses IdGlobal吧
      

  7.   

    楼上的说错了,uses StrUtils    S1 := RightStr(s, 3);
    就可以了
      

  8.   

    Copy(s,Lenght(s) - 2,3)
      

  9.   

    Delphi 6增加了几个文件, 其中一个是: StrUtils.pas,里面有很多字符串相关的函数,如LeftStr, RightStr, MidStr等,看一下就知道了
      

  10.   

    if rightstr(string,3)thenresult :ing
      

  11.   

    相对于copy, 用delete 比较好,
      

  12.   

    一个rightstr(),难道没人会用???