使用某些 RTL/VCL 或 Delphi 语言元素时如何生成警告

Question

我想将某些元素、函数和类标记为已弃用，以便编译器生成警告。

我的目的是使源代码的某些方面现代化。尤其是当关注更多平台独立性时。

例如，通过将 WinAPI 和特殊 Windows 类（例如 TRegistry）标记为“已弃用”，它们可以被替换或至少移动并使其独立于平台。 至于语言元素，我特别想弃用 with、label 和 goto 关键字。

我已经尝试通过在单元文件的底部插入 {$IF DECLARED(...)}{$MESSAGE WARN...} 来生成函数和类的警告，但这将核心单元显然失败了......

有人知道有一个工具可以做到这一点吗？

Answer 1

您无法弃用 with、goto 等关键字。如果您想使代码现代化，只需将这些单词作为整个单词查找，如果找到它们，更改您的代码。

Win.* 核心单元中的标识符也是如此。您可以修改 RTL 并重新编译它，也可以从 此处并指定所有例程和类型平台，或者只是单位。我建议不要重新编译 RTL。你如何使用 JEDI 的单位，取决于你。

除了 Win.* 单元之外，大多数 RTL 实际上都是独立于平台的，甚至 with 和 goto 也可以在 64 位或 Mac 上工作。

我的建议：找到一种更好的方法来使代码现代化。不要试图否定 RTL 提供的功能。

Answer 2

作为警告的替代方案，您可以使用一个简单的应用程序来解析所有源代码并报告这些构造的使用情况。

通过一些调查，我相信您可以找到一些静态代码分析工具，它们甚至可以更进一步并提醒您某些代码气味。 （例如，不正确地使用 try..finally，吞掉异常）。

将应用程序或静态代码分析器作为构建过程中的一个步骤插入，您就会收到相当于编译时警告的信息。

Answer 3

无论您多么讨厌 with、label 和 goto 等核心语言功能，您都无法对其发出警告。
事实上，这些是保留字，您应该已经注意到这一点。

这些功能不存在于任何单元中，它们是 Pascal 语言的一个功能（自诞生以来一直如此）并深入编译器中。

您甚至无法重新定义它们，因为它们是保留字。

Answer 4

首先，出于其他人所说的所有原因，我不建议您走您想要走的路线。但是，如果您觉得必须这样做，那么这里有一个方法可以完成您所要求的一些操作。

您可以为项目中的平台特定代码打开警告。至于其他你认为已弃用但实际上并未被 Delphi 弃用的东西，我有一个需要一些工作的解决方案。

创建一个单元来重新声明您想要弃用的类，如下所示：

unit PleaseDeprecateThisStuff;

uses
  Registry;

interface

type
  TRegistry = class (Registry.TRegistry)
  end deprecated;

implementation

end;

EDIT2：我觉得我应该进一步解释源代码。对于每个类，例如 TRegistry 示例，您需要在此单元中包含它的同名版本，并使其与另一个单元中的版本相同。确保将该单元包含在该单元的 use 子句中（废话），并在类型部分中添加类引用前缀，如 Registry.TRegistry 的示例。

包含您想要弃用的所有内容，然后将此单元包含在您想要“保护”的每个单元的接口 uses 子句的末尾处。

编辑：这个技巧只会对类、变量和常量有帮助......而不是保留字。

让我再次声明这是一个可怕的想法。 ：p