Delphi 7 - 创建自定义警告

Question

我正在使用Delphi 7，我想创建一个自定义的警告信息（将在编译时显示），以便我可以警告其他程序员进行某些修改。我已经在互联网上搜索过，但没有找到任何相关的内容。

欢迎提供其他解决方案，只要其他程序员在编译/构建源代码时被警告。

- RBA

Answer 1

在D2007中，你可以这样写：

{$MESSAGE 'Hello'}

或者

{$MESSAGE ERROR 'Hello'}

- 请参阅文档。这个从D6开始就可用（信息来自Sertac Akyuz）。

- Uli Gerhardt

---

似乎自Delphi 6以来就已经可用。 - Sertac Akyuz

@Sertac - 不幸的是，我从没注意过这一点，尽管我们的主要项目仍在使用 Delphi 6 进行开发。 - splash

Delphi 4有可用的方法吗？ - Wolf

@Wolf 或许你可以用一些未声明的变量，比如 Some_error_message; 来替换 {$MESSAGE ERROR Some error message}，这样就不会编译了。至于警告/提示，我没有什么想法。 - Uli Gerhardt

Answer 2

我们也使用 $MESSAGE，但使用 WARN 指令。通常用于提醒开发人员不要将已经包含在其他需要作为包使用的 BPL 中的单元直接编译到他们的 exe/bpl 中。这里是 D2005。

{$MESSAGE WARN 'File: FOOUNIT contained in PACKAGE:-> FOOLIB'}

- Chris Thornton

Answer 3

有时候我也希望存在这样的功能。不幸的是，我不知道任何能够满足我的要求的解决方案。

我能够想到的最好的方法是创建一个单独的消息文件，并由IDE专家进行同步。您可以使用此专家向该文件添加新消息，如下所示：

需要新的DevExpress组件（版本123）

然后将其提交到VCS存储库中。其他开发人员更新其本地工作副本后，IDE专家会将消息文件与本地副本进行比较和同步，并显示新消息。

- splash

---

你可以在一个单元中添加类似以下的内容：{$IF dxBuildNumber < 66}{$MESSAGE ERROR 'DX 版本必须 >= 66'}{$IFEND} - Uli Gerhardt

再次感谢@Ulrich！那是一个好提示！我不知道$IF的存在。我脑海中只有$IFDEF。 - splash

我经常看到一些第三方代码，本应该使用$IF来判断条件，但是却大量使用$IFDEF，原因是他们想要支持旧版本的Delphi。结果导致阅读代码的人认为这是唯一的方法！ - Gerry Coll