《Delphi程序设计及实验指导》电子教案--第2章.ppt

Delphi 7 程序设计与实验指导,张景安 赵慧勤 张叶娥 傅文博 编 著,第二章 面向对象的Pascal,Delphi的编程语言即Object Pascal是在Pascal的基础上发展起来的，它继承了Pascal语言语法结构严谨和编译代码高效优化等优点。本章将介绍Object Pascal的数据类型、常量、变量、运算符、语句、函数和过程等。,2.1 数据类型,2.1.1 简单数据类型 简单类型包括有序类型和实型两种。 1有序类型 有序类型包括整型、字符型、布尔型、枚举型和子界型。 有序类型是一种线性的数据结构，每个值都有唯一的前驱（除第一个）和唯一的后继（除最后一个）。 (1) 整型 整型的表示范围及存储格式见表2-1。,表2-1 整型的取值范围和存储格式,2.1 数据类型,2.1 数据类型,(2) 字符型 字符型的类型标识符是Char。字符型的数据只能是单个字符，不能是一串字符。例如ABC，x=? 等都不是字符型的数据，而是字符串。(3) 布尔型 通常用到的布尔类型是Boolean，一个Boolean类型的变量占一个字节，它只有两种取值：true和false。定义变量i，ch，t分别为整型、字符型、布尔型。 var i: Interge; ch: Char; t: Boolean;,2.1 数据类型,(4) 枚举类型 枚举类型是用一些标识符来表示一系列有序数，即由一些标识符组成的一个线性表。定义枚举类型的语法是： type typeName=(val1,.,valn) (5) 子界类型 子界类型指的是某个有序类型（称为基类）的一个子集。定义子界类型的语法是： type typeName=LowHigh;,2.1 数据类型,2实型 表2-2给出了实型的表示范围和存储格式。,表2-2 实型的表示范围和存储格式,2.1 数据类型,2.1.2 字符串类型 字符串类型是用一对单引号括起来的一系列字符。字符串类型的表示范围和存储格式见表 2-3。,表2-3 字符串类型的表示范围和存储格式,2.1 数据类型,2.1.3 结构类型 结构数据类型是一种复合数据类型，由多个数据组成。结构类型包括集合类型、数组类型、记录类型、文件类型等。 1集合类型 集合类型是一组相同类型元素的组合。定义集合类型： type Name=set of BaseType 2数组 数组是一些具有相同类型元素的有序组合。 (1) 静态数组 静态数组的声明格式为： type Name=arrayindexType1,.,indexTypen of BaseType;,2.1 数据类型,(2) 动态数组 动态数组没有固定的大小或长度。当赋值或使用某些函数（如SetLength）时，动态数组在内存中重新分配。 动态数组的声明格式为： type Name=array of BaseType; 定义动态数组不需声明元素的个数。例如： type Dynamicarray=array of Real; var a1,a2:Dynamicarry; a1:=a2; /a1和a2指向相同的内存单元。,2.1 数据类型,3记录类型 记录类型（有的语言中被称为结构）是一个不同种类元素的集合，每个元素称为字段（field）。在声明时，指定记录的名字和每个字段。声明格式为： type RecordTypeName=record FieldList 1:type1; FieldList 2:type2; FieldList n:type n; end;,2.1 数据类型,4文件类型 文件类型是由相同类型的元素组成的有序集合。文件类型的声明格式为： type fileTypeName = file of type 例：声明一个文件类型RecordList，以上面已定义的TdateRec为数据类型。 type RecordList = file of TdateRec; var Myrecordlist:RecordList;,2.1 数据类型,2.1.4 可变类型 有时要对一些数据类型变化的数据进行操作，并且在编译期间不能确定数据的类型，这时就可以使用可变类型的数据。 可变类型可以使用除记录、集合、静态数组、文件等结构类型、指针类型及长整型外的所有类型。可变类型有一个特殊的值Null，表示不明的或丢失的数据。 可变类型变量的声明格式为： var v1:Variant;,2.2 常量与变量,2.2.1 标识符 标识符是描述Object Pascal程序各个部分的名称，这些部分包括标记、对象、过程、类型、单元、变量及程序。标识符的大小写无关（即它不区分大小写），并且遵循以下规则： 可为任意长度，但只有前255个字符有效。 标识符的第1个字符必须是字母或下划线。 跟在第1个字符后面的字符必须是字母、数字或下划线。 标识符中不允许出现空格。,2.2.2 常量 常量是一个在程序的运行过程中具有不变值的标识符，常量的声明格式如下： Const 常量名=表达式; 变量不能在一个常量声明中使用，但算术和逻辑运算符可以，下面的函数可以在常量声明中使用。 Abs Low Round Chr Odd SizeOf Hi Ord Succ High Pred Swap Length Ptr Trunc Lo,2.2 常量与变量,2.2 常量与变量,2.2.3 变量 变量是程序代码中代表一个内存地址的标识符，而此地址中的内容在程序执行过程中可以改变。在变量使用之前必须先声明，变量声明格式如下： var 变量名表:类型名; 例： var s:string; i:integer; flag:Boolean;,2.3 表达式与运算符,2.3.1 表达式 表达式就是变量、常量、字符串、运算符及函数按照一定规则的组合。例： Peoples Republic Of +China Gross/12 Max(x,y)-Min(x,y) 2.3.2 运算符 1赋值运算符（:=） 赋值运算符“:=”是先计算赋值运算符右边表达式的值，再将结果赋给左边的变量。,2.3 表达式与运算符,2算术运算符 表2-4 算术运算符,2.3 表达式与运算符,3关系运算符 关系运算符是对两个类型相容且可以比较大小的数据进行比较，结果为布尔类型，见表2-5。 表2-5 关系运算符,2.3 表达式与运算符,4逻辑运算符 逻辑运算符对逻辑类型的操作数进行运算，结果为布尔型，见表2-6。 表2-6 逻辑运算符,2.3 表达式与运算符,5集合运算符 表2-7 集合运算符,2.3 表达式与运算符,6运算符的优先级,表2-8 Object Pascal各运算符的优先级,2.4 语句,2.4.1 注释 注释是添加在程序中用来说明代码功能的语句，它是非执行语句，对程序的执行部分不会产生任何影响，有助于提高程序的可读性。在Object Pascal中，有三种注释标记： 花括号“”注释：位于 “”中的内容为注释。 双斜杠“/”注释： “/”之后到本行结束的内容为注释。 圆括号及星号对“（*）”注释：（*）中的内容为注释。 例如以下语句都是注释： The first kind Of comment. /The second kind Of comment. (*The third kind Of comment.*),2.4 语句,2.4.2 简单语句和复合语句 简单语句是Object Pascal中最简单也最常用的语句，简单语句用分号分隔。赋值语句、函数、过程调用语句等是简单语句，例如下面的语句都是简单语句： r:=m+n； /两个值相加并赋值 ShowMessage(Im a student.); 复合语句是多个简单语句的组合，复合语句以begin表示开始，以end表示结束。例如： begin i:=1; j:=i+1; s:=abc; end;,2.4 语句,2.4.3 条件语句 条件语句是Object Pascal语言提供的选择结构语句，主要有如下两种： 1if语句 if语句的表示形式： if then else ,2.4 语句,【例2-1】求两个数中的最大值。 if ab then max:=a /在变量a之后不能加“;” Else max:=b; 【例2-2】符号函数。 -1 (x0),用if语句的嵌套实现，如下： if x0 then y:=1 else y:=0;,2.4 语句,2case语句 case语句的表示形式： case of : : else end;,2.4 语句,【例2-3】编写一个程序，输入一个年份，判断是否是闰年。闰年的条件是满足下面条件之一： (1) 能被4整除，但不能被100整除的年份； (2) 能被100整除，也能被400整除的年份。 对这两个条件都不符合的年份不是闰年。 程序功能：输入一个年份，显示其是否为闰年的信息。 界面设计：四个组件：两个文本框Label1和Lable2，分别显示提示和结果信息；一个Edit组件Edit1，用来输入要进行判断的年份；一个Button组件Button1，用来查询结果。如图2-1所示。,2.4 语句,图2-1 窗体界面 程序代码： procedure TForm1.Button1Click(Sender: TObject); var year:Integer; flag:Boolean;,2.4 语句,begin year:=StrtoInt(Edit1.text); /将字符串转变为整型 if year mod 4 = 0 then begin if year mod 100 =0 then begin if year mod 400=0 then flag:=true else flag:=false; end else,flag:=true; end else flag:=false; if flag then Label2.Caption:=该年份是闰年 else Label2.Caption:= 该年份不是闰年; end;,2.4 语句,2.4.4 循环控制语句 循环语句可以使用户重复执行一条或多条语句，直到满足某个条件时为止。 1for语句 for语句的一般形式为： for 循环变量:= to/downto do ; 【例2-4】求1100所有整数的累加和。 var s,i: Integer; s:=0; for i:=l to 100 do s:=s+i;,2.4 语句,2while语句 while语句的一般形式为： while do while后面的为逻辑表达式，先计算表达式的结果，如果表达式为true，while语句将重复执行循环体。如果表达式结果为false，则跳出循环，执行while之后的语句。,【例2-5】求1100所有整数的累加和。 var s,i: Integer; i:=1; s:=0; while i=100 do begin s:=s+i; i:=i+1; end;,2.4 语句,3repeat语句 repeat语句的一般形式为： repeat until 当使用repeat语句时，先执行循环体，再判断表达式，只要until后面的表达式为true，则将再执行循环体。因此，repeat语句下面的循环体至少执行一次。,【例2-6】求1100所有整数的累加和。 var s,i: Integer; i:=1; s:=0; repeat s:=s+i; i:=i+1; until i100；,2.4 语句,4break语句 功能是强行退出循环，break语句只能用在循环体内。 【例2-7】利用break语句退出一个while循环。 var s: String; begin while true do /条件恒为真 begin ReadLn(s); /读入一字符串 if s= then break; /不输入任何字符，则退出循环 WriteLn(s); /输出字符串 end; end;,2.4 语句,5continue语句 continue语句也用在循环体中，其作用是强行结束本次循环，转入循环开始处，开始执行下一次循环操作。 【例2-8】使用continue语句，求1100所有奇数之和。 var i,s: Integer; s=0; begin for i:=1 to 100 do begin if i mod 2=0 then continue; /如果为空，跳过剩余语句，转到下一个循环 s:=s+i; end; end;,2.5 函数和过程,函数和过程是实现一定功能的语句块，是程序中的特定功能单元。可以在程序的其他地方被调用，也可以进行递归调用。函数和过程的区别在于函数有返回值，而过程没有返回值。 2.5.1 函数和过程的声明 函数和过程在使用前必须进行声明。 1函数的声明 函数的声明是在程序的type区，具体形式如下： function ():;,2.5 函数和过程,函数的定义是在程序的implementation部分，具体形式如下： function ():; var begin := /也可以用Result系统保留字代替 end; 在begin与end之间是在函数调用时实现特定功能的一系列语句。函数值的返回有两种方式： 将返回值直接赋给函数名。 将返回值赋给Result。,2.5 函数和过程,【例2-9】求两个数中的最大数。 function Max(a,b: integer):integer; /两个形参为整型值a、b，函数返回值为整型 var m: Integer; begin if ab then m:= a else m:= b; Max:= m; /或result := m; end;,2.5 函数和过程,2过程的声明 过程的声明与函数类似，所不同的是使用的保留字不同，而且少了一个返回值类型； 过程的声明是在程序的type区，具体形式如下： procedure ():; 过程的定义是在程序的implementation部分，具体形式如下： procedure ()； begin end;,2.5 函数和过程,【例2-10】显示一行num个星号*。 procedure ShowStar(num:Integer); var i: Integer; s:String; begin s:= ; for i:=1 to num do s:= s+*; ShowMessage(s); end;,2.5 函数和过程,2.5.2 重载函数和过程 所谓重载，是指在同一个作用范围内给不同的函数或过程取同一个名称。重载可以方便编程，重载函数必须用指令字overload来进行说明。 下面的两个函数就是重载函数： function Max(a:Integer;b:Integer):Integer;overload; /求两个整数的最大值 function Max(a:Real;b:Real):Real;overload; /求两个实数的最大值 下面两条语句就调用了不同的函数： Max(3.7,4.6); /调用的是第二个重载函数 Max(3,4); /调用的是第一个重载函数,2.5 函数和过程,2.5.3 参数 1形参与实参 函数或过程的声明和定义时参数列表中的参数称为形式参数，简称形参；而函数或过程调用时参数列表中的参数称为实在参数，简称实参。 2数值参数、变量参数和常量参数 (1) 数值参数 在调用函数或过程时，数值参数在运行过程中只改变其形参的值，不改变其实参的值，即形参不会影响原来实参的值。 (2) 变量参数 如果用户想改变传递的参数值，就需要使用变量参数，即在被调用程序的参数表中的形参前加上保留字var。,2.5 函数和过程,(3) 常量参数 如果当过程或函数执行时要求不改变形参的值，最保险的办法是使用常量参数。在参数表的参数名称前加上保留字const可以使一个形参成为常量参数。使用常量参数代替数值参数可以保护用户的参数，使用户在不想改变参数值时不会意外地将新的值赋给这个参数。 2.5.4 作用域 在Object Pascal中，根据变量的作用域，可将变量分为：全局变量和局部变量。所谓变量的作用域，是指变量的有效范围。全局变量在整个程序中都有效，其作用域为整个程序；局部变量只在声明它的函数和过程中有效，其作用域只限于该函数或过程本身。,2.5 函数和过程,例： type var Form1: TForm1; /全局变量Form1 implementation $R *.dfm procedure TForm1.FormCreate(Sender: TObject); var m,n:Integer; /局部变量m,n Form1:Tform1; (*局部变量Form1，与上面的全局变量同名，在过程TForm1.FormCreate中局部变量起作用。*),2.5 函数和过程,2.5.5 函数和过程的调用 1函数和过程的调用 (1) 函数的调用 函数调用的一般形式为： () 函数的调用往往是将返回值赋给某个变量或参与运算。例如调用例2-9，将其返回值赋给变量x的语句为： x:=Max(3,6); (2) 过程的调用 过程的调用的一般形式为： (); 其中的实参可以是常量、变量或表达式，但实参的个数和类型与形参完全匹配，即个数相同、类型一致。例如：调用例2-10的过程ShowStar的语句为： ShowStar(20);,2.5 函数和过程,2函数和过程的递归调用 所谓递归调用，是指函数A调用函数B，而函数B又调用函数A的情况，或是指一个函数调用自身的特殊情况。 【例2-11】递归调用 program Project1; ($SappTypeConsole) var alpha:Integer; procedure Test2(var A:Integer):forword; (*Test2被说明为前置过程*) procedure Testl(Var A:Integer)； begin a:=a-1; if a0 then,Test2(a); Writeln(