TJsonSchemaLoader

type TJsonSchemaLoader = class(TComponent)

protected

  class function JSONTypesToString();

  function GetMatchType();

  procedure CheckType();

  procedure InvalidType();

  function ReadBoolean();

  function ReadNumber();

  function ReadPositiveInteger();

  function ReadString();

  function HandleUnknownKeyWord(); virtual;

  procedure ReadDependentRequired();

  procedure ReadArray();

  procedure ReadNamedSchemas();

  procedure ReadItems();

  procedure ReadProperties();

  procedure ReadSchemaArray();

  procedure ReadStringArray();

  procedure ReadTypes();

  procedure ReadSchema();

  procedure ReadSchemaObject();

public

  procedure ReadFromJSON();

published

  property OnUnknownKeyword: TLoadKeyWordHandler; [rw]

  property Options: TSchemaLoadOptions; [rw]

end;

TJsonSchemaLoader

TObject