收集一些不常见的函数过程。
这些都是我不常用的。。希望能帮到大家。。
Addr
语法 function Addr(var f:text);
说明 addr返回一个变量，类型或过程的地址。结果为指针类型

assigncer
语法 procedure assigncrt(var f:file;name:string);
说明 将文件f的内容输于显示器上

bolckread
语法 procedure blockread(var f:file; var b:type; numrecs:integer;varecsread:integer);
说明 从无类型文件f中读出number 个记录，放在缓冲区b .recsread表示了实际读出的记
录数。注意：只有pc\ms-dos版才支持recsread

bolckwrite
语法 procedure blockwrite(var f:file; var b:type; numrecs:integer);
说明 从缓冲区b读出numrecs个记录至无类型文件中。

chdir
表示的目录.语法 procedure chdir (s:string);
说明 将当前的目录换为s所

clrscr;
清屏
clreol
语法 procedure clreof;
说明 擦除光标所在位置至屏幕最右端的字符。

cseg
语法 function cseg:word;
说明 返回程序代码段的段地址。
delay(mm:integer); （crt单元）
程序推迟mm秒，1000MM=1秒

fexpand (dos单元)
语法 function fexpand(p:pathstr);
说明 接受一个文件名p,返回该文件的全部路径，包括驱动器

filesize
语法 function(f:file):integer;
说明 返回f当前所含的记录数。

filepos
语法 function(f:file):integer;
说明 返回文件f指针所指向的记录号

fillpoly(dos)
语法 frocedure fillpoly(munpoints:word;var polypoints);
说明 用munpoints个点画一个多边形，数组munpoints含多边形的顶点坐标

flush
说明 procedure flush(var f:file)
语法 刷新用于输出文件f的全部磁盘缓冲区

frac
语法 function frac(r:real):real;
说明 返回实数r的小数部分

fsearch (dos)
语法 function fsearch(path:pathstr;dirlist:string):pathstr
说明 查找dirlist目录中的与path相匹配的文件。如果找到则以一个字符串返回结果，否则返回的函数 值为一空串

gotoxy(x,y:integer); （crt单元）
光标定位。x为列，y为行

cetbreak (dos)
语法 procedure cetbreak(var break:boolean)
说明 返回DOS中检查的当前状态。当break为false时，DOS只在控制台，打印机或I/O接口检查 当break 为true时 每当DOS系统检查调用时，DOS调用Ctrl-break

cetdir
语法 procedure cerdir(d:byte;var s:string)
说明 返回指定的驱动器d的当前目录。当前目录的返回值为s。如果d为0时，则查找缺省驱动器。

cetfattr(dos)
语法 function cetfattr(var f:file;attr:word)
说明 返回文件f的文件属性。在调用该过程前，必须赋给f文件名，但不打开

cettime (dos)
语法 procedure cettime(var f:file;time:longint)
说明 返回文件f上次读写的时间。在调用过程前，必须先给f赋值，并打开该文件。变量time是一压缩值 ，并必须用unpacktime过程分开

insline
语法 procedure insline;
说明 在当前光标的所在位置插入一空行

int
语法 function int(r:real):integer;
说明 返回实数r的整数部分

mark
语法 procedure mark(p:pionter)
说明 贮存了当前堆顶端知底于指针p中

maxavaih
语法 function maxavil:longint
说明 返回堆中最大的自由块的尺寸

menavail
语法 function memavail:longint
说明 返回堆中自由空间的总长度

mkdir
语法 procedure mkdir(s:string)
说明 以字符串s命名建立一个目录（文件夹）

parammstr
语法 function paramstr(i;word:string);
说明 返回命令行所指定的参数。例如 paramstr(1)返回第一个参数。在dos3.0以上的版本 返回执行文 件的路径和文件名

randomize
语法 function randomize;
说明 初始化随机产生程序。其基数存放在长整型randseed中

release
语法 procedure falease(var p;pointer)
说明 释放由mark命令所设置的内存。用mark于贮存指针的堆地址

rename
语法 procedure rename(var f:file;s:string)
说明 将文件f的文件名变为字符串s

rmdir
语法 procedure rmdir(s:string)
说明 删除目录s(文件夹)

sound （crt单元）
sound(i:integer)
利用内部扬声器发音
seekeof
语法 function seekeof(var file)：boolean
说明 与eof相似，只是在测试文件结束前要跳过空格，制表符号和文件的结束符（cr/cf）

truncate
语法 procedure trunvate
说明 在当前文件f指针处强行结束文件，文件指针后的内容丢失