第二章-Delphi面向对象的编程方法(二)(1)

2.1.4 跳转语句 

Object Pascal的跳转语句有if和case两个。 

2.1.4.1 if语句 

if语句会计算一个表达式,并根据计算结果决定程序流程。在上文的例程中,根据ColorDialog.Execute的返回值,决定窗体的背景颜色。if保留字后跟随一个生成Boolean值True或False的表达式。一般用“=”作为关系运算符,比较产生一个布尔型值。当表达式为True时,执行then后的语句。否则执行else后的代码,if语句也可以不含else部分,表达式为False时自动跳到下一行程序。

if语句可以嵌套,当使用复合语句表达时,复合语句前后需加上begin…end。else保留字前不能加“;”,而且,编译器会将else语句视为属于最靠近的if语句。必要时,须使用begin…end保留字来强迫else部分属于某一级的if语句。 

2.1.4.2 case语句 

case语句适用于被判断的变量或属性是整形、字符型、枚举型或子界型时(LongInt除外)。用case语句进行逻辑跳转比编写复杂的if语句容易阅读,而且程序代码整形较快。

下面的例程显示一个使用case语句的窗体:

建立如下的事件处理过程: 

procedure TForm1.Button1Click(Sender: TObject);

var

Number : Integer;

begin

Number := StrToInt(Edit1.Text);

case Number of

1,3,5,7,9: Label2.Caption := '奇数';

0,2,4,6,8: Label2.Caption := '偶数';

10..100:

begin

Label2.Caption := '在10到100之间';

Form1.Color := clBlue;

end;

else

Label2.Caption := '大于100或为负数';

end;

end; 

执行程序,当Edit1部件接受到一个值,并按动“OK”按钮触发程序后,Number便被赋值为用户输入的数值。case语句根据Number的值判断该执行哪一条语句。象if语句一样。case语句也有可选择的else部分。case语句以end结尾。 

2.1.5 循环语句 

Object Pascal的循环语句有三种:repeat、while和for语句。 

2.1.5.1 repeat语句 

repeat语句会重复执行一行或一段语句直到某一状态为真。语句以repeat开始,以until结束,其后跟随被判断的布尔表达式。参阅以下的例程: 

i := 0;

repeat

i := i+1;

Writen(i);

until i=10; 

当此语句被执行时,窗体的下方会出现1到10的数字。布尔表达式 i=10 (注意,与其他语言不同的是,“=”是关系运算符,而不能进行赋值操作)直到repeat..until程序段的结尾才会被计算,这意味着repeat语句至少会被执行一次。 

2.1.5.2 while语句 

while语句和repeat语句的不同之处是,它的布尔表达式在循环的开头进行判断。while保留字后面必须跟一个布尔表达式。如果该表达式的结果为真,循环被执行,否则会退出循环,执行while语句后面的程序。

下面的例程达到和上面的repeat例程达到同样的效果: 

i := 0;

while i<10 do

begin

i := i+1;

writeln(i);

end;  

2.1.5.3 for语句 

for语句的程序代码会执行一定的次数。它需要一个循环变量来控制循环次数。您需要说明一个变量,它的类型可以是整形、布尔型、字符型、枚举型或子界型。

下面的程序段会显示1到5的数字,i为控制变量: 

var

i : integer;

for i := 1 to 5 do

writeln(i); 

以上介绍了三种循环语句。如果您知道循环要执行多少次的话,可以使用for语句。for循环执行速度快,效率比较高。如果您不知道循环要执行多少次,但至少会执行一次的话,选用repeat..until语句比较合适;当您认为程序可能一次都不执行的话,最好选用while..do语句。 

2.1.6 程序模块

程序模块在Object Pascal中是很重要的概念。它们提供了应用程序的结构,决定了变量、属性值的范围及程序执行的过程。它由两个部分组成:可选择的说明部分和语句部分。如果有说明部分,则必在语句部分之前。说明部分包括变量说明、常量说明、类型说明、标号说明、程序,函数,方法的说明等。语句部分叙述了可执行的逻辑行动。

在Delphi中,最常见的程序模块便是事件处理过程中的程序模块。下面的事件处理过程是含有变量说明部分的程序模块: 

procedure TForm.Button1Click(Sender Tobject);

var {程序模块的说明部分}

Name : string;

begin {程序模块的语句部分}

Name := Edit1.Text;

Edit2.Text := 'Welcome to Delphi'+Name;

end; {程序模块结束} 

库单元也是程序模块。库单元的interface部分含有库函数、类型、私有,公有域的说明,也可以含有常量、变量的说明。这一部分可以作为程序模块的说明部分。在库单元的implementation部分中通常含有各种事件处理过程,它们可以视为模块的语句部分,是事件处理模块。库单元模块结束于库单元结束的end.处。

程序模块中可以包含其他的程序模块。上文库单元模块中含有事件处理模块。而库单元模块实际是在工程程序模块中。

所有的Delphi应用程序都有相同的基本结构。当程序逐渐复杂时,在程序中加入模块即可。例如在库单元模块中加入事件处理模块,向工程中加入库单元模块等。模块化编程使得程序结构良好,并且对数据具有保护作用。 

时间: 2024-09-21 10:19:28

第二章-Delphi面向对象的编程方法(二)(1)的相关文章

