delphi - 我必须使用哪些选项来取消 Delphi 应用程序中的一长串操作？

Question

为了简单起见，我的 Delphi XE 应用程序包含负责根据某些条件生成文件的对象:一个对象可以生成文本文件，其他对象(继承自前者)可以生成 XML 或 HTML 文件等等on...它们都有一个共同的祖先，但不在线程上运行!

我现在正在尝试添加一种方法，以便在用户点击取消按钮时取消整个生成过程。问题是我没有任何地方可以让它发挥作用。最基本的操作是在整个生成过程中到处添加大量 if user_canceled thenhalt_process 但我觉得这不是最佳解决方案。

我的问题是知道是否有一些更聪明的方法可以做到这一点？或者您对重构我的代码有什么建议，以便将来需要添加更多生成代码(因此取消测试)时可以更好地集成此添加？

Answer 1

如果需要取消进程，您将需要添加手动检查，因为无法取消它并使程序保持有效状态。编译器/程序只是不知道哪些操作是原子的，哪些不在应用程序逻辑中。

例如

OpenFile(...);  //<- if program halts anywhere before CloseFile you have the file locked
...
CloseFile;

最佳解决方案很大程度上取决于您现有的设计。在排队操作 A -> B -> C -> D 的简单情况下，如果将其包装到一个线程中并在操作之间添加 if Termulated then Exit; ，它就会起作用(当然，正确释放临时对象(如果有)。