资源描述：
《字符串函数及过程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、字符串函数与过程1、求长度length定义：functionLength(S:String):Integer;例子：varS:String;beginReadln(S);Writeln('"',S,'"');Writeln('length=',Length(S));end.2、复制子串copy定义：functionCopy(S:String;Index:Integer;Count:Integer):String;注意：S是字符串类型的表达式。Index和Count是整型表达式。Copy返回S中从Index开始，C
2、ount个字符长的一个子串。例子：varS:String;beginS:='ABCDEF';S:=Copy(S,2,3);{'BCD'}end.3、插入子串insert定义：procedureInsert(Source:String;varS:String;Index:Integer);注意：Source是字符串类型的表达式。S是任意长度字符串类型变量。Index是整型表达式。Insert把Source插在S中Index处。如果结果字符串的长度大于255，那么255之后的字符将被删除。例子：varS:String
3、;beginS:='HonestLincoln';Insert('Abe',S,8);{'HonestAbeLincoln'}end.4、删除子串delete定义：procedureDelete(varS:String;Index:Integer;Count:Integer);注意：S是字符串类型变量。Index和Countare是整型表达式。Delete删除S中从Index开始的Count个字符。如果Index大于S的长度，则不删除任何字符；如果Count大于S中从Index开始的实际字符数，则删除实际的字符数
4、。例子：vars:string;begins:='HonestAbeLincoln';Delete(s,8,4);Writeln(s);{'HonestLincoln'}Delete(s,9,10);Writeln(s);{'HonestL'}end.5、字符串转为数值val定义：procedureVal(S;varV;varCode:Integer);在这里:S是由一系列数字字符构成的字符串类型变量；。V是整型或实型变量；Code是Integer型变量注意：Val将S转为它的数值形式。例子：vars:strin
5、g;I,Code:Integer;begins:='1234';val(s,i,code);writeln(i);{1234}end.6、数值转为字符串str定义：procedureStr(X[:Width[:Decimals]];varS:string);注意：将数值X转成字符串形式。例子：varS:string[11];beginStr(I,S);IntToStr:=S;end;beginWriteln(IntToStr(-5322));Readln;end.7、求子串起始位置pos定义：functionPo
6、s(Substr:String;S:String):Byte;注意：Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到Substr，则Pos返回0。例子：varS:String;beginS:='123.5';{Convertspacestozeroes}whilePos('',S)>0doS[Pos('',S)]:='0';end.8、字符完全串连+定义：操作符+把两个字符串联在一起。例子：vars1,s2,
7、s:string;begins1:='Turbo';s2:='pascal';s:=s1+s2;{'Turbopascal'}end.9、字符串压缩空格串连-定义：操作符-去掉第一个字符串最后的空格后，将两个字符串联在一起。例子：vars1,s2,s:string;begins1:='Turbo';s2:='pascal';s:=s1-s2;{'Turbopascal'}end.
