资源描述：
《Delphi字符串函数大全.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Delphi字符串函数大全◇[DELPHI]字符串的过程和函数Insert(obj,target,pos);//字符串target插入在pos的位置。如插入结果大于target最大长度，多出字符将被截掉。如Pos在255以外，会产生运行错。例如，st:='Brian'，则Insert（'OK',st,2）会使st变为'BrOKian'。Delete(st,pos,Num);//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串。例如，st:='Brian'，则Delete(st,3,2)将变为Brn。Str(value,st);//将数值value（整型或实型）转换
2、成字符串放在st中。例如，a=2.5E4时，则str(a:10,st)将使st的值为'25000'。Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值，存放在var中。St必须是一个表示数值的字符串，并符合数值常数的规则。在转换过程中，如果没有检测出错误，变量code置为0，否则置为第一个出错字符的位置。例如，st:=25.4E3,x是一个实型变量，则val(st,x,code)将使X值为25400，code值为0。Copy(st.pos.num);//返回st串中一个位置pos（整型）处开始的，含有num（整型）个字符的子串。如果pos大于st字符串的长度
3、，那就会返回一个空串，如果pos在255以外，会引起运行错误。例如，st:='Brian'，则Copy(st,2,2)返回'ri'。Concat(st1,st2,st3……,stn);//把所有自变量表示出的字符串按所给出的顺序连接起来，并返回连接后的值。如果结果的长度255，将产生运行错误。例如，st1:='Brian',st2:='',st3:='Wilfred'，则Concat(st1,st2,st3)返回'BrianWilfred'。Length(st);//返回字符串表达式st的长度。例如，st:='Brian'，则Length(st)返回值为5。Pos(obj,target)
4、;//返回字符串obj在目标字符串target的第一次出现的位置，如果target没有匹配的串，Pos函数的返回值为0。例如，target:='BrianWilfred'，则Pos('Wil',target)的返回值是7，Pos('hurbet',target)的返回值是0。usesStrUtils首部functionAnsiResemblesText(constAText,AOther:string):Boolean;$[StrUtils.pas功能返回两个字符串是否相似说明ANSI(AmericanNationalStandardsInstitute)美国国家标准协会;不区分大小写参
5、考functionStrUtils.SoundexProc;varStrUtils.AnsiResemblesProc例子CheckBox1.Checked:=AnsiResemblesText(Edit1.Text,Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部functionAnsiContainsText(constAText,ASubText:string):Boolean;$[StrUtils.pas功能返回字符串AText是否包含子串ASubText说明不区分大小写参考functionStrUtils.AnsiUppercase;functionStr
6、Utils.AnsiPos例子CheckBox1.Checked:=AnsiContainsText(Edit1.Text,Edit2.Text);━━━━━━━━━━━━━━━━━━━━━首部functionAnsiStartsText(constASubText,AText:string):Boolean;$[StrUtils.pas功能返回字符串AText是否以子串ASubText开头说明不区分大小写参考functionWindows.CompareString例子CheckBox1.Checked:=AnsiStartsText(Edit1.Text,Edit2.Text);━━
7、━━━━━━━━━━━━━━━━━━━首部functionAnsiEndsText(constASubText,AText:string):Boolean;$[StrUtils.pas功能返回字符串AText是否以子串ASubText结尾说明不区分大小写参考functionWindows.CompareString例子CheckBox1.Checked:=AnsiEndsText(Edit1.Text,Edit2.Text);━━━
