青岛世隆创新软件科技有限公司- 平台开发部 学习培训文档
赋值语句的语法格式为： <变量名>:=<表达式>； 例： begin
A := B;
C := A * 2; end;
2.类型兼容
类型兼容是指数据类型不完全相同的量之间能进行的运算和赋值操作。 3.利用赋值语句给对象属性赋值
由于属性总是归属于对象才有实际意义，所以引用属性时用符号“.”来连接表示其隶属关系。如组件Editl的字体的颜色属性表示为：Editl.Font.Color。
4.顺序结构
顺序结构是最简单、最常用的结构。在该结构中，各操作块按照出现的先后顺序依次执行，不产生程序流程的其他转移。它是任何程序的主体结构，即使在选择结构或循环结构中，也常以顺序结构作为其子结构。通常由若干个赋值语句或其他简单语句构成 。
2.6.4 条件语句和程序的选择结构
实现选择结构的是IF语句和Case语句，这两种语句又称条件语句，条件语
句的功能就是根据表达式的值有选择地执行一组语句。
1.if语句
通过条件的布尔表达式值选择执行路径。 if <条件> then [<语句1>][else <语句2>]；
if语句分为简单条件语句和复合条件语句。简单条件语句的<语句>中不包
团结 求实 创新 高效 第 21 页
SeaLong SoftWare
青岛世隆创新软件科技有限公司- 平台开发部 学习培训文档
含其他的条件语句 。如果在If语句格式中的<语句１>或<语句２>本身又是一个If语句，则称为If语句的嵌套，嵌套的If语句又被称为复合条件语句。
例如：
procedure TForm1.Button1Click(Sender: TObject); begin
// simple if statement
if CheckBox1.Checked then ShowMessage ('CheckBox1 is checked') end; 2.Case语句
Case语句用来实现多分支选择结构。Case语句描述了多路择一的功能，它根据“选择器表达式”的值决定执行相应的语句。Case语句的语法格式为：
case <选择器表达式> of <情况常量表１>：<语句１>； …
<情况常量表n>：<语句n>； ［else
<其他语句列>；] end;
说明：<选择器表达式>的值必须是顺序类型 。 示例：
case Number of
1: Text := 'One'; 2: Text := 'Two';
团结 求实 创新 高效 第 22 页
SeaLong SoftWare
青岛世隆创新软件科技有限公司- 平台开发部 学习培训文档
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;
2.6.5 循环语句和程序的循环结构
从某处开始有规律地反复执行某一程序块的现象称为“循环”，完成这一功能的程序结构为“循环结构，”而其中重复执行的程序块称为“循环体”。循环结构语句有3种，它们分别是：While 语句、Repeat语句以及For语句。
1.While语句
While语句属于前测型循环结构。首先判断条件，根据条件决定是否执行循环，执行循环的最少次数为0。其语法格式为：
while <条件> do [<循环体>]；
说明：可在（循环体）中任何位置Break语句来终止While 循环，Break 语句通常位于IF语句后。可在循环体中任何位置放置Continue语句，以便在整个循环体没有执行完就重新判断（条件），以决定是否开始新的循环。Continue语句通常位于IF 语句之后。2.Repeat语句
Repeat语句属于后测型循环结构，首先执行循环体，然后判断条件，根据条件决定是否继续执行循环，执行循环的最少次数为1。
团结 求实 创新 高效 第 23 页
SeaLong SoftWare
青岛世隆创新软件科技有限公司- 平台开发部 学习培训文档
repeat
? [<循环体>]
until <条件>； 示例：
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);
注意：两种循环另一个关键的不同点是，repeat-until 循环的条件是反向的条件，只要不满足这个条件，循环就执行；当条件满足时，循环终止。这正好与
while-do 循环相反，while-do 循环当条件是真值时才执行。为此，我不得不在
上面代码中用反向条件来获得相同的结果。
3.For语句
若知道要执行多少次循环时，则使用For循环结构。For循环使用一个循环变量，每重复一次循环之后，循环变量的值就会自动增加或者减少。For语句的语法格式为：
for <循环变量>=<初值>{to|downto}<终值> do [<循环体>]；
说明：<循环变量>只能是顺序类型，TO表示计数器递增，DownTo表示计数器递减。 团结 求实 创新 高效 第 24 页
SeaLong SoftWare
青岛世隆创新软件科技有限公司- 平台开发部 学习培训文档
示例：
var
K, I: Integer; begin
K := 0;
for I := 10 downto 1 do
K := K + I;
注意：for循环计数器不必非是数字，它可以是任何有序类型的值，例如一个字符或一个枚举类型值。
4.with 语句
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;
团结 求实 创新 高效 第 25 页 SeaLong SoftWare