فهرست منبع

[regexUtils] some fixes

Exilon 3 سال پیش
والد
کامیت
d07404b79f
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      Quick.RegEx.Utils.pas

+ 2 - 2
Quick.RegEx.Utils.pas

@@ -92,12 +92,12 @@ implementation
 
 
 class function TRegExUtils.IsNumber(const aValue: string): Boolean;
 class function TRegExUtils.IsNumber(const aValue: string): Boolean;
 begin
 begin
-  Result := TRegEx.IsMatch(aValue,'^\d*(\.\d+)?$');
+  Result := TRegEx.IsMatch(aValue,'^(-|)\d*(\.\d+)?$');
 end;
 end;
 
 
 class function TRegExUtils.IsFloat(const aValue: string): Boolean;
 class function TRegExUtils.IsFloat(const aValue: string): Boolean;
 begin
 begin
-  Result := TRegEx.IsMatch(aValue,'^\d*\.\d+$');
+  Result := TRegEx.IsMatch(aValue,'^(-|)\d*\.\d+$');
 end;
 end;
 
 
 class function TRegExUtils.IsInteger(const aValue: string): Boolean;
 class function TRegExUtils.IsInteger(const aValue: string): Boolean;