小编Ger*_*dAA的帖子

我试图做一个无限循环,但我希望循环每30秒运行一次.循环将开始.一堆if语句发生,一些信息将被更改.然后循环必须暂停30秒,然后循环将再次开始.这必须永远持续下去.

我正在寻找一种方法来暂停循环30秒然后继续.任何好的建议将不胜感激.

编辑#1

程序根据日期和时间显示"特殊"信息:随着时间的变化,信息发生变化:06:00 =数学; 07:30 =生物学.该程序还会显示下一课开始前的剩余时间.因此,程序需要连续运行以更新时间,以便它确切地知道它是什么时间以及在下一个时间段之前剩下多少时间.

编辑#2

我想放入一个"刷新",以便脚本我希望在设定的时间间隔内调用脚本,这样它就不会经常运行并吃掉内存.此间隔必须为30秒.

我的代码有效,但一直给我访问冲突错误."模块中地址00440690B的访问冲突.读取地址01F62C42." 怎么了？我怎样才能让它发挥作用？第二个循环什么都不做.请帮忙!

Var
   num1, num2, k : Integer;
   LL : string;

begin

LL := '       ';
num1 := 4;
num2 := 4;
  for k := 1 to 7 do
    begin
      LL[num1] := '*';
      LL[num2] := '*';
      redt.Lines.Add(LL);
      num1 := num1 +1;
      num2 := num2 -1;
    end;
  for k := 1 to 3 do
redt.Lines.Add('   *   ');

end;