1、 求长度length
定义：function length(s: string): integer; 例子： var s: string; begin readln (s); writeln(‘\
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; begin s := ‘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之后的字符将被删除。 例子： var s: string; begin
s := ‘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开始的实际字符数，则删除实际的字符数。 例子： var s: string; begin
s := ‘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;
begin s:=‘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。
