delphi - 自定义定义的范围

Question

我有一个单元，我想在两个不同的程序中使用它，以区分我想定义一个符号，然后在单元中检查它。

在我的项目的 DPR 中；

program Project1;

{$Define MYDEF}  

uses
  Forms,
  ...

在我的 Form1 文件中，我有

procedure TForm1.FormCreate(Sender: TObject);
begin
 {$IfDef MYDEF}
   ShowMessage('boo');
 {$EndIf}
end;

但是我看不到嘘声！定义是否仅限于某个范围？

score 3 · Accepted Answer

在您的项目下，将定义添加到“条件定义”

score 2 · Accepted Answer

定义是文件本地的。如果您希望它们是全局的，请将它们添加到项目选项中。

score 1 · Accepted Answer

另一种解决方案是拥有一个包含文件并将其包含在所有单元和 .dpr 中。

此解决方案更独立于 delphi 版本。

如果您的定义与 Delphi 版本控制有关，请查看http://www.stack.nl/~marcov/porting.pdf了解如何在定义中设置系统结构的一些技巧。

3 回答 3