Pascal字符串函数(DOC可编).docVIP

求长度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转成字符串形式。例子：var s: string[11];begin i:=1234; str(i,s); write(s); 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;begin s := ‘ 123.5‘;{ convert spaces to zeroes } while pos(‘ ‘, s) 0 do s[pos(‘ ‘, s)] := ‘0‘;end.8、字符完全串连+定义：操作符+把两个字符串联在一起。例子：var s1,s2,s:string;begin s1:=‘turbo ‘; s2:=‘pascal‘; s:=s1+s2; { ‘turbo pascal‘ }end. 9、字符串压缩空格串连-定义：操作符-去掉第一个字符串最后的空格后，将两个字符串联在一起。例子：var s1,s2,s:string;begin s1:=‘turbo ‘; s2:=‘pascal‘; s:=s1-s2; { ‘turbopascal‘ }end.