Question

我试图向另一个人展示一些代码，当我巧妙地认识到，当没有使用声明的变量时，有编译器提示消息，当没有使用声明的常量时没有提示或消息。以下代码是一个例子：

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

const
  intM: Integer = 1000;

var
  valorDouble, notusedvar: Double;

begin
  try
    valorDouble   := 0.001;
    Writeln('--- Codigo atual --');
    Writeln('Double   -> ', Trunc(valorDouble   * 1000));
    Writeln('--- Correcao?? --');
    Writeln('Trunc(1.0000001) -> ', Trunc(1.0000001));
    Writeln('Trunc(0.001 * 1000.0)   -> ', Trunc(0.001 * 1000.0));
    Writeln('Trunc(0.0010 * 1000.0)  -> ', Trunc(0.0010 * 1000.0));
    Writeln('Trunc(0.00100 * 1000.0) -> ', Trunc(0.00100 * 1000.0));

    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

为什么没有关于未使用的常量的提示？关于这种差异有任何合理的解释吗？

Answer 1

让我们直接跳到一个例子中。让我们假设您正在编写一个带有1个导出函数的DLL。其中一个函数的参数是整数...

procedure DoSomething(const Value: Integer); stdcall;

现在让我们说你已经定义了多个常量来表示这个函数可能识别的所有可能的整数值......

const
  CON_ONE = 1;
  CON_TWO = 2;
  CON_THREE = 3;
  //Maybe hundreds

现在让我们说当你实现这个功能时，你只需要第一个CON_ONE而不是其他两个。你真的想要暗示每一个吗？

更现实的例子是像HKEY_LOCAL_MACHINE，HKEY_CURRENT_USER之类的东西，它们附带Delphi（与Windows API调用相关联）。只需看看Windows.pas中的所有常量。想象一下，如果所有这些可能的常量都引发了编译器提示。

基本上，当你得到一个未使用变量的编译器提示时，它通常意味着编码错误（或者只是你忘记删除的东西），而未使用的常量通常意味着只是一个未实现的功能。

Answer 2

有趣的问题。

对于在单元的接口部分中声明的常量（和变量），很容易理解为什么未使用的样本不会触发编译器提示：接口部分中的所有内容都发布到外部世界以供单元使用无法察觉。作为一个单元的程序员，您提供/呈现您的单元的用户可能在其代码中使用的可能值，尽管该单元不一定必须在其实现中使用它们。例如，请参阅Consts.pas，其唯一目的是为了在其他地方使用接口常量（ok，resourcestrings）。

对于在单元的实现部分中声明的常量，以及 - 如代码示例中所示 - 显然也是对于在程序文件中声明的常量，对我来说似乎没有明确的理由说明为什么没有未使用的常量的提示

而作为安可，实现部分中初始化变量不触发提示的原因是因为它们实际上是变量声明和赋值语句的串联，因此从编译器的角度使用初始化变量。 / p>

为什么没有使用常量时没有警告或提示？

2 个答案: