Ajustes gerais

Correção da validação de data hora!

Author: dliocode

src/sanitializators/Sanitizer.Custom.pas

@@ -57,11 +57,13 @@ constructor TSanitizerCustom.Create(const AExecute: TDataValidatorCustomSanitize
 
 function TSanitizerCustom.Sanitize: TValue;
 var
-  LValue: TValue;
+  LValue: string;
 begin
+  LValue := GetValueAsString;
+
   if Assigned(FExecute) then
   begin
-    LValue := FExecute(GetValueAsString);
+    LValue := FExecute(LValue);
     SetValueAdapter(LValue);
   end;
 

src/sanitializators/Sanitizer.OnlyNumbers.pas

@@ -56,9 +56,11 @@ constructor TSanitizerOnlyNumbers.Create;
 
 function TSanitizerOnlyNumbers.Sanitize: TValue;
 var
-  LValue: TValue;
+  LValue: string;
 begin
-  LValue := TRegEx.Replace(GetValueAsString, '\D', '');
+  LValue := GetValueAsString;
+
+  LValue := TRegEx.Replace(LValue, '\D', '');
 
   SetValueAdapter(LValue);
 

src/sanitializators/Sanitizer.RemoveAccents.pas

@@ -59,7 +59,9 @@ function TSanitizerRemoveAccents.Sanitize: TValue;
 var
   LValue: string;
 begin
-  LValue := string(ASCIIString(GetValueAsString));
+  LValue := GetValueAsString;
+
+  LValue := string(ASCIIString(LValue));
 
   SetValueAdapter(LValue);
 

src/sanitializators/Sanitizer.Replace.pas

@@ -62,7 +62,9 @@ function TSanitizerReplace.Sanitize: TValue;
 var
   LValue: string;
 begin
-  LValue := GetValueAsString.Replace(FOldValue, FNewValue);
+  LValue := GetValueAsString;
+
+  LValue := StringReplace(LValue, FOldValue, FNewValue, [rfReplaceAll]);
 
   SetValueAdapter(LValue);
 

src/sanitializators/Sanitizer.ToDate.pas

@@ -59,19 +59,23 @@ constructor TSanitizerToDate.Create(const AJSONISO8601ReturnUTC: Boolean);
 function TSanitizerToDate.Sanitize: TValue;
 var
   LValue: string;
+  LValueSanitize: string;
   R: Boolean;
   LDate: TDateTime;
 begin
   LValue := Trim(GetValueAsString);
-  LValue := LValue.Replace('\', '');
+  LValueSanitize := StringReplace(LValue, '\', '', [rfReplaceAll]);
 
-  R := TryStrToDate(LValue, LDate);
+  R := TryStrToDate(LValueSanitize, LDate);
 
   if not R then
-    R := TryISO8601ToDate(LValue, LDate, FJSONISO8601ReturnUTC);
+    R := TryISO8601ToDate(LValueSanitize, LDate, FJSONISO8601ReturnUTC);
 
   if R then
-    SetValueAdapter(TValue.From<TDate>(LDate));
+    if LValue <> LValueSanitize then
+      SetValueAdapter(LValueSanitize)
+    else
+      SetValueAdapter(TValue.From<TDate>(LDate));
 
   Result := FValue;
 end;

src/sanitializators/Sanitizer.ToDateTime.pas

@@ -59,19 +59,23 @@ constructor TSanitizerToDateTime.Create(const AJSONISO8601ReturnUTC: Boolean);
 function TSanitizerToDateTime.Sanitize: TValue;
 var
   LValue: string;
+  LValueSanitize: string;
   R: Boolean;
   LDateTime: TDateTime;
 begin
   LValue := Trim(GetValueAsString);
-  LValue := LValue.Replace('\', '');
+  LValueSanitize := StringReplace(LValue, '\', '', [rfReplaceAll]);
 
-  R := TryStrToDateTime(LValue, LDateTime);
+  R := TryStrToDateTime(LValueSanitize, LDateTime);
 
   if not R then
-    R := TryISO8601ToDate(LValue, LDateTime, FJSONISO8601ReturnUTC);
+    R := TryISO8601ToDate(LValueSanitize, LDateTime, FJSONISO8601ReturnUTC);
 
   if R then
-    SetValueAdapter(TValue.From<TDateTime>(LDateTime));
+    if LValue <> LValueSanitize then
+      SetValueAdapter(LValueSanitize)
+    else
+      SetValueAdapter(TValue.From<TDate>(LDateTime));
 
   Result := FValue;
 end;

src/sanitializators/Sanitizer.ToMD5.pas

@@ -56,9 +56,10 @@ constructor TSanitizerToMD5.Create;
 
 function TSanitizerToMD5.Sanitize: TValue;
 var
-  LValue: TValue;
+  LValue: string;
 begin
-  LValue := THashMD5.GetHashString(GetValueAsString);
+  LValue := GetValueAsString;
+  LValue := THashMD5.GetHashString(LValue);
 
   SetValueAdapter(LValue);
 

src/validators/Validator.IsDate.pas

@@ -69,7 +69,7 @@ function TValidatorIsDate.Check: IDataValidatorResult;
 
   if not Trim(LValue).IsEmpty then
   begin
-    LValue := LValue.Replace('\', '');
+    LValue := StringReplace(LValue, '\', '', [rfReplaceAll]);
 
     R := TryStrToDate(LValue, LDate);
 

src/validators/Validator.IsDateBetween.pas

@@ -73,7 +73,7 @@ function TValidatorIsDateBetween.Check: IDataValidatorResult;
 
   if not Trim(LValue).IsEmpty then
   begin
-    LValue := LValue.Replace('\', '');
+    LValue := StringReplace(LValue, '\', '', [rfReplaceAll]);
 
     R := TryStrToDate(LValue, LDate);
 

src/validators/Validator.IsDateEquals.pas

@@ -71,7 +71,7 @@ function TValidatorIsDateEquals.Check: IDataValidatorResult;
 
   if not Trim(LValue).IsEmpty then
   begin
-    LValue := LValue.Replace('\', '');
+    LValue := StringReplace(LValue, '\', '', [rfReplaceAll]);
 
     R := TryStrToDate(LValue, LDate);