function StrLeft(const S: AnsiString; Count: Integer): AnsiString;
begin
  Result := Copy(S, 1, Count);
end;//------------------------------------------------------------------------------function StrMid(const S: AnsiString; Start, Count: Integer): AnsiString;
begin
  Result := Copy(S, Start, Count);
end;//------------------------------------------------------------------------------function StrRight(const S: AnsiString; Count: Integer): AnsiString;
begin
  Result := Copy(S, Length(S) - Count + 1, Count);
end;

解决方案 »

  1.   

    用Copy完全可以代替这三个函数。
    一定要的话,有LeftStr/RightStr/MidStr可以用。
      

  2.   

    copy + pos 就基本都能搞定了
      

  3.   

    不是沒有,是你沒有找到,Delphi中有LeftStr,RightStr,MidStr(在StrUtils單元中),而且Copy+Pos也足可以供你使用了。
      

  4.   


    不是沒有,是你沒有找到,Delphi中有LeftStr,RightStr,MidStr(在StrUtils單元中),而且Copy+Pos也足可以供你使用了。
     
    注意是Delphi6
      

  5.   

    字串操作我主要用function copy()