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