turbopascal高级教程Word格式文档下载.docx

1、本章将讲述在程序设计时使用单元的技术、TURBO PASCAL与汇编语言和C语言混合编程技术、实现和使用动态数组的技术、编写中断例程的方法、在程序中使用扩展内存（EMS）和扩充内存（XMS）的方法以及将程序的标准数据作代码处理的方法等。1.1 单元及其使用 单元是能与TURBO PASCAL程序分开编译的一组TURBO PASCAL过程和函数。因为单元是单独编译的，所以使用单元的程序编译速度快。而且，一个独立的单元可以为多个程序使用。充分利用单元的优点，不仅可以加快软件的开发速度，而且可以提高程序可维护性。1.1.1 单元的结构 一个单元有两部分组成接口部分和实现部分。如:unit ; 单元头

2、 interface 接口部分开始 uses 可选项 公共说明部分 implementation 实现部分开始 私有说明部分 过程或函数的定义 begin 初始化部分开始 初始化代码 end. 1.接口部分 单元的接口部分由保留字interface开始，在单元头和实现部分之间。在此部分，说明公用的常量、类型、变量与过程和函数的头部。一个程序如果使用了一个单元，那么它就能访问该单元的接口部分所定义的所有变量、数据类型、过程和函数。接口部分仅包含过程和函数的头部。过程和函数的实现部分在单元的实现部分定义。在程序中使用一个单元只需要知道怎样调用单元中的过程，而不需要知道过程是怎样实现的。2.实现部分

3、 实现部分是由保留字implementation开始。实现部分定义所有在接口部分声明的过程和函数的程序体。另外实现部分可以有自己的说明，这些说明是局部的，外部程序是不知道它们的存在的，也不能调用它们。因为在实现部分中声明的一切对象在作用域上是局部的，所以实现部分的改变对其它单元和程序来讲是不可见的。因此，修改一个单元的实现部分，并不需要重新编译使用该单元的单元，只需要编译这个修改单元和使用此单元的程序。然而，如果接口部分做了修改，所有使用该单元的单元和程序，均需要重新编译，甚至需要修改。在实现部分，如果有uses子句，则必须紧跟在保留字implementation之后。如果过程说明为exter

4、nal类型，则需用$L 文件名.OBJ编译指令将其连入程序。在接口部分说明的函数或过程，除了inline类型之外，都必须在实现部分再现，它们的头部必须和接口部分一致或用简写格式。3.初始化部分 单元的整个实现部分通常包括在保留字implementation和end之间。然而，如果把保留字begin放在end之前，在它们中间写一些语句，这些语句就是单元的初始化部分。在初始化部分可以初始化任何变量，这些变量可由单元使用，也可通过接口部分由程序使用。可以在这部分打开文件供程序使用。例如，标准单元Printer用它的初始化部分使所有输出调用都指向文本文件Lst，这样在write语句中就可以使用它。当使

5、用单元的程序执行时，在程序的主体执行之前，它所使用的所有单元的初始化部分按uses子句中说明的先后依次被调用。1.1.2 单元的使用 当使用单元时，需在uses语句中将使用的所有单元的名字列出来，单元与单元之间用逗号（,）隔开。uses dos,crt;当编译器扫描到uses子句时，它把每个单元的接口信息加到符号表中，同时又把实现部分的机器码与程序代码连接起来。1.单元的直接引用 一个模块（程序或单元）的uses子句只须列出该模块直接使用的单元名。例如:program prog;uses unit2;const a = b;begin writeln（a=,a）;unit unit2;inte

6、rface uses unit1;b = c;implementaion unit unit1;c = 1;implementation b = 2;unit2用了unit1，主程序用了unit2，间接地使用了unit1。单元的接口部分如果有改动，则所有使用该单元的单元或程序必须重新编译。但如果改动了单元的实现部分，则用到它的单元不必重新编译。在上例中，如果unit1的接口部分改动了（如C=2），unit2就必须重新编译;如果只改动实现部分（b=1），则unit2不必重新编译。编译一个单元时，TURBO PASCAL计算出该单元的版本数，这个数是单元的接口部分的校验和。上例中，在编译unit2

7、时，unit1的当前版本数存入unit2的编译版本中，编译主程序时，unit1的版本数就和存在unit2中的版本数比较，若二者不同，说明unit2编译后，unit1的接口部分改动过，编译器给出错误信息并重新编译unit2。2.单元的循环引用 由于在实现部分使用的单元对用户是不可见的，因此把uses子句放在单元的实现部分，进一步隐藏了单元的内部细节，而且有可能构造出相互依赖的单元。下面的例子说明两个单元如何相互引用。主程序Circular使用Display单元，而Display单元在接口部分说明了Writexy过程，它有3个参数:坐标值x和y和要显示的文本信息，若（x，y）在屏幕内，Writex

8、y移动光标到（x,y）并显示信息，否则，调用简单的错误处理过程ShowError，而ShowError过程反过来又调用Writexy来显示错误信息，这样就产生了单元的循环引用问题。主程序:program circular;uses crt,display;writexy（1,1,Upper left corner of screen）;writexy（100,100,Way of the screenwritexy（81-length（Back to reality）,15,display单元:unit display;procedure Writexy（x,y:integer;Message

9、:string）;uses CRT,Error;procedure Writexy;if （x in 1.80） and （y in 1.25） then gotoxy（x,y）;writeln（message）;end else ShowError（Invalid Writexy coordinatesend;Error单元:unit Error;procedure ShowError（ErrMessage）;uses display;procedure ShowError;Writexy（1,25,Error: +ErrMessage）;Display和Error单元的实现部分的uses子

10、句互相引用，TURBO PASCAL能完整编译两个单元的接口部分，只要在接口部分不相互依赖，在实现部分可以相互调用。1.1.3 单元与大程序 单元是TURBO PASCAL模块化编程的基础，它用来创建能够为许多程序使用但不需要源程序的过程和函数库，它是把大程序划分为多个相关的模块基础。通常，一个大程序可以划分为多个单元，这些单元按过程的功能将其分组。例如，一个编辑程序可以划分成初始化、打印、读写文件、格式化等若干个部分。另外，也可以有一个定义全局常量、数据类型、变量、过程及函数的“全局”单元，它能被所有单元和主程序使用。一个大程序的框架如下:program Editor;dos,crt,pri

11、nter, EditGlobal;EditInit;EditPrint;EditFile;EditFormat;. . 在大程序开发中使用单元的另一个原因是与代码段的限制有关。8086处理器要求代码段长度最大为64K。这意味着主程序及任何单元都不能超过64K。TURBOPASCAL将每个单元放在一个单独的段中来解决这个问题。1.2 与汇编语言混合编程 TURBO PASCAL以编译速度快、生成的目标代码高速和紧凑而著称。在大多数情况下，只使用TURBO PASCAL即可以完成各种各样的程序编制，但是，在硬件接口程序、实时控制程序及大规模浮点运算时，都需要用汇编语言来编程。虽然TURBO PASCAL提供了INLINE语句和命令，以及内嵌式汇编语言（TURBO PASCAL 6.00），但这是远远不够的。本节详细讨论TURBO PASCAL与汇编语言混合编程的技术，