浏览代码

* Fix NilValue

Michaël Van Canneyt 2 年之前
父节点
当前提交
96921aaba3
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      rtl/inc/objpas.inc

+ 1 - 0
rtl/inc/objpas.inc

@@ -1252,6 +1252,7 @@ end;
 class function TPtrWrapper.GetNilValue: TPtrWrapper; inline; static;
 class function TPtrWrapper.GetNilValue: TPtrWrapper; inline; static;
 
 
 begin
 begin
+  Result.Value:=Nil;
 end;
 end;
 
 
 constructor TPtrWrapper.Create(AValue: PtrInt); overload;
 constructor TPtrWrapper.Create(AValue: PtrInt); overload;