如何禁用/隐藏Delphi W1032警告？（导出包threadvar无法在包外使用）

问题背景 #

我需要完全禁用/移除W1032警告，因为我的包是完整的RAD Server模块，这些threadvar绝不会在包外被使用。我曾尝试在threadvar定义处使用{$WARNINGS OFF}，但并未消除该警告。

解决方案 #

W1032警告的具体内容是**"Thread variable '%s' is declared in the interface section of a package"**，针对这个特定警告，有几种更精准的处理方式：

1. 针对单个threadvar单独关闭W1032警告 #

Delphi支持单独控制特定警告的开关，替换原来的{$WARNINGS OFF}为针对W1032的指令即可，这样不会影响其他警告：

unit CustomSession;

interface

uses
  System.Classes,
  System.SysUtils,
  EMS.ResourceAPI;

type
  TKpSession = record
    UserId: string;
    UserName: string;
    SessionToken: string;
    class procedure ValidateRequest(const AContext: TEndpointContext); static;
  end;

{$WARN W1032 OFF} // 单独关闭W1032警告
threadvar
  KpSession: TKpSession;
{$WARN W1032 ON} // 恢复该警告的默认状态

resourcestring
  rsNotLoggedIn = 'You need to be logged in to access %s - %s';

implementation

uses
  CustomLocalize;

class procedure TKpSession.ValidateRequest(const AContext: TEndpointContext);
var
  UserId, Resource, Endpoint: string;
begin
  Resource := AContext.Request.Resource;
  Endpoint := AContext.EndpointName;
  if Assigned(AContext.User) then
    UserId := AContext.User.UserName;

  if UserId.Trim <> '' then
  begin
   KpSession.UserId := UserId;
   KpSession.UserName := UserId; // Retrieve username from the DDBB ?
   KpSession.SessionToken := AContext.User.SessionToken;
   // to-do: Check Permissions for the User on this Request/Endpoint.
  end
  else
  begin
    raise Exception.CreateFmt(_(rsNotLoggedIn), [Resource, Endpoint]);
  end;
end;

end.

2. 项目层面全局禁用W1032警告 #

如果整个项目中的这类threadvar都不需要触发该警告，可以在IDE中全局设置：

• 打开项目选项（Project -> Options）
• 切换到Compiler选项卡，找到Warnings列表
• 找到编号为W1032的警告（描述为"Thread variable '%s' is declared in the interface section of a package"）
• 将其状态改为Ignore（忽略）

3. 调整threadvar的声明位置（可选） #

如果这个threadvar仅在当前单元内部使用，可以将其移到implementation部分，这样就不会触发W1032警告。不过从你的代码来看，TKpSession的类方法需要访问这个变量，所以如果移到implementation，类方法会无法访问，这种方式仅适用于变量不需要在接口中暴露的场景。

内容的提问来源于stack exchange，提问作者Marc Guillot