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