Procházet zdrojové kódy

* Fix wince/nativent

Michaël Van Canneyt před 1 rokem
rodič
revize
d809b4ba98
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      rtl/objpas/classes/classes.inc

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

@@ -1670,7 +1670,7 @@ begin
     H:=System.FindResource(HInst,ResName,RT_RCDATA);
     if PtrInt(H)<>0 then
       try
-        S:=TResourceStream.Create(HInst,ResName,PChar(RT_RCDATA));
+        S:=TResourceStream.Create(HInst,ResName,RT_RCDATA);
         Proc(S);
         Exit;
       finally