如何暂停程序执行直到按下按钮？

Question

我有一个算法.我想在某个时候暂停它,然后在用户按下按钮后继续.我怎么做？我浏览了文档,搜索了互联网,但还没有运气.

这是一个相关的代码片段:

      if A[i]>A[i+1]
        then
          begin
            Zameni(i,i+1);
            done:=true;

            sleep(pauza);

            br:=br+1;
          end;

现在,我使用睡眠(pauza只是一个常数,意味着在塞尔维亚暂停).理想情况下,我想用一个可以间隔睡眠的程序替换该行,或者根据配置设置等待按下按钮.

编辑1:啊,是的,如果它不明显 - 它是一个图形应用程序,而不是控制台,所以拍打"readln"将无法正常工作(遗憾).

Answer 1

这不是你如何做事件驱动的编程.您应该处理暂停点并在此时结束您的功能.在按钮按下事件处理程序中,然后执行剩余的处理 - 这只会在用户按下按钮时发生.您可以从OnTimer事件调用相同的代码,以在给定的peruiod之后继续处理.