delphi学习笔记(Delphi基础教程图文版之语句)

delphi学习笔记(Delphi基础教程图文版之语句)(1)

如果说数据类型是 Pascal 编程的一个基础,那么另一个则是语句。

很多人喜欢把条件控制和循环语句称为流程控制语句,这样说的原因是代码有默认执行流程,而这些语句改变了代码默认的执行流程,但需要注意的是编程中不仅仅只有流程控制语句,此外还有表达式语句,所以我们从表达式聊起

表达式

在学习语句之前还有一个概念需要了解,那就是表达式。在我初学编程的日子里被表达式折磨的死去活来。经常听到老师提起表达式却又没有一个准确的描述。

定义:由关键字和操作符组成符合一定语法规则的序列成为表达式,根据该序列运算的结果类型不同又划分为不同类型的表达式

例如当我们看到下面的写法一般会称为逻辑表达式

IsOpen := 1 < 2;

注意这个定义是我自己的理解非官方定义

在Delphi中表达式被包含在了简单语句中,当然这也是我在翻阅一些文档时看到的一些说法并不是官方说法,例如下面的例子。

Pascal 简单语句中不包含任何别的语句,赋值语句和过程调用即是简单语句的例子。简单语句用分号隔开,如下所示:

X := Y Z; // 运算赋值 Randomize; // 过程调用

赋值语句

单独的把赋值语句列出来是因为和其他语言不一样

在Pascal 语言中赋值语句用冒号-等号操作符“:=”,对使用其他语言的编程人员来说这是一个奇怪的符号。在其他语言中用作赋值符号的“=”在Pascal 中用作关系运算符,用于判断是否相等。

赋值和相等判断使用不同的符号,使Pascal 编译器(象C编译器一样)能更快解译源代码,因为这样就不需要通过检查上下文来判断符号的意义,此外使用不同操作符也使代码更易读。

PS:最近特别流行的TypeScript中的变量初始化声明方式和Delphi采用了类似的方式,谁让它们同宗同源呢

If语句

条件语句通过条件检测,判断是否执行该条件语句中包含的语句。条件语句可有两种基本形式:if语句和case语句。

对if-then型语句, 仅当条件满足时,语句才执行;对if-then-else型,if语句在两条语句中选择一条执行。

例如:下面是一个按钮事件代码中一条简单的if语句:

procedure TForm1.Button1Click(Sender: TObject); begin if CheckBox1.Checked then ShowMessage ('CheckBox1 is checked') end;

如果点击按钮后没有反应,表明复选框未被选中。对于这种情况,最好能交代得更清楚些,为此在第二个按钮的代码中,我用了if-then-else 语句:

procedure TForm1.Button2Click(Sender: TObject); begin // if-then-else statement if CheckBox2.Checked then ShowMessage ('CheckBox2 is checked') else ShowMessage ('CheckBox2 is NOT checked'); end;

注意的是,不能在第一句之后、else 关键词之前加分号,否则编译器将告知语法错误。实际上,if-then-else 语句是单纯的一条语句,因此不能在语句中间加分号

if 语句可以很复杂,句子中的条件部分可以是一系列条件(用and、 or 、 not等布尔操作符联接起来),if语句又可以嵌套另一个if语句,

procedure TForm1.Button3Click(Sender: TObject); begin if CheckBox1.Checked and CheckBox2.Checked then ShowMessage ('Both check boxes are checked') end; procedure TForm1.Button4Click(Sender: TObject); begin if CheckBox1.Checked then if CheckBox2.Checked then ShowMessage ('CheckBox1 and 2 are checked') else ShowMessage ('Only CheckBox1 is checked') else ShowMessage ( 'Checkbox1 is not checked, who cares for Checkbox2?') end;

虽然上面的例子中省略了 begin...end 但是就我个人而言不太推荐省略的做法,感觉会降低代码的可读性

case语句

如果你的if语句变得非常复杂,有时可以用case语句代替它。case语句包括用来选值的表达式、可能值序列或一个取值范围。这些值应该是常量,并且它们必须唯一,而且应属于有序类型。

case语句最后可以带一个else 语句,当没有一个标签与选择器的值一致时,执行else语句。下面是两个简单的例子:

case Number of 1: Text := 'One'; 2: Text := 'Two'; 3: Text := 'Three'; end; case MyChar of ' ' : Text := 'Plus sign'; '-' : Text := 'Minus sign'; '*', '/': Text := 'Multiplication or division'; '0'..'9': Text := 'Number'; 'a'..'z': Text := 'Lowercase character'; 'A'..'Z': Text := 'Uppercase character'; else Text := 'Unknown character'; end;

循环语句

