Ocaml，模块图形 - 排队按键

Question

我正在用 Ocaml 编写一个简单的游戏，使用它的模块 Graphics 来执行绘图和交互。我遇到了 Graphics.read_key() 将所有按键排队等待以后使用的问题，因此当我按住一个键一段时间后，许多“按键”被放入内存。释放后 Action 仍然执行。

有没有办法从这个队列中删除条目，或者干脆(甚至更好)根本不将它们放入队列？

Answer 1

这可能不是最漂亮的解决方案，但您可以使用 key_pressed。如果按键可用，此函数将返回 true。因此，一旦您使用 read_key 读取了按键，您就可以通过调用 read_key 刷新队列，直到 key_pressed 为 false 并忽略结果。

(* flush_kp : unit -> unit *)
let flush_kp () = while key_pressed () do
                      let c = read_key ()
                      in ()
                  done ;;

希望这对您有所帮助。