Question

Free pascal 中的标准库单元？

请问诸位高手，在Free pascal的标准库中，有哪些单元？例如windows、printer，它们中含有哪些具体的过程与函数？我可不要那种蒙混过关回答的。
先谢谢诸位，Free pascal的单元内容与Turbo pascal是有区别的。请谈一谈Free pascal。
你那个其他几类单元过程与函数，也没有能说明它们分别来自与哪一单元。
Free Pascal中的windows、gid32都是Turbo pascal没有的单元，能不能说明一下（有哪些数据类型、过程与函数）。怎样用Pascal语言对颠倒中的程序进行复制（若用文本文件的方法，会将原来的程序破坏掉，变成0。）

Answer 1

Turbo Pascal标准库单元中的过程和函数

一个单元是指若干相关常量、变量、数据类型、过程和函数的集合。Turbo Pascal提供以下八大类标准库单元，下面就通过列表的方式加以说明。

表1 标准库单元及功能

单元名
主 要 功 能

system
Turbo pascal的运行库，包括常用的标准函数和过程，可以在程序中直接使用，

不需要uses语句说明

Dos
具有日期、时间、目录查找、程序执行等功能

Crt
具有屏幕模式控制、扩展键盘码、颜色、窗口、声音等功能

Printer
支持打印输出操作

Graph
高级图形软件包，支持多种图形适配器

Graph3
实现turbo pascal3.0的图形软件包

Turbo3
兼容turbo pascal3.0 的源程序

Overlay
实现高级覆盖管理

表2 system 单元中部分常用过程与函数

标识符
类型
功 能 说 明

Abs（x）
函数
求变量的绝对值

Addr(x)
函数
测变量地址

Append(f)
过程
打开一个存在的文本文件，并将文件指针指向文件末尾准备添加元素

Arctan(x)
函数
反正切

Assign(f,c)
过程
将字符串c所表示的外部文件名赋给文件变量f

Assigned(x)
函数
测试程序当中的指针或变量是否为空

Blockread（f,d,num）
过程
读无类型文件

Blockwrite（f,d,num）
过程
写无类型文件

Break
过程
终止或结束循环

Chdir(path)
过程
改变当前目录

Chr（x）
函数
求ASCII码值为X的字符

Close(f)
过程
关闭文件

Concat（s1,s2…s3）
函数
字符串合并

Continue
过程
继续循环

Copy（s,pos,len）
函数
返回一个字符串的子串

Cos(x)
函数
余旋函数

Cseg
函数
返回CS寄存器的当前值

Dec（x）
函数
x:=x-1

Delete(s,pos,len)
过程
删除一个字符串中的子串

Dispose(p)
过程
释放一个动态变量

Dseg
函数
返回DS寄存器的当前值

Eof(f)
函数
判断文件是否结束

Eoln(f)
函数
判断文件类型中的一行是否结束

Erase(f)
过程
删除一个存在的外部文件

Exit
过程
过程中止

Exp(x)
函数
以e为底的指数函数

FilePos(f)
函数
文件记录（指针）的当前位置

FileSize(f)
函数
文件记录数

Fillchar（d,len,data）
过程
填充数值或字符

Flush(f)
过程
清空文件缓存区

Frac（x）
函数
取实型变量的小数部分

FreeMem（p,i）
过程
释放变长动态变量

GetDir（drv,path）
过程
取当前盘、当前目录

GetMem（p,i）
过程
分配变长的动态变量，并把块地址存放在一个指针变量中

Halt
过程
立即终止程序执行，返回turbo pascal 编辑器或dos

Hi（i）
函数
返回一个变量的高位字节

Insert(s,d,pos)
函数
在一个字符串中某一位置开始插入一个子串

Int
函数
取整数部分

IOresult
函数
返回最后一次输入/出操作的结果状态

Length（s）
函数
返回一个字符串的长度

Ln(r)
函数
求自然对数

Lo(i)
函数
返回一个变量的低位字节

MaxAvail
函数
返回最大内存空间

MemAvail
函数
返回可用内存数目

MkDir(path)
过程
建立一个子目录

Move(s,d,len)
过程
块传送

New（p）
过程
建立一个新的动态变量（如指针）

