pascal语法解释（全文）_pascal语法

pascal语法解释（全文）由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“pascal语法”。

我是在高一接触pascal语言，因为参加NOI的需要，顺理成章的要使用Turbo Pascal来写程序了。半年后，我开始想着如何编写Windows程序，又理所当然的找上Delphi。初见Delphi，除了begin，end让我觉得倍感亲切外，Object Pascal里的增加的面向对象的语法却让我很是吃惊，当时的我可根本不懂什么叫面向过程，面向对象；最可恶的是，国内那些教育家们，除了会拿着清华的那本精简的不能再精简的pascal教材照本宣科外，似乎再也没有什么实质性的工作了，传说中的《Turbo Pascal大全》更是无处可寻，所以关于unit，interface这些Delphi里随处可见的关键字我也很不明白。所幸，其后不久，我得到一本名为《计算机反病毒技术》的书，里面统统都是用Turbo Pascal编写的源代码，通过它我迅速明白了早已存在于Turbo Pascal中unit，interface等关键字的含义和用法，又以Delphi中的Help文档为扶手，开始蹒跚学步了。

印象中，国内Delphi作家似乎更偏爱编写应用实例类的技术书籍，至于语法这种东西，没有几个人愿意多去涉及，即使书中必须谈及，也是寥寥数笔，匆匆带过，或者干脆与某本书类似。对Object Pascal语法讲解最好，最权威的恐怕就算《Delphi5开发人员指南》了，这本书至今也是备受推崇的。但与如今泛滥的C++书籍相比，Delphi仍然逊色许多，也难怪很多新手特别是从来没有接触过pascal语言的新手，在学习Object Pascal时会遇到不少困难。自己的感觉是：在从Turbo Pascal向Delphi过渡的过程中，由于没有正确的指引，走了很多弯路；由于没有正确的桥梁，必须要一步实现大跨越。所以，在这里，我提出自己曾经遇见的沟壑，路标性给出我自己的认识和总结，希望给入门的同学们一些帮助。我不打算详细介绍语法知识，并假设你已经有一点pascal语言和面向对象概念的基础。要想学习相关详细知识，我推荐各位一定要阅读《Delphi开发人员指南》和Delphi Help文档中的相关章节。

● 记录体和类

习惯了在一个Program模块内写完所有面向过程代码的我，有几天的时间一直未能彻底明白在非Unit模块中，非继承的自定义类的框架，语法是如何的，VCL源代码虽然经典，却过于繁杂，不能让我迅速掌握根本，我需要一个最简单又最能说明问题，完整的可运行的代码，苦于无处寻求答案，只好亲自动手，探索对应关系，终成其下两段代码。

program TP;{本代码在Turbo Pascal 7.0下编译通过} type MyRecord = record {...} end;var MR: MyRecord;procedure Procedure1;begin {Procedure1 Code} end;

{=========== main ===========} begin {以这个begin为标志，主程序开始，其作用相当于C/C++中的main函数} Procedure1;end.是一段及其简单的包含记录类型声明和过程声明的代码，二者基本规则如下：用户自定义的数据类型，需要放在以保留字“type”开头的代码段中；过程(procedure)和函数(function)要放在以保留字“var”开头的代码段中；最后一个夹在begin和end间的代码段是主程序的开始，也就是整个程序的入口，作用相当于C/C++里的main函数,请注意，只有在以program保留字开头的代码模块中，这个begin和end才具有程序入口的作用。

另外，在Turbo Pascal中已经支持原始的面向对象，它的声明关键字是Object，与现在我们常见的Cla不同。语法如下：

object Field;Field;...Method;

Method;end;

Method允许以下几种形式：

procedure MethodName(:type);

或者function MethodName(:type):type;

或者constructor MethodName(: type [;:type]);[virtual];

或者destructor MethodName[(: type)];[virtual];

不错的，构造函数和析构函数都支持virtual，在构造函数中，还有一个有用的东西是Fail函数，当构造函数的初始化失败时，它可以用来释放已经分配的资源。遗憾的是，Object里面还没有区分私有共有。接下来的代码，是Turbo Pascal的Help文档中，关于Fail函数的演示代码，可以让大家对此有个较深的认识，Turbo Pascal却是是很强大和优秀的。

