【转】delphi字符串操作函数一览

原作者: [db:作者] 来自: [db:来源] 收藏邀请

首部 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为数字型字符串。