第二章-Delphi面向对象的编程方法(三)(2)

2.1.9.4 字符串类型 字符串类型事实上是一个一维的字符数组.当您说明一个字符串型的变量时,您应当指明这个字符串的大小,下面是说明字符串类型的例子: type MyString: string[15]; var MyName: MyString; 则变量MyName被说明成为最多可以包含15个字符.如果您没有说明字符串的大小,Delphi会认为字符串包含最大值255个字符.给字符串赋值可以直接使用单引号括起的字串赋值: MyName := 'Frank.Smith'; 或MyName :=

第二章-Delphi面向对象的编程方法(四)(1)

2.1.10.7 将库单元加入工程 将库单元加入工程是比较简单的.无论是您自己建立的库单元还是Delphi建立的与窗体有关的库单元,如果已经完成,则先打开您想加入库单元的工程(可以用Open Project打开工程):再选用File|Open File,然后选择您想加入的源程序(.PAS文件),并选择OK即可.则库单元被加入到应用程序中. 2.2 用Delphi的对象进行编程 Delphi是基于面向对象编程的先进开发环境.面向对象的程序设计(OOP)是结构化语言的自然延伸.OOP的先进编程方法,

第二章-Delphi面向对象的编程方法(二)(2)

2.1.7 关于作用范围 2.1.7.1 标识符的作用范围 一个变量.常量.方法.类型或其他标识符的范围定义了这个标识符的活动区域.对于说明这个标识符的最小程序模块而言,此标识符是局部的.当您的应用程序在说明一个标识符的程序模块外执行时,该标识符就不在此范围内.这意味着此时执行的程序无法访问这个标识符,只有当程序再度进入说明这个标识符的程序模块时,才可以访问它. 下面的示意图表示一个含有两个库单元的工程,每个库单元中又各有三个过程或事件处理过程. 2.1.7.2 访问其他程序模块中的说明 您可以

第二章-Delphi面向对象的编程方法(一)(1)

Delphi的编程语言是以Pascal为基础的.Pascal语言具有可读性好.编写容易的特点,这使得它很适合作为基础的开发语言.同时,使用编译器创建的应用程序只生成单个可执行文件(.EXE),正是这种结合,使得Pascal成为Delphi这种先进开发环境的编程语言. 本章中,我们将讨论Object Pascal的主要特点,并讲解如何在事件处理过程和其他应用程序中,使用它来编制程序代码.本章将讲解Delphi应用程序中最常用的Object Pascal语法,而不是Pascal语言的一切细节.如果您

第二章-Delphi面向对象的编程方法(四)(3)

2.2.6 对象变量的赋值 如果两个变量类型相同或兼容,您可以把其中一个对象变量赋给另一个对象变量.例如,对象TForm1和TForm2都是从TForm继承下来的类型,而且Form1和Form2已被说明过,那么您可以把Form1赋给Form2: Form2 :=Form1; 只要赋值的对象变量是被赋值的对象变量的祖先类型,您就可以将一个对象变量赋给另一个对象变量.例如,下面是一个TDataForm的类型说明,在变量说明部分一共说明了两个变量:AForm和DataForm. type TDataF

第二章-Delphi面向对象的编程方法(四)(2)

当您使用Object Inspector来改变对象(部件)的名称时,这个名称的改变会反映到程序中.例如,在Object Inspector中将Form1的Name属性命名为ColorBox,您会发现在类型说明部分,会将前文的TForm1改为: TColorBox=class(TForm); 并且在变量说明部分,会说明ColorBox为TColorBox类型的变量,由Delphi自动产生的事件处理过程名称会自动改为TColorBox.Button1Click:但您自行编写的实现部分的代码却不会被自

第二章-Delphi面向对象的编程方法(三)(1)

2.1.8.4 过程和函数的语句部分 过程或函数的语句部分由begin开始,end结束.函数需要一个返回值.可以将返回值赋给函数名称,也可以将返回值赋给Result变量.下面的例程将返回值赋给函数名称: function CalculateInterest(Principal,InterestRate: Double):Double; begin CalculateInterest := Principal * InterestRate; end; 将返回值赋给Result变量也是可以的,则上面

第二章-Delphi面向对象的编程方法(一)(2)

2.1.2.3 常量 常量在说明时就被赋予了一个值,在程序执行过程中是不可改变的.下面的例子说明了三个常量: const Pi = 3.14159; Answer = 342; ProductName = "Delphi"; 象变量一样,常量也有类型.不同的是,常量假设其类型就是常量说明中其所代表的值的类型.上文的三个常量的类型分别是real型.整形.字符串型.常量用"= " 表示两边的值是相等的. 2.1.3 过程与函数 过程与函数是程序中执行特定工作的模块化部分

第五章-Delphi图形图像编程(二)(2)

5.3 图像对象概述 5.3.1 TGraphic对象 TGraphic对象是TBitmap ,TIcon,Tmetafile对象的基类.如果知道图像的具体类型( 如位图, 图标元文件) , 则应将图像贮存在相应类型的对象中( 如TBitmap,TIcon,Tmetafile),否则应该使用可贮存任何图像类型的TPicture对象. 5.3.2 TPicture对象 TPicture对象可以保存位图.图标或元文件.Graphic属性中包括图像的类型:图像的高度和宽度分别定义在Height,Wid