字符串函数与过程.doc

字符串函数与过程 1、求长度length定义：function Length(S: String): Integer;例子：varS: String;beginReadln (S);Writeln(, S, );Writeln(length = , Length(S);end.2、复制子串copy定义： function Copy(S: String; Index: Integer; Count: Integer): String;注意：S 是字符串类型的表达式。Index和Count是整型表达式。Copy 返回S中从Index开始，Count个字符长的一个子串。例子：var S: String;beginS := ABCDEF;S := Copy(S, 2, 3); BCD end.3、 插入子串insert定义：procedure Insert(Source: String; var S: String; Index: Integer);注意：Source 是字符串类型的表达式。 S 是任意长度字符串类型变量。Index 是整型表达式。Insert 把 Source插在S中Index处。如果结果字符串的长度大于255，那么255之后的字符将被删除。例子：varS: String;beginS := Honest Lincoln;Insert(Abe , S, 8); Honest Abe Lincoln end.4、 删除子串delete定义：procedure Delete(var S: String; Index: Integer; Count:Integer);注意：S 是字符串类型变量。 Index和Countare是整型表达式。Delete 删除S中从Index开始的Count个字符。如果Index大于S的长度，则不删除任何字符；如果Count大于S中从Index开始的实际字符数，则删除实际的字符数。例子：vars: string;begins := Honest Abe Lincoln;Delete(s,8,4);Writeln(s); Honest Lincoln Delete(s,9,10);Writeln(s); Honest L end.5、 字符串转为数值val定义： procedure Val(S; var V; var Code: Integer);在这里:S 是由一系列数字字符构成的字符串类型变量；。V 是整型或实型变量；Code 是Integer型变量注意：Val将S转为它的数值形式。例子：var s:string;I, Code: Integer;begins:=1234;val(s,i,code);writeln(i); 1234 end.6、 数值转为字符串str定义： procedure Str(X : Width : Decimals ; var S:string);注意：将数值X转成字符串形式。例子：varS: string11;beginStr(I, S);IntToStr := S;end;beginWriteln(IntToStr(-5322);Readln;end.7、 求子串起始位置pos定义：function Pos(Substr: String; S: String): Byte;注意：Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到Substr，则Pos返回0。例子：var S: String;beginS := 123.5; Convert spaces to zeroes while Pos( , S) 0 doSPos( , S) := 0;end.8、 字符完全串连+定义：操作符+把两个字符串联在一起。例子：var s1,s2,s:string;begins1:=Turbo ;s2:=pascal;s:=s1+s2; Turbo pascal end. 9、字符串压缩空格串连-定义：操作符-去掉第一个字符串最后的