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