TSchemaData

type TSchemaData = class(TObject)

protected

  procedure DoLog();

  procedure FinishAutoCreatedType(); virtual;

  function GetSchemaTypeAndName(); virtual;

  procedure AddToTypeMap(); virtual; overload;

  function SchemaNameToNameType(); virtual;

  function GetPascalTypeDataFromRef(); virtual;

  function GetSchemaTypeData();

  procedure AddAliasType(); virtual;

  function Sanitize();

  procedure SortTypes;

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure DefineStandardPascalTypes;

  class function IsKeyWord();

  function EscapeKeyWord();

  function GetTypeMap();

  function IndexOfSchemaType();

  function FindSchemaTypeData();

  function GetArrayElementType();

  function CreatePascalType(); virtual;

  procedure AddType(); virtual;

  function AddAliasToTypeMap(); overload;

  function AddTypeProperty();

  procedure AddPropertiesToType();

  procedure CheckDependencies; virtual;

  property TypeCount: Integer; [r]

  property Types []: TPascalTypeData; default; [r]

  property TypeMap []: string; [r]

  property ObjectTypePrefix: string; [rw]

  property ObjectTypeSuffix: string; [rw]

  property InterfaceTypePrefix: string; [rw]

  property ArrayTypePrefix: string; [rw]

  property ArrayTypeSuffix: string; [rw]

  property DelphiTypes: Boolean; [rw]

  property UseEnums: Boolean; [rw]

  property OnLog: TSchemaCodeGenLogEvent; [rw]

  property KeywordEscapeMode: TKeywordEscapeMode; [rw]

end;

TSchemaData

TObject