Copy(sStr:String;iPos:Integer;iLength:Integer):String;

解决方案 »

  1.   

    //from
    http://kingron.myetang.com/zsdoc01.txt━━━━━━━━━━━━━━━━━━━━━  
    首部  function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas
    功能  返回字符串AText左边的ACount个字符
    说明  LeftStr('123456', 3) = '123'
    参考  function System.Copy
    例子  Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);
    ━━━━━━━━━━━━━━━━━━━━━  
    首部  function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas
    功能  返回字符串AText右边的ACount个字符
    说明  RightStr('123456', 3) = '456'
    参考  function System.Copy
    例子  Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);
    ━━━━━━━━━━━━━━━━━━━━━  
    首部  function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas
    功能  返回字符串AText从AStart开始的ACount个字符
    说明  其实就是Copy
    参考  function System.Copy
    例子  Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
    ━━━━━━━━━━━━━━━━━━━━━  
      

  2.   

    uses
      StrUtils; //for Delphi6
      

  3.   

    AnsiCompareStr 函数 比较字符串(区分大小写) 
    AnsiCompareText 函数 比较字符串(不区分大小写) 
    AnsiLowerCase 函数 将字符转换为小写 
    AnsiUpperCase 函数 将字符转换为大写 
    CompareStr 函数 比较字符串(区分大小写) 
    Concat 函数 合并字符串 
    Delete 函数 从字符串中删除子串 
    LowerCase 函数 将给定的字符串变为小写 
    我觉得您应该查帮助