Small improvement

danieleteti · Oct 16, 2020 · 033c66d · 033c66d · danieleteti · Oct 16, 2020
1 parent 6b2e1c1
commit 033c66d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sources/MVCFramework.Commons.pas b/sources/MVCFramework.Commons.pas
@@ -1441,7 +1441,7 @@ function CamelCase(const Value: string; const MakeFirstUpperToo: Boolean): strin
 function SnakeCase(const Value: string): string;
 begin
   // Convert multiple underlines to just one
-  Result := TRegex.Replace(Value, '([_][_{1}]+)', '_');
+  Result := TRegex.Replace(Value, '([_][_]+)', '_');
   // Adds underscores between a lowercase character and an uppercase character
   Result := TRegex.Replace(Result, '([a-z0-9])([A-Z])', '\1_\2');
   Result := Result.ToLower;