delphi - 是否可以将整个 const block 标记为已弃用？

Question

我知道您可以使用将单个常量标记为已弃用

const
  NotDeprConst1 = 1;
  DeprConst = 2 deprecated;
  NotDeprConst2 = 2;

但是，您可以将整个 const block 标记为已弃用，而不逐一标记常量吗？

我想做这样的事情:

const deprecated
  DeprConst1 = 1;
  DeprConst2 = 2;
  DeprConst3 = 3;

但是这不会编译(编译器将“已弃用”视为标识符)。

或者也许有一个编译器指令:

{$DEPRECATED ON}
const
  DeprConst1 = 1;
  DeprConst2 = 2;
  DeprConst3 = 3;
{$DEPRECATED OFF}

Embarcadero 的提示指令 documentation说你可以用提示标记任何声明(例如已弃用)，但没有详细说明。

Answer 1

正如您所发现的，const block 不能一次性被弃用。也没有像您推测的那样的编译器指令。然而，documentation你指的是说

When a hint directive appears in a unit declaration, it means that the hint applies to everything in the unit. For example, the Windows 3.1 style OleAuto.pas unit on Windows is completely deprecated. Any reference to that unit or any symbol in that unit produces a deprecation message.

通过将已弃用的 const 声明移至新单元并将该单元标记为已弃用，您可以一次性弃用大量声明。然后，当然，您仍然需要修复单元引用。是否省力由你决定。