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

发布时间：2020-12-15 04:01:32 所属栏目：大数据来源：网络整理

导读：我试图向另一个人展示一些代码,当我巧妙地认识到,当没有使用声明的变量时,有编译器提示消息,当没有使用声明的常量时没有提示或消息.以下代码是一个例子： program Project1;{$APPTYPE CONSOLE}uses SysUtils,Math;const intM: Integer = 1000;var valorDoubl

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

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.

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

解决方法

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

procedure DoSomething(const Value: Integer); stdcall;

现在假设您已经定义了多个常量来表示此函数可能识别的所有可能的整数值…

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

现在让我们假设当你实现这个功能时,你只需要第一个CON_ONE而不是另外两个.你真的想要暗示每一个吗？

更现实的例子是像Delphi附带的HKEY_LOCAL_MACHINE,HKEY_CURRENT_USER等(与Windows API调用相关联).只需看看Windows.pas中的所有常量.想象一下,如果所有这些可能的常量都引发了编译器提示.

本质上,当您获得编译器提示未使用的变量时,它通常意味着编码错误(或者只是您忘记删除的东西),而未使用的常量通常意味着只是未实现的功能.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!