我试图向另一个人展示一些代码,当我巧妙地认识到,当没有使用声明的变量时,有编译器提示消息,当没有使用声明的常量时没有提示或消息.以下代码是一个例子：
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中的所有常量.想象一下,如果所有这些可能的常量都引发了编译器提示.
本质上,当您获得编译器提示未使用的变量时,它通常意味着编码错误(或者只是您忘记删除的东西),而未使用的常量通常意味着只是未实现的功能.