type PBase = ^TBase;TBase = object(TObject){在这里就已经出现Tobject了，是不是很亲切？} constructor Init(FailMe: Boolean);end;

PDerived = ^TDerived;TDerived = object(TBase)constructor Init(FailMe: Boolean);end;

constructor TBase.Init(FailMe: Boolean);begin

inherited Init;

if FailMe then Fail;end;

constructor TDerived.Init(FailMe: Boolean);begin

if not inherited Init(FailMe)then

{判断父类的初始化是否成功}

{ Ancestor failed to construct, we must fail too }

Fail;

{ Otherwise, proceed with construction } {...} end;var

P: PObject;

X: Boolean;begin

for X := False to True do begin

P := New(PDerived, Init(X));

if P nil then

begin

writeln(''Object constructed sucefully'');

Dispose(P, Done);

end

else

writeln(''Object failed to construct'');end;end.回到Delphi中，再看下面的代码：

program Delphi;

{代码在Delphi7.0下编译通过}

{$APPTYPE CONSOLE}

uses

SysUtils;

type

TMyCla = cla(TObject)public

constructor Create;

procedure PrintClaName;

private

ClaName: string;end;

var

MyCla: TMyCla;

constructor TMyCla.Create;begin

ClaName := ''TMyCla'';end;

procedure TMyCla.PrintClaName;begin

writeln(ClaName);end;

{=========== main ===========} begin

MyCla := TMyCla.Create;

MyCla.PrintClaName;

MyCla.Free;

readln;end.类作为用户自定义的一种数据类型，其声明的规则，成员函数、过程的实现方法都符合经典 Pascal的基本规则，唯一不同的是保留字变了，从记录体变成了类（详细比较代码结构和语法规则），这也说明Object Pascal是在经典Pascal的基础上进行了面向对象内容的语法扩充。当然，内部的运行机制并没有表面语法扩充这么轻松，可那是编译器的事情，在这里，我们完全不用理会。差点忘记告诉读者怎么调试上面的代码了：在IDE环境主菜单里选择 File | New | Other，在New Item项里选择Console Application，这时出现了代码编辑框，再将上面的代码贴入，F9，完成！

代码内的{$APPTYPE CONSOLE}是一个编译开关，它告诉编译器，这是控制台程序，在格式上它与注释的差别就是那个“$”符号；TMyCla = cla(TObject)可以简写为

TMyCla = cla，表示TMyCla类从TObject类继承而来，TObject是Delpi中所有对象的祖先，这也是为什么我在代码中没有声明Destroy过程却仍然能够使用的原因；Delphi中类的构造很有趣，请注意MyCla := TMyCla.Create这一句，这与C++不同。readln使程序停顿下来，直到用户按下回车键才结束程序退出。更多详细内容请参考《Delphi开发人员指南》2.17.1节。

上面两段代码相互对应，虽然很简单，不过我却认为他们在某种程度上很容易让同学发现由经典Pascal向Object Pascal过渡的一些方法，对Object Pascal的类定义语法有个初步了解，这是很重要的一步。当初我要是能够看到这两段代码，或许能少浪费很多时间了。

● unit模块

在Turbo Pascal的Help文档里，是这样说明unit功能的：Units are the basis of modular programming inBorland Pascal.You use units to createlibraries and to divide large programs into logically related modules。传统上，我们都将所有代码集中在一个program模块中，可是面对更加复杂的功能代码，正确的划分功能封装功能对代码管理和以后的维护有着重要的作用，而使用unit模块正好解决了这些问题。其语法规则如下：

unit identifier;{ Heading }

interface { Public symbols }: uses { Uses clause } const { Constants } type { Types } var { Variables } procedure { Procedures } function { Functions } implementation { Private symbols }: uses { Uses clause } label { Labels } const { Constants } type { Types } var { Variables } procedure { Procedures} function { Functions } begin { Initialization } statement;{ Statements } statement end.Interface部分用来声明对外接口，也就是可以被外部引用该文件的程序使用的函数和过程；implementation部分包含接口部分声明的各种函数、过程具体实现的代码；begin一直到最后的end之间都是初始化部分，可以为本unit内的各种变量，过程，函数初始化。如果没有内容需要初始化，那么begin可以省略，但end.必须存在。

