瀏覽代碼

* Merging revisions 165 from trunk:
------------------------------------------------------------------------
r165 | michael | 2018-10-17 09:49:17 +0200 (Wed, 17 Oct 2018) | 1 line

* Fix int not working on IE
------------------------------------------------------------------------

michael 6 年之前
父節點
當前提交
9cf938f788
共有 1 個文件被更改,包括 2 次插入3 次删除
  1. 2 3
      packages/rtl/system.pas

+ 2 - 3
packages/rtl/system.pas

@@ -454,10 +454,9 @@ end;
 
 function Int(const A: Double): double;
 
-  function FTrunc(const A: Double): double; overload; external name 'Math.trunc';
-
 begin
-  Result:=FTrunc(A);
+  // trunc contains fix for missing Math.trunc in IE
+  Result:=Trunc(A);
 end;
 
 function Number(S: String): Double; external name 'Number';