用 Pos 和 Copy 和 Length 组合使用

解决方案 »

  1.   

    建议你仔细阅读Copy函数的说明文档,很容易实现你的要求的。
      

  2.   

    用Copy函数我实现了从字符串左边取子串,但从右边去怎么实现?
      

  3.   

    function Right(Str:string;D:Integer):string;
    begin
      Result:=Copy(Str,Length(Str)-D+1,D);
    end;
      

  4.   

    用strlen求出字符串的长度,减去你要得到的字符数,这个结果作为copy的字符串起始位置。其他的不用说了吧?
      

  5.   

    用copy可以做出自己的 right、mid、left函数