浏览代码

* Fix wrong typecast

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

+ 1 - 1
rtl/objpas/classes/reader.inc

@@ -1945,7 +1945,7 @@ begin
      end;
   if ResHandle=NilHandle then 
     exit;     
-  S:=TResourceStream.Create(NilHandle,DeltaName, PChar(RT_RCDATA));
+  S:=TResourceStream.Create(NilHandle,DeltaName, PAnsiChar(RT_RCDATA));
   try
     Proc(S);
   finally