瀏覽代碼

rtl: clean up

mattias 7 年之前
父節點
當前提交
d99f435093
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/rtl/sysutils.pas

+ 1 - 1
packages/rtl/sysutils.pas

@@ -3686,7 +3686,7 @@ Function TryStrToInt(const S : String; Out res : NativeInt) : Boolean;
 
 
 Var
 Var
   Radix : Integer = 10;
   Radix : Integer = 10;
-  F,N : String;
+  N : String;
   J : JSValue;
   J : JSValue;
 
 
 begin
 begin