While语句
<p>布尔表达式在循环开始进行判断，为真循环执行，否则退出循环。
语法：</p>
<pre><code class="language-delphi">While &lt;条件表达式&gt;
begin
&lt;语句&gt;
end；</code></pre>
<p>例1：</p>
<pre><code class="language-delphi">procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I:=0;
While (I&lt;5)
//ShowMessage(IntToStr(I));
Memo1.Lines.Add(IntToStr(I));
Inc(I);
end; </code></pre>