没有右取左取之分,一律用copy就行了

解决方案 »

  1.   

    uses StrUtils;
      LeftStr()
      RightStr()
      MidStr()或者直接使用Copy()进行处理。
      

  2.   

    uses StrUtils;
    function RightStr(const AText: string; ACount: Integer): string;
      

  3.   

    uses StrUtils;
      LeftStr()
      RightStr()
      MidStr()或者直接使用Copy()进行处理。
      

  4.   

    Pos()+Copy()
    一般都要用这两个
      

  5.   

    取右熟n个字符
    if n<=length(str)
      copy(str,length(str)-n,n);
      

  6.   

    function MyRightStr(S : string; I : integer) :string;begin
      if length(S)<= I then
         result := S
      else
         result := copy(S,length(S)-I+1,I);
    end;哈哈!这样就不会有版本的关系了吧?