宁波中小学计算机程序设计备考：Pascal字符串函数

　　宁波中小学计算机程序设计备考：Pascal字符串函数，希望这些资料的整理对大家有所帮助。

　　求长度length

　　定义：function Length(S: String): Integer;

　　例子：

　　var

　　S: String;

　　begin

　　Readln (S);

　　Writeln(‘"‘, S, ‘"‘);

　　Writeln(‘length = ‘, Length(S));

　　end.

　　复制子串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.

　　插入子串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.