1.循环执行语句：while···do···
2.打开IDE，新建VCL应用，添加一个button1，一个memo1，双击button1，编写代码：
procedure TForm2.Button1Click(Sender: TObject);
var
j: integer;
i: integer;
k: integer;
begin
// 纯粹的循环
Memo1.Lines.Add('单纯的循环');
j := 0;
while j < 10 do // 条件：j<10,即当j=10时，停止执行。
begin
j := j + 1; // 运算：每次执行j的数值+1,若缺少这一句，就会出现无限循环
Memo1.Lines.Add('j=' + j.ToString); // 输出：循环输出j的值
end;
// 含有跳过（continue）的循环
Memo1.Lines.Add('含有跳过命令的循环');
i := 0;
while i < 10 do // 条件：i<10,即当i=10时，停止执行。
begin
i := i + 1; // 运算：每次执行i的数值+1
if (i = 3) then // 条件：如果i=3,那么就跳过后面的语句，即不再输出i=3的值，3后面的值继续输出
begin
continue;
end;
Memo1.Lines.Add('i=' + i.ToString); // 输出：循环输出i的值
end;
// 含有跳出（break)的循环
Memo1.Lines.Add('含有跳出命令的循环');
k := 0;
while k < 10 do // 条件：i<10,即当i=10时，停止执行。
begin
k := k + 1; // 运算：每次执行k的数值+1
if (k = 5) then // 条件：如果k=5,那么就跳出本循环。
begin
break;
end;
Memo1.Lines.Add('k=' + k.ToString); // 输出：循环输出k的值
end;
end;
10.png
