循环是所有编程语言中的常见元素。Delphi有三个重复执行代码块的控制结构：例如，repeat。。。直到。。。做

for循环

假设我们需要将一个操作重复固定次数。

// show 1,2,3,4,5 message boxes var j: integer; begin for j := 1 to 5 do begin ShowMessage('Box: '+IntToStr(j)) ; end; end;

控制变量（j）的值实际上只是一个计数器，它决定for语句的运行次数。用于设置计数器的关键字。在前面的示例中，计数器的起始值设置为1。结束值设置为5。当for语句开始运行时，计数器变量设置为起始值。Delphi than检查计数器的值是否小于结束值。如果该值较大，则不执行任何操作（程序执行跳转到for循环代码块后面的代码行）。如果起始值小于结束值，则执行循环体（此处：显示消息框）。最后，Delphi将1添加到计数器并再次启动该过程。

有时倒计时是必要的。downto关键字指定每次执行循环时计数器的值应递减一（不可能指定一个以外的增量/减量）。反向计数的for循环示例。

var j: integer; begin for j := 5 downto 1 do begin ShowMessage('T minus ' + IntToStr(j) + 'seconds') ; end; ShowMessage('For sequence executed!') ; end;

注意：重要的是永远不要在循环中间改变控制变量的值。这样做会导致错误。

嵌套for循环

当您希望在表或网格中填充/显示数据时，在另一个for循环（嵌套循环）中编写for循环非常有用。

var k,j: integer; begin //this double loop is executed 4x4=16 times for k:= 1 to 4 do for j:= 4 downto 1 do ShowMessage('Box: '+ IntToStr(k)+ ',' + IntToStr(j)) ; end;

下一个循环的嵌套规则很简单：在遇到外循环的下一个语句（k计数器）之前，必须先完成内循环（j计数器）。我们可以有三重或四重嵌套循环，甚至更多。

注意：如您所见，一般来说，开始和结束关键字不是严格要求的。如果未使用begin和end，则紧跟for语句之后的语句将被视为循环体。

循环中的for

如果您有Delphi2005或任何更新的版本，您可以在容器上的集合样式迭代中使用“new”for元素。下面的示例演示对字符串表达式的迭代：对于字符串中的每个字符，检查字符是否为“a”或“e”或“i”。

const s = 'About Delphi Programming'; var c : char; begin for c in s do begin if c in ['a','e','i'] then begin // do something end; end; end;

while和repeat循环

有时我们不知道一个循环应该循环多少次。如果我们想重复一次手术，直到达到一个特定的目标，该怎么办？

while-do循环和repeat-until循环之间最重要的区别在于repeat语句的代码总是至少执行一次。

在Delphi中编写重复（和while）类型的循环时的一般模式如下：

repeat begin statements; end; until condition = true while condition = true do begin statements; end;

下面是使用repeat Tour显示5个连续消息框的代码：

var j: integer; begin j:=0; repeat begin j := j + 1; ShowMessage('Box:'+IntToStr(j)) ; end; until j > 5; end;

如您所见，repeat语句在循环结束时计算一个条件（因此，repeat循环肯定至少执行一次）。

另一方面，while语句在循环开始时计算条件。由于测试是在顶部完成的，我们通常需要在处理循环之前确保条件是合理的，如果这不是真的，编译器可能会决定从代码中删除循环。

var j: integer; begin j:=0; while j < 5 do begin j:=j+1; ShowMessage('Box:'+IntToStr(j)) ; end; end;

中断并继续

中断和继续过程可用于控制重复语句流：中断过程使控制流退出for、while或repeat语句，并在loop语句后的下一个语句继续。Continue允许控制流继续执行重复操作的下一个迭代。