・うっとおしいデバッグ用のメッセージを削除。

[gikonavigoeson/gikonavi.git] / MonaUtils.pas

diff --git a/MonaUtils.pas b/MonaUtils.pas
index d924b89..213d537 100644 (file)
--- a/MonaUtils.pas
+++ b/MonaUtils.pas
@@ -102,7 +102,7 @@ uses
   {$IFDEF MSWINDOWS}
     Windows, ShellApi, Forms,
   {$ENDIF}
-  Classes, SysUtils, HTTPApp, DateUtils;
+  Classes, SysUtils, {HTTPApp,} YofUtils, DateUtils;
 
 //
 //  \97á\8aO
@@ -1385,12 +1385,15 @@ begin
 end;
 
 function IsNumeric(s: string): boolean;
-var
-  e: integer;
-  v: integer;
 begin
-  Val(s, v, e);
-  Result := e = 0;
+  try
+       StrToInt(s);
+       Result := true;
+  except
+    on EConvertError do
+       Result := false;
+  end;
+
 end;
 
 procedure testIsNumeric;