Ajustes gerais

Author: dliocode

src/core/DataValidator.JSON.Context.pas

@@ -108,25 +108,25 @@ function TDataValidatorJSONContext<T>.Value: IDataValidatorJSONContextValue<T>;
 function TDataValidatorJSONContext<T>.IsOptional: IDataValidatorJSONContextKey<T>;
 begin
   Result := Self;
-  Add(TDataValidatorJSONKeyIsOptional.Create(nil, 'Key is optional!'));
+  Add(TDataValidatorJSONKeyIsOptional.Create(nil, 'Key ${key} is optional!'));
 end;
 
 function TDataValidatorJSONContext<T>.IsOptional(const AExecute: TDataValidatorFuncExecute): IDataValidatorJSONContextKey<T>;
 begin
   Result := Self;
-  Add(TDataValidatorJSONKeyIsOptional.Create(AExecute, 'Key is optional!'));
+  Add(TDataValidatorJSONKeyIsOptional.Create(AExecute, 'Key ${key} is optional!'));
 end;
 
 function TDataValidatorJSONContext<T>.IsRequired: IDataValidatorJSONContextKey<T>;
 begin
   Result := Self;
-  Add(TDataValidatorJSONKeyIsRequired.Create(nil, 'Key is required!'));
+  Add(TDataValidatorJSONKeyIsRequired.Create(nil, 'Key ${key} is required!'));
 end;
 
 function TDataValidatorJSONContext<T>.IsRequired(const AExecute: TDataValidatorFuncExecute): IDataValidatorJSONContextKey<T>;
 begin
   Result := Self;
-  Add(TDataValidatorJSONKeyIsRequired.Create(AExecute, 'Key is required!'));
+  Add(TDataValidatorJSONKeyIsRequired.Create(AExecute, 'Key ${key} is required!'));
 end;
 
 function TDataValidatorJSONContext<T>.WithMessage(const AMessage: string): IDataValidatorJSONContextKey<T>;

src/core/DataValidator.JSON.pas

@@ -71,7 +71,7 @@ implementation
 uses
   DataValidator.Information.Intf, DataValidator.ItemBase.Intf, DataValidator.Context.Intf,
   DataValidator.JSON.Base, DataValidator.Information, DataValidator.ItemBase.Sanitizer, DataValidator.ItemBase,
-  Validator.JSON.Key.IsOptional, Validator.IsOptional;
+  Validator.JSON.Key.IsRequired, Validator.JSON.Key.IsOptional, Validator.IsOptional;
 
 { TDataValidatorJSON }
 
@@ -202,6 +202,9 @@ function TDataValidatorJSON.CheckValueObject(const ACheckAll: Boolean): IDataVal
         LOK := False;
         LInfo.Add(LValidatorResult.Informations as IDataValidatorInformations);
 
+        if (LValidatorItem is TDataValidatorJSONKeyIsRequired) then
+          Break;
+
         if not ACheckAll then
           Break;
       end

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

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