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

Question

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

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

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

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

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

Answer 1

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

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

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

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