同样如何用delphi编写一个无限循环的小程序?

发布网友 发布时间：2022-04-23 06:57

我来回答

共4个回答

热心网友 时间：2022-06-17 03:13

更简单点的:
Procere .....
begin
while 1>0 do
begin
//事务处理
end;
end;

热心网友 时间：2022-06-17 03:13

举个简单的例子吧：
var
i:integer;
begin
i:=0;
while i<1000 do
begin
i:=i+1;
if i=999 then
i:=0;
end;
end;

热心网友 时间：2022-06-17 03:14

var
i:integer
begin
i:=1;
while i>0 do
begin
//你要写的程序；
end;
end;

热心网友 时间：2022-06-17 03:14

var
i:integer;
begin
i:=0;
while i<1000 do
begin
i:=i+1;
if i=999 then
i:=0;
end;
end;