19. 条件语句
if语句
1 if <条件表达式> then
2 <语句1>
3 else
4 <语句2>;
20. 选择语句
复制代码
1 Case 选择表达式 of
2 常量1:语句1;
3 ...
4 常量n:语句n;
5 Else
6 ...
7 End;
复制代码
21. 循环语句
1》while
复制代码
1 While 条件表达式 do
2 循环语句;
例：
while i < n do
begin
sum := sum+i;
i := i+1;
end;
复制代码
2》Repeat
复制代码
repeat 循环体
until 条件表达式
例：
repeat
i := i+1;
sum := sum+i;
until i = n;
复制代码
3》for
复制代码
for 计数器 := 初值 to/downto 终值 do
循环体
例：
for i := 1 to/downto n do
writeln(‘hello delphi‘);
复制代码
4》for...in
复制代码
for v in set do
循环体
例：
var
myset :set of AnsiChar;
ch : AnsiChar;
begin
myset := [‘1‘,‘2‘];
for ch in myset do
writeln(ch);
end.
复制代码
for in还可以遍历数组、字符串、类、接口、记录。