delphi字符串操作函数一览

时间：2014-01-16 21:14:33 阅读：449 评论：0 收藏：0 [点我收藏+]

首部 
      function SameText(const S1, S2: 
      string): 
      Boolean; 
      $[SysUtils.pas 
      
功能 
      返回两个字符串是否相等 
说明 不区分大小写 
      
参考 
      <NULL> 
例子 
      CheckBox1.Checked 
      := SameText(Edit1.Text, 
      Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiUpperCase(const S: 
      string): 
      string; 
      $[SysUtils.pas 
      
功能 
      返回字符串S的大写形式 
说明 
      ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 
参考 
      function Windows.CharUpperBuff 
      
例子 
      Edit2.Text := AnsiUpperCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiLowerCase(const S: 
      string): 
      string; 
      $[SysUtils.pas 
      
功能 
      返回字符串S的小写形式 
说明 
      非大写字符不处理 
参考 
      function Windows.CharLowerBuff 
      
例子 
      Edit2.Text := AnsiLowerCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiCompareStr(const S1, S2: 
      string): 
      Integer; 
      $[SysUtils.pas 
      
功能 
      反回比较两个字符串 
说明 
      当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
      
参考 
      function Windows.CompareString 
      
例子 
      SpinEdit1.Value 
      := AnsiCompareStr(Edit1.Text, Edit2.Text); 
      
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiSameStr(const S1, S2: 
      string): 
      Boolean; 
      $[SysUtils.pas 
      
功能 
      返回两个字符串是否相等 
说明 
      区分大小写 
参考 
      function SysUtils.AnsiCompareStr 
      
例子 
      CheckBox1.Checked 
      := AnsiSameStr(Edit1.Text, 
      Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiCompareText(const S1, S2: 
      string): 
      Integer; 
      $[SysUtils.pas 
      
功能 
      反回比较两个字符串 
说明 
      当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 
      
参考 
      function Windows.CompareString 
      
例子 
      SpinEdit1.Value 
      := AnsiCompareText(Edit1.Text, Edit2.Text); 
      
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiSameText(const S1, S2: 
      string): 
      Boolean; 
      $[SysUtils.pas 
      
功能 
      返回两个字符串是否相等 
说明 
      不区分大小写 
参考 
      function SysUtils.AnsiCompareText 
      
例子 
      CheckBox1.Checked 
      := AnsiSameText(Edit1.Text, Edit2.Text); 
      
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiStrComp(S1, 
      S2: PChar): 
      Integer; 
      $[SysUtils.pas 
      
功能 
      返回比较两个指针字符串 
说明 
      当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
      
参考 
      function System.CompareString 
      
例子 
      SpinEdit1.Value 
      := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiStrIComp(S1, 
      S2: PChar): 
      Integer; 
      $[SysUtils.pas 
      
功能 
      返回比较两个指针字符串 
说明 
      当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 
      
参考 
      function Windows.CompareString 
      
例子 
      SpinEdit1.Value 
      := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiStrLComp(S1, 
      S2: PChar; 
      MaxLen: Cardinal): 
      Integer; 
      
$[SysUtils.pas 
功能 
      返回比较两个指针字符串指定长度 
说明 
      当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 
      
参考 
      function Windows.CompareString 
      
例子 
      SpinEdit1.Value 
      := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), 
SpinEdit2.Value) 
      
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiStrLIComp(S1, 
      S2: PChar; 
      MaxLen: Cardinal): 
      Integer; 
      
$[SysUtils.pas 
功能 
      返回比较两个指针字符串指定长度 
说明 
      当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 
      
参考 
      function Windows.CompareString 
      
例子 
      SpinEdit1.Value 
      := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 
SpinEdit2.Value) 
      
        
    ━━━━━━━━━━━━━━━━━━━━━ 
      
首部 
      function AnsiStrLower(Str: 
      PChar): PChar; 
      $[SysUtils.pas 
      
功能 
      返回指针字符串小写形式 
说明 
      非大写字符不处理 
参考 
      function Windows.CharLower 
      
例子 
      Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiStrUpper(Str: 
      PChar): PChar; 
      $[SysUtils.pas 
      
功能 
      返回指针字符串大写形式 
说明 
      非小写字符不处理 
参考 
      function Windows.CharUpper 
      
例子 
      Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiLastChar(const S: 
      string): 
      PChar; $[SysUtils.pas 
功能 
      返回字符串S的最后一个指针字符 
说明 
      当字符串S为空串则返回空指针 
参考 
      function SysUtils.ByteType 
      
例子 
      Edit2.Text := AnsiLastChar(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function AnsiStrLastChar(P: 
      PChar): PChar; 
      $[SysUtils.pas 
      
功能 
      返回指针字符串P的最后一个指针字符 
说明 
      当字符串P为空空指针则返回空指针 
参考 
      function SysUtils.ByteType 
      
例子 
      Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function WideUpperCase(const S: 
      WideString): 
      WideString; 
      $[SysUtils.pas 
      
功能 
      返回双字节字符串的大写形式 
说明 
      WideChar双字节字符 
      
参考 
      function Windows.CharUpperBuffW 
      
例子 
      Edit2.Text := WideUpperCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function WideLowerCase(const S: 
      WideString): 
      WideString; 
      $[SysUtils.pas 
      
功能 
      返回双字节字符串的小写形式 
说明 
      我怎么就测试不出来呢 
参考 
      function Windows.CharLowerBuffW 
      
例子 
      Edit2.Text := WideLowerCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
首部 
      function WideCompareStr(const S1, S2: 
      WideString): 
      Integer; 
      
$[SysUtils.pas 
功能 
      返回比较两个双字节字符串 
说明 
      当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
      
参考 
      function Windows.CompareStringW 
      
例子 
      SpinEdit1.Value 
      := WideCompareStr(Edit1.Text, Edit2.Text);

CompareText(const 
s1,s2:string);Integer; 
[功能]:比较字符串大小。 
[说明]:区别本函数不区分大小写

        length(s):Integer; 
       [功能]:返回字符串长度 
　　　　[说明]:参数s的类型为字符串型 
　　　　例如：x:=length(‘gameking‘); //x值等于9

字符床大小写转换<BR>function UpperCase(const S: string): string; //转大写

function LowerCase(const S: string): string; //转小写

查找位置函数 
[调用格式]:pos(s1,s2);Integer; 
[功能]：返回字符串s1在字符串s2中首次出现的位置，若s2中不存在s1，则返回0。 
[说明]:  若s1在s2当中,则必须满足s1的所有字符都在s2中，即s1是s2哦子串。 
[例如]:  x:=pos(‘bx‘,‘adcd‘);   //x的值为2

合并字符串过程 
[调用格式] 
Appendstr(var 
l;const 
s2); 
[功能]:相同于执行s1:=‘s1+s2‘; 
[说明]:本过程比语句"s1:=s1+s2";执行效率高

截取子字符串函数 
[调用格式]： Copy(str, m, n): String; 
[功能]：在字符串str 中截取从第 m 个字符开始长度为n 的子字符串，并作为函数的返回值。 
[说明]：若m大于s 的长度，则返回一个空串；若从第m 个字符到s 的结尾不足n 个字符，则返回其间的所有字符。 
[例如]： 
Source code ( By http://www.fishc.com )    
s1:= Copy( ‘IloveFishc！‘, 6, 5 ); // s1 的值为‘Fishc‘
s2:= Copy( ‘小甲鱼爱美眉！’, 4, 5 
); // s2 的值？ 
s3:= Copy( ‘IloveFishc！’, 1, 1 
);  
s4:= Copy( ‘IloveFishc！’, 0, 1); 
注意：s3 和 s4 其实是一样的！

删除子字符串过程 
[调用格式]：Delete( str, m, n ); 
[功能]：在字符串str 中删除从第m个字符开始长度为n的子字符串。 
[说明]： 
如果m大于str 的长度，则不删除任何字符；  
如果从第m 个字符开始到str 的末尾不足n个字符，则删除其间的所有字符；  
如果n小于等于0，则不删除任何字符。

插入子字符串过程 
[调用格式]：Insert( str1, str, k ); 
[功能]：将字符串str1插入到字符串str 中的第k个字符处。

数值和字符串相互转换函数 
[调用格式1]：IntToStr( m ): String; 
[功能]：将整型数据m转换成字符串并作为函数的返回值。 
[调用格式2]：StrToInt( s ): Integer;[功能]：将字符串数据s转换成整型数据并作为函数的函数值。 
[说明]：s 为数字型字符串。 
[调用格式3]：FloatToStr( f ): String;[功能]：将实型数据f转换成字符串，并为函数的返回值。 
[调用格式4]：StrToFloat( s ): Extended;[功能]：将字符串型数据s 转换成实型数据，并作为函数的返回值。 
[说明]：s为数字型字符串。

delphi字符串操作函数一览

原文：http://www.cnblogs.com/qingsong/p/3520062.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年09月23日 (328)
2021年09月24日 (313)
2021年09月17日 (191)
2021年09月15日 (369)
2021年09月16日 (411)
2021年09月13日 (439)
2021年09月11日 (398)
2021年09月12日 (393)
2021年09月10日 (160)
2021年09月08日 (222)