Jelajahi Sumber

Update zgl_timers.pas

Seenkao 2 tahun lalu
induk
melakukan
69c3814c61
1 mengubah file dengan 1 tambahan dan 9 penghapusan
  1. 1 9
      Zengl_SRC/src/zgl_timers.pas

+ 1 - 9
Zengl_SRC/src/zgl_timers.pas

@@ -123,9 +123,6 @@ var
   i: LongWord;
   t: Double;
   newTimer: zglPTimer;
-  {$IFDEF DELPHI7_AND_DOWN}
-  z: Pointer;
-  {$ENDIF}
 begin
   Result := 255;
   if managerTimer.Count >= managerTimer.maxTimers then
@@ -155,12 +152,7 @@ begin
 
   if not Assigned(newTimer) then
   begin
-    {$IFDEF DELPHI7_AND_DOWN}
-    zgl_GetMem(z, SizeOf(zglTTimer));
-    newTimer := z;
-    {$ELSE}
-    zgl_GetMem(newTimer, SizeOf(zglTTimer));
-    {$ENDIF}
+    zgl_GetMem(Pointer(newTimer), SizeOf(zglTTimer));
     managerTimer.Timers[i] := newTimer;
   end;