project1.dpr

来自「DELPHI 循环语句例子 初级循环语句例子 初级」· DPR 代码 · 共 21 行

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.