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;

通过 Wiz 发布