Ajustes gerais

dliocode · Oct 8, 2021 · 10a0447 · 10a0447
1 parent a6eb02e
commit 10a0447
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/core/DataValidator.Context.pas b/src/core/DataValidator.Context.pas
@@ -307,7 +307,7 @@ procedure TDataValidatorContext<T>.AfterConstruction;
 destructor TDataValidatorContext<T>.Destroy;
 begin
   FList.Clear;
-  FList.DisposeOf;
+  FList.Free;
 
   inherited;
 end;

diff --git a/src/core/DataValidator.JSON.pas b/src/core/DataValidator.JSON.pas
@@ -96,7 +96,7 @@ constructor TDataValidatorJSON.Create(const AJSON: TJSONArray);
 destructor TDataValidatorJSON.Destroy;
 begin
   FList.Clear;
-  FList.DisposeOf;
+  FList.Free;
 
   inherited;
 end;
@@ -342,6 +342,9 @@ function TDataValidatorJSON.CheckItemValueObject(const AName: string; const AChe
       LOK := False;
       LInfo.Add(LValidatorResult.Informations as IDataValidatorInformations);
 
+      if (LValidatorItem is TDataValidatorJSONKeyIsRequired) then
+        Break;
+
       if not ACheckAll then
         Break;
     end
@@ -406,6 +409,9 @@ function TDataValidatorJSON.CheckItemValueArray(const AName: string; const AChec
         LOK := False;
         LInfo.Add(LValidatorResult.Informations as IDataValidatorInformations);
 
+        if (LValidatorItem is TDataValidatorJSONKeyIsRequired) then
+          Break;
+
         if not ACheckAll then
           Break;
       end