网站 › 『编程语言讨论求助区』 › 一个按钮单步一下没问题，加个循环就卡死了

冥界3大法王 发表于 2023-5-15 14:27

一个按钮单步一下没问题，加个循环就卡死了

procedure TForm1.Button3Click(Sender: TObject);
begin
repeat
    if not DirectoryExists('c:\cc') then
    begin
    DbgCmdExec('StepOver');   //只这一句没问题的
      sleep(1000);
    end;
until DirectoryExists('c:\cc');
end;



https://static.52pojie.cn/static/image/hrline/2.gif
换一种循环体，仍旧卡死：

      while not DirectoryExists(Edit1.Text) do // 如果文件夹不存在则执行选择的StepOver或StepIN
      begin
      // DbgCmdExec(PAnsiChar(AnsiString(ComboBox1.Text)));
      DbgCmdExec('StepOver');
      sleep(StrToInt(间隔时间.Text));
      end;

冥界3大法王 发表于 2023-5-15 14:49

明白了，扔了一个timer就工作了。

oktongguo 发表于 2023-5-15 14:50

如果文件夹一直不存在，就在循环里出不来。是不是创建文件夹的部分出了问题？

冥界3大法王 发表于 2023-5-15 14:53

常识性问题该打。{:301_1004:}

查看完整版本: 一个按钮单步一下没问题，加个循环就卡死了