Repeat语句
<p>重复执行语句，知道某一状态为真。Until结束。
语法：</p>
<pre><code class="language-delphi">Repeat
&lt;语句&gt;；
Until &lt;条件表达式&gt;;</code></pre>
<p>例1：</p>
<pre><code class="language-delphi">procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I:= 0 ;
Repeat
I:= I + 1 ;
ShowMessage(IntToStr(I));
Until I&gt;5; //会输出数字到6
end;</code></pre>