while 循环语句

//while循环语句
{
while True do
begin
...
end;
}


procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := 0;
while I > 100 do
begin
I := I + Random (100);
Listbox1.Items.Add ('Random Number: ' + IntToStr (I));
end;
end;




posted @   XE2011  阅读(94)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示