其它编程语言中使用的循环语句,Pascal语言中都有,它们包括 for、 while 和 repeat 语句。如果你用过其他编程语言,你会发现Pascal中的循环语句没什么特别的,因此这里我只作简要的说明。

for循环

Pascal 中的for循环严格地建立在计数器基础上,循环每执行一次,计数器不是增加一个值就是减小一个值。下面是一个for语句的简例,用来将前十个数加起来:

var K, I: Integer; begin K := 0; for I := 1 to 10 do K := K I;

同样的for语句可以用正好相反的计数器来写:

var K, I: Integer; begin K := 0; for I := 10 downto 1 do K := K I;

Pascal 中的for循环语句其灵活性比其他语言小(它不能指定1之外的步长),不过简单也容易理解。如果需判断的条件比较复杂,或想自定义计数器,你可以用while语句 或 repeat 语句,而不是for循环语句。

while语句和repeat语句

while-do 循环语句和 repeat-until 语句的不同点在于repeat 循环语句的代码至少要执行一次。从下面的简例很容易理解这一点:

while (I <= 100) and (J <= 100) do begin // use I and J to compute something... I := I 1; J := J 1; end; repeat // use I and J to compute something... I := I 1; J := J 1; until (I > 100) or (J > 100);

从上可见即使 I 或 J 的初始值大于100,repeat-until循环中的代码也仍会执行一次。

PS:repeat-until 循环的条件是反向的条件,只要不满足这个条件,循环就执行;当条件满足时,循环终止。这正好与while-do 循环相反,while-do 循环当条件是真值时才执行。为此,我不得不在上面代码中用反向条件来获得相同的结果。

with语句

with语句是Pascal编程语言独有的语句,with语句是一种用于简化代码的语句。 如你要访问一个记录类型变量(或一个对象),用with语句就不必每次重复变量的名字。例如对于以下的记录类型代码:

type Date = record Year: Integer; Month: Byte; Day: Byte; end; var BirthDay: Date; begin BirthDay.Year := 1997; BirthDay.Month := 2; BirthDay.Day := 14;

可以用with语句改进后半部分代码,如下:

begin with BirthDay do begin Year := 1995; Month := 2; Day := 14; end;

在Delphi程序中,这种方法能用于访问控件和类变量。现在通过with语句访问列表框的条目,我们重写上面循环例子的最后部分:

procedure TForm1.WhileButtonClick(Sender: TObject); var I: Integer; begin with ListBox1.Items do begin Clear; // shortcut Randomize; I := 0; while I < 1000 do begin I := I Random (100); // shortcut: Add ('Random Number: ' IntToStr (I)); end; end; end;

当编写的代码很复杂时,with语句会很有用,也可省去一些临时变量。

但是这样做也有缺点,因为这样将使代码的可读性变差,特别对有相似或相同属性的对象。更严重的是,使用with语句可能会在代码中融入微妙的逻辑错误,甚至连编译器都难以发现。例如

with Button1 do begin Width := 200; Caption := 'New Caption'; Color := clRed; end;

这段代码改变了按钮的Caption 和 Width属性,但也改变了窗体的Color属性,而不是按钮的颜色!其原因是 TButton 控件没有Color属性, 又由于执行的代码是针对窗体对象的(我们正在写窗体的方法),所以窗体对象即成为默认的访问对象。如果这样写:

Button1.Width := 200; Button1.Caption := 'New Caption'; Button1.Color := clRed; // error!

编译器会给出一个错误。通常,由于with语句在当前的块中定义了新的标识符,省略了原有的标识符,可能引起在同一块内错误地访问另一个标识符(就象上面的这段代码)。即使存在种种缺陷,我还是建议你习惯于使用with语句,因为with语句确实是非常便利,并且有时也会使代码更容易读懂。

然而,你应该避免使用多个with语句,如

with ListBox1, Button1 do..

这样会使后面的代码非常难读,因为,对该块中定义的每个属性,你都要根据相应的属性以及控件的次序,才能推出所访问的控件。

PS:个人的理解with语句能不不用就不要用了,太容易出问题了,而且排错也不方便

break

强制退出最近的一层循环(注意:只能放在循环里;而且是只能跳出最近的一层循环),用于从for、while、repeat语句中强制退出类似于C/C 等语言中的break的功能

for var I := 0 to 10 do begin for var X := 0 to 5 do begin //只能推出内层循环 if X = 5 then begin break; end; end; end;

continue

用于从for、while、repeat语句中结束循环内的本次处理,继续从循环体的开始位置继续执行,类似于C/C 等语言中的continue的功能

continue语句其实很少使用

exit

用于从当前代码块中退出。若该代码是主程序,则终止该程序。如果是函数或过程,则立即终止该函数或过程

在Delphi中没有return关键字,一般情况下我使用Result和Exit联用达到return的效果

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页