Odd（x）
函数
判断一个变量的值是否为奇数

Ofs(x)
函数
测变量偏移地址

Ord(ch)
函数
求一个字符的ASCII码值

ParamCount
函数
DOS参数串长度

ParamStr（n）
函数
DOS参数串

Pi
函数
返回π的值

Pos（str1,str2）
函数
测一个字符串中包含的另一个子串的开始位置

Pred（x）
函数
求前驱

Ptr(i)
函数
指针赋值

Random
函数
返回0~1之间的随机实数

Randomize
过程
初始化随机数发生器

Read（f,x）
过程
读入/输入数据

Readln(f,x)
过程
读入/输入数据

Rename(f,str)
过程
给一个外部文件改名

Reset(f)
过程
打开文件，并将文件指针指向开始，并准备读数据

Rewrite(f)
过程
打开文件，并将文件指针指向开始，准备写资料

Rmdir(path)
过程
删除一个子目录

Round(x)
函数
求实数的近似值（四舍五入）

Runerror
过程
停止程序的运行

Scrollto
过程
滚动显示窗口的某部分内容

Seek(f,n)
过程
将文件指针定位于文件f的第n个文件成分上

SeekEof（f）
函数
定位到文件尾

SeekEoln(f)
函数
定位到行尾

Seg(n）
函数
测变量段地址

SetTextBuf(f）
过程
将输入/出缓冲区与一个文本文件建立关联

Sin(x)
函数
正弦函数

Sizeof(x)
函数
测变量大小

Sptr
函数
返回SP寄存器的当前值

Sqr(x）
函数
平方

Sqrt(x)
函数
平方根

Sseg
函数
返回SS寄存器的当前值

Str(i,s)
函数
将一个整数转换成字符串

Succ(x)
函数
后继函数

Swap(x)
函数
交换一个变量的高位字节和低位字节

Trunc(x)
函数
截尾函数（截去实数的小数部分）

TrunCate(f)
过程
截尾函数（截去文件当前指针以后的内容）

UpCase(ch)
函数
将小写字母转换成大写字母

Val(s,r,p)
过程
将一个字符串转换成数值(整数或实数)

Write(f,x）
过程
写入/输出

Writeln(f,x)
过程
写入/输出

表3 dos 单元中部分常用过程与函数

过程或函数首部
类型
功 能 说 明

GetDate
过程
返回系统的当前日期

GetFTime
过程
返回最后一次写入的日期和时间

GetTime
过程
返回系统当前时间

PackTime
过程
转换系统日期和时间，封装成4个字节的长整数格式，给setftime使用

SetDate
过程
设置系统的当前日期

SetFTime
过程
写入新的系统日期和时间，覆盖系统上最后一次写入的系统日期和时间文件

SetTime
过程
设置系统的当前时间

UppackTime
过程
将系统日期和时间（4个字节的长整数格式）转换成记录格式，给getftime使用

DiskFree
函数
返回指定磁盘的可用剩余空间（字节数）

DiskSize
函数
返回指定磁盘的总容量（字节数）

GetVerity
过程
返回DOS状态下的磁盘读写标记

SetVerity
过程
设置DOS状态下的磁盘读写标记

Fexpand
函数
返回函数名的全称，包括磁盘、目录、扩展名

Fsearch
函数
在一个目录中查找文件

Fsplit
函数
将一个文件名分成目录、文件名、扩展名三部分

FindFirst
过程
在当前目录或指定目录下查找第一个与给定属性相匹配的文件名

FindNext
过程
返回下一个满足匹配条件的文件名

GetFattr
过程
返回文件的属性

SetFattr
过程
设置文件属性

GetIntVec
过程
返回某个中断变量值

Intr
过程
执行软中断

MsDos
过程
执行DOS系统调用

SetIntVec
过程
设定中断值

Exec
过程
通过一个特定命令行执行特定程序段

Keep
过程
中断程序的执行但仍驻留在内存中

SwapVectors
过程
用当前变量交换所有中断变量值

DosExitCode
函数
回到子程序的出口

DosVersion
函数
显示DOS版本

表4 crt 单元中部分常用过程与函数

过程或函数首部
类型
功 能 说 明

AssignCrt(f)
过程
将文本文件f与显示器CRT建立联系

ClrEol
过程
清除当前行光标所在位置以后的所有字符

ClrScr
过程
清除当前窗口或屏幕，光标返回到左上角

Delay(t)
过程
等待或延迟t毫秒

DelLine
过程
清除光标所在行上的所有内容

GotoXY(x,y)
过程
将光标移到屏幕的（x ,y ）处

HighVideo
过程
选择高亮度显示字符

InsLine
过程
在当前光标位置插入一个空行

KeyPressed
函数
测定键盘输入状态

LowVideo
过程
选择底亮度显示字符

NormVideo
过程
选择正常的文本属性从光标所在位置开始显示字符

NoSound
过程
关闭内部扬声器

ReadKey
过程
等待从键盘输入一个字符

Sound(hz)
过程
以 hz 指定的频率发声

TextBackGround(color)
过程
设置正文背景颜色

TextColor(color)
过程
设置正文前景颜色

TextMode
过程
选择特定的文本显示模式

WhereX
函数
返回当前光标位置的x值

WhereY
函数
返回当前光标位置的y值

Window(x1,y1,x2,y2)
过程
在屏幕上定义一个文本窗口

表5 其它几类单元中部分常用过程与函数

过程或函数首部
类型
功 能 说 明

Chain(f)
过程
目标程序链接

Execute(f)
过程
执行目标程序

Mark(p)
过程
标记动态变量

Release(p)
过程
释放动态变量区

CrtInit
过程
屏幕初始化

CrtLine
过程
汉字屏幕方式转换

GraphBackGround(color)
过程
选背景色

GraphColorMode
过程
中分辨率彩色图形方式，320*200彩色

GraphMode
过程
中分辨率黑白图形方式，320*200黑白

GraphWindow

(x1,y1,x2,y2,color)
过程
定义图形方式窗口

HiRes
过程
高分辨率单色图形方式，640*200黑白

HiResColor(color)
过程
高分辨率图形方式颜色，640*200彩色

Palette(color)
过程
中分辨率彩色图形颜色组

OvrPath(path)
过程
指定覆盖文件路径

Draw(x1,y1,x2,y2,color)
过程
画线

Intr(n,m)
过程
8086中断调用

Plot(x,y,color)
过程
画点

Random（integer）
函数
产生随机整数

Seg(x)
函数
测变量段地址

ColorTable(c1,c2,c3,c4)
过程
重定义颜色组

Arc（x,y,angle,radius,color）
过程
画圆弧

Circle（x,y,radius,color）
过程
画圆

GetPic(buffer,x1,x2,y1,y2)
过程
屏幕转储到缓冲器

PutPic(buffer,x,y)
过程
缓冲器转储到屏幕

GetDotColor(x,y)
过程
读点

FillScreen(color)
过程
填充屏幕

FillShape(x,y,fillcol,bordercol)
过程
填充一个区域

这是我从其它杂志上找到的，有的我也不知道怎么用，据说这是turbo pascal的函数，有的free pascal 也能用，但是free pascal功能很少，turbo pascal功能就很多了，因为它是要付费的（比较正式），我是学习free pascal的，这些函数对我们来说没有用，所以我知道的就这些，希望能对你有点帮助！

Answer 2

CRT

DOS

DXELOAD

EMU387

GETOPTS

GPM

GO32

GRAPH

HEAPTRC 

IPC

KEYBOARD

LINUX

MATH

MMX

MOUSE

MsMouse

Objects

PORTS

PRINTER

SOCKETS

SYSUTILS

TYPINFO

VIDEO

有些单元的作用通过名称就能看出来，具体作用我也不是很清楚，不过介绍都在安装目录(默认是C:\PP)\doc\units\units.htm 

用记事本打开pas程序文件

Answer 3

CRT
DOS
DXELOAD
EMU387
GETOPTS
GPM
GO32
GRAPH
HEAPTRC
IPC
KEYBOARD
LINUX
MATH
MMX
MOUSE
MsMouse
Objects
PORTS
PRINTER
SOCKETS
SYSUTILS
TYPINFO
VIDEO