project1.dpr

DELPHI 循环语句例子 初级循环语句例子 初级

program Project1;

uses
  Windows,
  Forms;

var
i:integer;
begin

i:=1;
while i<5 do
begin
Application.MessageBox('再次提示','你好',MB_OKCANCEL);
sleep(1);
i:=i+1;

end;
end.