delphi基本语法-语句

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还可以遍历数组、字符串、类、接口、记录。

原文：https://www.cnblogs.com/lenovo512023499/p/15226700.html