TJSONSchemaValidator

type TJSONSchemaValidator = class(TComponent)

protected

  procedure PushPath();

  procedure PopPath;

  function CreateMessageList;

  function SaveMessages;

  procedure RestoreMessages();

  function AddMessage();

  procedure Info();

  function EqualData(); virtual;

  function CheckOtherKeyword();

  function CheckFormat(); virtual;

  function CheckString(); virtual;

  function CheckNumerical(); virtual;

  function CheckArray(); virtual;

  function CheckArrayItems(); virtual;

  function CheckArrayPrefixItems(); virtual;

  function CheckArrayUniqueItems(); virtual;

  function GetArrayContainsCount(); virtual;

  function CheckObject(); virtual;

  function CheckObjectPatternProperties(); virtual;

  function CheckObjectProperties(); virtual;

  function CheckObjectproperty(); virtual;

  function CheckObjectAdditionalProperties();

  function CheckObjectPropertyNames();

  procedure CollectObjectProperties();

  procedure CollectPatternProperties();

  function GetMissingObjectProperties(); virtual;

  function CheckObjectDependentRequired();

  function CheckObjectDependentSchemas();

  function CheckConst();

  function CheckEnum();

  function CheckType(); virtual;

  function CheckInList();

  function CheckNot();

  function CheckIf();

  function CheckKeyword(); virtual;

  function ResolveSchema(); virtual;

  procedure DoValidateJSON(); virtual;

  property CurrentPath: string; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Reset;

  function ValidateJSON();

  property Messages: TValidationMessageList; [r]

  property MessageTypes: TValidationMessageTypes; [rw]

  property Epsilon: Double; [rw]

  property OnResolveSchemaURI: TResolveSchemaEvent; [rw]

end;

TJSONSchemaValidator

TObject