Ajustes nos validadores

Correção nos validadores
 - IsOptional
 - IsRequired

Author: dliocode

src/validators/Validator.IsOptional.pas

@@ -65,7 +65,7 @@ function TValidatorIsOptional.Check: IDataValidatorResult;
   LIsOptional: Boolean;
 begin
   LValue := GetValueAsString;
-  R := True;
+  R := False;
   LIsOptional := True;
 
   if Assigned(FOptionalExecute) then

src/validators/Validator.JSON.Key.IsOptional.pas

@@ -66,7 +66,7 @@ function TDataValidatorJSONKeyIsOptional.Check: IDataValidatorResult;
   LJSONPair: TJSONPair;
 begin
   LValue := GetValueAsString;
-  R := True;
+  R := False;
   LIsOptional := True;
 
   if Assigned(FFuncExecute) then

src/validators/Validator.JSON.Key.IsRequired.pas

@@ -66,7 +66,7 @@ function TDataValidatorJSONKeyIsRequired.Check: IDataValidatorResult;
   LJSONPair: TJSONPair;
 begin
   LValue := GetValueAsString;
-  R := True;
+  R := False;
   LIsRequired := True;
 
   if Assigned(FFuncExecute) then