在Delphi下经典Pascal中的unit部分有了变动，请看来源于Delphi Help文档的说明： unit Unit1;interface uses { List of units goes here } { Interface section goes here } implementation uses { List of units goes here } { Implementation section goes here } initialization { Initialization section goes here } finalization { Finalization section goes here } end.可见Initialization部分的关键字begin，被Initialization取代了，并且增加了一个finalization部分。Initialization部分的代码可以这样写： initialization begin {do something…} end;也可以这样写： initialization {do something…}

finalization部分的功能，有点类似于析构函数，它主要针对本unit模块中initialization部分初始化的资源进行释放，并且是在程序结束时运行，如果程序以Halt过程结束了，该部分的程序将不能执行。

Unit模块中的interface等关键字和结构初看似乎有些限制程序员的自由度，但也正是这种语法规定体现出Pascal语言的严谨和优美，为减少程序出错的几率做出保证。

program相当文章的提纲挈领，unit则是文章的各个段落。Delphi里，program模块包含在.prj文件中，unit模块包含在传统的.pas文件中。这就是为什么在Delphi中我们经常面对的是为各个窗口服务的unit模块，而非在一个program中写完所有代码。不过我在Delpi的Help中看到这样一句话：In traditional Pascal programming, all source code, including the main program, is stored in.pas files.不知道这算思考角度不同还是算bug，毕竟这种语法并非Delphi中才有，Turbo Pascal程序员也一直在采用这种方法组织程序结构。

给出一个简单的initialization例子。在菜单中选择File | New | Application，再在窗体上放置一个按钮，双击该按钮编写它的Click事件处理代码，完整代码如下：

unit Unit1;interface uses Windows, Meages, SysUtils, Variants, Claes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = cla(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private { Private declarations } public { Public declarations } end;var Form1: TForm1;Msg: string;implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);begin ShowMeage(Msg);Msg := ''second'';end;

initialization Msg := ''first'';end.以上所述，是过渡中两个基本的重要问题，弄懂它们方可初步明白自己为什么要这样编写代码，该在哪里编写代码，如何扩展代码功能。

● 我推荐的参考书籍

Delphi参考书籍

《Delphi 5 开发人员指南》机械工业出版社 《Inside VCL》李维 电子工业出版社 《Delphi深度历险》陈宽达 科学出版社 《Pascal精要》网络下载电子版

Windows参考书籍

《Programming Windows》Charles Petzold 《Windows2000开发人员指南》中国水利水电出版社

Delphi组件参考书我暂时没有发现特别好的，平时我主要依靠论坛，源代码，Delphi自带的Demo和文档来学习组件的使用。

● 再说点

现在有一些大学取消了Pascal语言课程，去年的ACM大赛也取消了Pascal语言的使用，不禁心寒，启蒙教育没有人做了，这些都使得Delphi在学生中的处境更加艰难。在国内的Delphi论坛上，常常见到许多半吊子程序员在享受Delphi的快速开发的时候，嘴巴里还在责备Delphi功能太弱，不能搞什么底层开发，甚至直接责怪Pascal语言，殊不知，在Dos年代，有多少著名软件使用Pascal开发出来的呢，有多少底层控制程序有着Pascal的身影呢？现在我手头上还有Pascal编写的病毒代码，反病毒代码，IC芯片控制代码。

或许正是Delphi的RAD能力降低了程序开发的门槛，让很多半吊子进入了程序界，RAD开发蒙蔽了许多半吊子编程者（称呼他们为程序员或许稍欠火候）的眼睛，但是国内的教育界同样有着不可推卸的责任，选修课开VB的不少，讲Delphi的很少，我曾经还遇到过一个从心底里就瞧不起Delphi，不啻谈论的老师，而事实上他根本就没有用过Delphi。我现在常去外国网站，发现国内被争论不休的问题，在国外早就有人在做，并且做的非常棒。