Delphi:注销应用程序时表单无法释放时该怎么办

Question

我正在使用 Delphi (7-2010) 并试图找出一种在释放应用程序表单时处理异常的好方法。应用程序有多个由 Application 对象拥有的表单。当用户注销时，我需要释放所有现有表单，以便不维护用户状态，然后为下一个登录的用户显示登录对话框。

有时，尝试释放其中一个表单时会发生异常。这会将表单留在内存中，但处于未知/不可用状态，因此我无法为下一个用户重新使用该表单，而且我也无法将其从内存中删除。因为表单归应用程序所有，所以我无法直接为下一个用户创建新版本的表单，因为这会导致 VCL 出现“名为 MyForm 的组件已存在”错误，而且我有点不喜欢无论如何，在内存中保留旧的表单实例。

我想看看其他人在这种情况下会做什么。以下是一些想法:

• 当您遇到这些异常时，请终止应用程序，这样您就一定能把一切都清清楚楚。无论如何，用户都会退出，因此他们可能已经完成了该应用程序的操作。如果需要，可以选择重新启动应用程序。
• 使表单不属于应用程序，以便您可以创建它们的多个实例，并确保至少隐藏任何不可释放/损坏的表单。
• 动态生成每个表单的名称，或将其设置为空白，这样就不会出现重复的名称，并且不会出现 VCL 中的“已存在”错误。
• 将应用程序编写得足够好，以便在释放对象时不会出现异常(不现实 - 我需要一个针对意外错误的应急计划)。

<小时/> 我的解决方案是上述最初的想法之一。我在释放表单的循环周围添加了一个 try/except block ，如果出现异常，我会向用户显示错误消息而不引发它，然后调用 ExitProcess(0) 立即终止应用程序。

Answer 1

确实没有好的方法来处理析构函数中引发的异常。我不会认为期望它们永远不会被引发是“不现实的”，因为析构函数不应该做任何可能导致异常的事情。如果您执行除了释放内存或其他清理之外的任何操作(释放句柄、关闭连接等)，那么您几乎肯定做错了什么。

顺便说一句，是什么导致了异常？您能够一致地重现该错误吗？最好的做法就是修复错误。数量不应太多。