Delphi 2010中泛型类实例的is运算符类型判断为何失效？

核心原因 #

Delphi 2010是泛型特性刚引入的早期版本，其泛型类的运行时类型识别存在固有缺陷：

• 当TDtoMsg<T>在不同编译单元中被实例化时，即便使用相同的TPayloadDto作为类型参数，编译器会为每个单元生成独立的类型标识。这导致调试器显示类名一致，但底层类型句柄存在差异，is运算符无法识别为同一类型。
• 该版本泛型的RTTI支持不完善，is运算符依赖的类型匹配逻辑在跨单元场景下失效。

解决办法 #

1. 统一泛型类的定义与引用
   将TDtoMsg<T>的定义放在一个公共单元中，确保后台线程和主线程所在单元都直接引用该公共单元，避免重复定义或间接引用导致的类型标识分裂。

2. 替换is运算符的判断逻辑
   放弃依赖is运算符，改用更可靠的方式判断类型：

   • 通过RTTI比较类型全称：

     uses
       Rtti;
     
     // 主线程HandleMsg过程中
     if Assigned(Msg) and (GetType(Msg.ClassType).QualifiedName = GetType(TDtoMsg<TPayloadDto>.ClassType).QualifiedName) then
     begin
       // 处理TDtoMsg<TPayloadDto>的业务逻辑
     end;
     

   • 为泛型类添加类型标识方法：
     在TDtoMsg<T>中定义虚拟方法，直接返回对应的DTO类型：

     TDtoMsg<T> = class(TObject)
     private
       FPayload: T;
     public
       property Payload: T read FPayload write FPayload;
       function GetPayloadType: TClass; virtual;
     end;
     
     function TDtoMsg<T>.GetPayloadType: TClass;
     begin
       Result := TClass(T);
     end;
     

     主线程中通过该方法判断：

     if Msg.GetPayloadType = TPayloadDto then
     begin
       // 处理逻辑
     end;
     

3. 升级Delphi版本
   此问题是Delphi 2010泛型实现的历史缺陷，升级到XE及以后的版本后，泛型的运行时类型识别机制得到完善，is运算符可正常识别同一泛型实例化类型。

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