Browse Source

* Fix wrong typecast

Michaël Van Canneyt 1 year ago
parent
commit
b9ef7416f0
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/classes/reader.inc

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

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