将ASCII码值转为字符Chr函数

　　定义：function chr(x:integer):char;

　　说明：求ASCII码值为X的字符

　　例子：

　　CODE:

　　var i:integer;

　　begin

　　for i:=1 to 255 do

　　write(i:4,chr(i));

　　end.

　　关闭文件Close过程

　　定义：procedure Close(f:file of 文件类型);

　　说明：关闭文件

　　注意：在完成文件操作后，必须将此文件用Close关闭，否则数据将丢失!

　　例子：

　　CODE:

　　var f:text;

　　begin

　　assign(f,'C:\Pascal.txt');

　　close(f);

　　end.

　　复制子串copy

　　定义： function Copy(S: String; Index: Integer; Count: Integer): String;

　　注意：S 是字符串类型的表达式。Index和Count是整型表达式。Copy 返回S中从Index开始，Count个字符长的一个子串。

　　例子：

　　CODE:

　　var S: String;

　　begin

　　S := 'ABCDEF';

　　S := Copy(S, 2, 3); { 'BCD' }

　　end.

　　递减Dec过程

　　定义：procedure Dec(x,y:integer);

　　说明：表示x:=x-y，当y=1时，其表达式可以写为Dec(x)

　　例子：

　　CODE:

　　var i:integer;

　　begin

　　i:=10;

　　repeat

　　dec(i);

　　write(i);

　　until i=0;

　　end.

　　输出结果：9876543210

　　删除子串delete

　　定义：procedure Delete(var S: String; Index: Integer; Count:Integer);

　　注意：S 是字符串类型变量。 Index和Countare是整型表达式。Delete 删除S中从Index开始的Count个字符。如果Index大于S的长度，则不删除任何字符;如果Count大于S中从Index开始的实际字符数，则删除实际的字符数。

　　例子：

　　CODE:

　　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.