freepascal.compiler/packages/odata/utils/edm.pas

{
This unit has been produced by ws_helper.
  Input unit name : "edm".
  This unit name  : "edm".
  Date            : "27-5-16 21:52:37".
}
unit edm;
{$IFDEF FPC}
  {$mode objfpc} {$H+}
{$ENDIF}
{$DEFINE WST_RECORD_RTTI}
interface

uses SysUtils, Classes, TypInfo, base_service_intf, service_intf;

const
  sNAME_SPACE = 'http://docs.oasis-open.org/odata/ns/edm';
  sUNIT_NAME = 'edm';

type

  Schema_ComplexTypeArray = class;
  Schema_EntityTypeArray = class;
  Schema_TypeDefinitionArray = class;
  Schema_EnumTypeArray = class;
  Schema_ActionArray = class;
  Schema__FunctionArray = class;
  Schema_TermArray = class;
  Schema_AnnotationsArray = class;
  Schema_EntityContainerArray = class;
  Schema_AnnotationArray = class;
  Schema = class;
  TTypeAttributes = class;
  TDerivableTypeAttributes = class;
  TEntityType_KeyArray = class;
  TEntityType__PropertyArray = class;
  TEntityType_NavigationPropertyArray = class;
  TEntityType_AnnotationArray = class;
  TEntityType = class;
  TEntityKeyElement = class;
  TPropertyRef = class;
  TComplexType__PropertyArray = class;
  TComplexType_NavigationPropertyArray = class;
  TComplexType_AnnotationArray = class;
  TComplexType = class;
  TFacetAttributes = class;
  TPropertyFacetAttributes = class;
  TCommonPropertyAttributes = class;
  TProperty_AnnotationArray = class;
  TProperty = class;
  TTypeDefinition_AnnotationArray = class;
  TTypeDefinition = class;
  TNavigationProperty_ReferentialConstraintArray = class;
  TNavigationProperty_OnDeleteArray = class;
  TNavigationProperty_AnnotationArray = class;
  TNavigationProperty = class;
  TReferentialConstraint_AnnotationArray = class;
  TReferentialConstraint = class;
  TOnDelete_AnnotationArray = class;
  TOnDelete = class;
  TEnumType_MemberArray = class;
  TEnumType_AnnotationArray = class;
  TEnumType = class;
  TEnumTypeMember_AnnotationArray = class;
  TEnumTypeMember = class;
  TActionFunctionReturnType_AnnotationArray = class;
  TActionFunctionReturnType = class;
  TActionAttributes = class;
  TAction_ParameterArray = class;
  TAction_AnnotationArray = class;
  TAction = class;
  TFunctionAttributes = class;
  TFunction_ParameterArray = class;
  TFunction_AnnotationArray = class;
  TFunction = class;
  TActionFunctionParameterAttributes = class;
  TActionFunctionParameter_AnnotationArray = class;
  TActionFunctionParameter = class;
  TTerm_AnnotationArray = class;
  TTerm = class;
  TAnnotations_AnnotationArray = class;
  TAnnotations = class;
  GExpression = class;
  GInlineExpressions = class;
  Annotation_AnnotationArray = class;
  Annotation_Type = class;
  TBinaryConstantExpression = class;
  TBoolConstantExpression = class;
  TDateConstantExpression = class;
  TDateTimeOffsetConstantExpression = class;
  TDecimalConstantExpression = class;
  TDurationConstantExpression = class;
  TFloatConstantExpression = class;
  TGuidConstantExpression = class;
  TIntConstantExpression = class;
  TStringConstantExpression = class;
  TTimeOfDayConstantExpression = class;
  TApplyExpression_AnnotationArray = class;
  TApplyExpression = class;
  TCastOrIsOfExpression_AnnotationArray = class;
  TCastOrIsOfExpression = class;
  TCollectionExpression = class;
  TIfExpression_AnnotationArray = class;
  TIfExpression = class;
  TOneChildExpression_AnnotationArray = class;
  TOneChildExpression = class;
  TTwoChildrenExpression_AnnotationArray = class;
  TTwoChildrenExpression = class;
  TLabeledElementExpression_AnnotationArray = class;
  TLabeledElementExpression = class;
  TLabeledElementReferenceExpression = class;
  TNullExpression = class;
  TPathExpression = class;
  TRecordExpression_PropertyValueArray = class;
  TRecordExpression_AnnotationArray = class;
  TRecordExpression = class;
  TPropertyValue_AnnotationArray = class;
  TPropertyValue = class;
  TEntityContainer_EntitySetArray = class;
  TEntityContainer_ActionImportArray = class;
  TEntityContainer_FunctionImportArray = class;
  TEntityContainer_SingletonArray = class;
  TEntityContainer_AnnotationArray = class;
  TEntityContainer = class;
  TEntitySetAttributes = class;
  TEntitySet_NavigationPropertyBindingArray = class;
  TEntitySet_AnnotationArray = class;
  TEntitySet = class;
  TNavigationPropertyBinding = class;
  TSingleton_NavigationPropertyBindingArray = class;
  TSingleton_AnnotationArray = class;
  TSingleton = class;
  TActionFunctionImportAttributes = class;
  TActionImport_AnnotationArray = class;
  TActionImport = class;
  TFunctionImport_AnnotationArray = class;
  TFunctionImport = class;

  TAbstractType = ( 
    TAbstractType_Edm_ComplexType
    ,TAbstractType_Edm_EntityType
    ,TAbstractType_Edm_PrimitiveType
    ,TAbstractType_Edm_Geography
    ,TAbstractType_Edm_Geometry
    ,TAbstractType_Edm_AnnotationPath
    ,TAbstractType_Edm_NavigationPropertyPath
    ,TAbstractType_Edm_PropertyPath
    ,TAbstractType_Collection_Edm_ComplexType
    ,TAbstractType_Collection_Edm_EntityType
    ,TAbstractType_Collection_Edm_PrimitiveType
    ,TAbstractType_Collection_Edm_Geography
    ,TAbstractType_Collection_Edm_Geometry
    ,TAbstractType_Collection_Edm_AnnotationPath
    ,TAbstractType_Collection_Edm_NavigationPropertyPath
    ,TAbstractType_Collection_Edm_PropertyPath
  );

  TMax = ( 
    max
  );

  TVariable = ( 
    variable
  );

  TOnDeleteAction = ( 
    Cascade
    ,None
    ,SetDefault
    ,SetNull
  );

  TGuidLiteral = type UnicodeString;

  TSimpleIdentifier = type NCName;

  TNamespaceName = type NCName;

  TQualifiedName = type NCName;

  TEnumMemberList = type UnicodeString;

  TTypeName = type UnicodeString;

  TPath = type UnicodeString;

  TPathWithTermSegments = type UnicodeString;

  TClientFunction = type UnicodeString;

  TPrimitiveType = type UnicodeString;

  TAppliesTo = type UnicodeString;

  TMaxLengthFacet = type UnicodeString;

  TPrecisionFacet = type nonNegativeInteger;

  TScaleFacet = type UnicodeString;

  TSridFacet = type UnicodeString;

  TUnicodeFacet = type boolean;

  binary = type UnicodeString;

  _boolean = type boolean;

  date = type TDateRemotable;

  time = type TTimeRemotable;

  dateTimeStamp = type TDateTimeRemotable;

  dayTimeDuration = type TDurationRemotable;

  Schema = class(TBaseComplexRemotable)
  private
    FComplexType : Schema_ComplexTypeArray;
    FEntityType : Schema_EntityTypeArray;
    FTypeDefinition : Schema_TypeDefinitionArray;
    FEnumType : Schema_EnumTypeArray;
    FAction : Schema_ActionArray;
    F_Function : Schema__FunctionArray;
    FTerm : Schema_TermArray;
    FAnnotations : Schema_AnnotationsArray;
    FEntityContainer : Schema_EntityContainerArray;
    FAnnotation : Schema_AnnotationArray;
    FNamespace : TNamespaceName;
    FAlias : TSimpleIdentifier;
  private
    function wstHas_ComplexType() : Boolean;
    function wstHas_EntityType() : Boolean;
    function wstHas_TypeDefinition() : Boolean;
    function wstHas_EnumType() : Boolean;
    function wstHas_Action() : Boolean;
    function wstHas__Function() : Boolean;
    function wstHas_Term() : Boolean;
    function wstHas_Annotations() : Boolean;
    function wstHas_EntityContainer() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_Alias() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property ComplexType : Schema_ComplexTypeArray read FComplexType write FComplexType stored wstHas_ComplexType;
    property EntityType : Schema_EntityTypeArray read FEntityType write FEntityType stored wstHas_EntityType;
    property TypeDefinition : Schema_TypeDefinitionArray read FTypeDefinition write FTypeDefinition stored wstHas_TypeDefinition;
    property EnumType : Schema_EnumTypeArray read FEnumType write FEnumType stored wstHas_EnumType;
    property Action : Schema_ActionArray read FAction write FAction stored wstHas_Action;
    property _Function : Schema__FunctionArray read F_Function write F_Function stored wstHas__Function;
    property Term : Schema_TermArray read FTerm write FTerm stored wstHas_Term;
    property Annotations : Schema_AnnotationsArray read FAnnotations write FAnnotations stored wstHas_Annotations;
    property EntityContainer : Schema_EntityContainerArray read FEntityContainer write FEntityContainer stored wstHas_EntityContainer;
    property Annotation : Schema_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Namespace : TNamespaceName read FNamespace write FNamespace;
    property Alias : TSimpleIdentifier read FAlias write FAlias stored wstHas_Alias;
  end;

  TTypeAttributes = class(TBaseComplexRemotable)
  private
    FName : TSimpleIdentifier;
  published
    property Name : TSimpleIdentifier read FName write FName;
  end;

  TDerivableTypeAttributes = class(TBaseComplexRemotable)
  private
    FBaseType : TQualifiedName;
    F_Abstract : boolean;
    FName : TSimpleIdentifier;
  private
    function wstHas_BaseType() : Boolean;
    function wstHas__Abstract() : Boolean;
  published
    property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType;
    property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract;
    property Name : TSimpleIdentifier read FName write FName;
  end;

  TEntityType = class(TBaseComplexRemotable)
  private
    FKey : TEntityType_KeyArray;
    F_Property : TEntityType__PropertyArray;
    FNavigationProperty : TEntityType_NavigationPropertyArray;
    FAnnotation : TEntityType_AnnotationArray;
    FOpenType : boolean;
    FHasStream : boolean;
    FBaseType : TQualifiedName;
    F_Abstract : boolean;
    FName : TSimpleIdentifier;
  private
    function wstHas_Key() : Boolean;
    function wstHas__Property() : Boolean;
    function wstHas_NavigationProperty() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_OpenType() : Boolean;
    function wstHas_HasStream() : Boolean;
    function wstHas_BaseType() : Boolean;
    function wstHas__Abstract() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Key : TEntityType_KeyArray read FKey write FKey stored wstHas_Key;
    property _Property : TEntityType__PropertyArray read F_Property write F_Property stored wstHas__Property;
    property NavigationProperty : TEntityType_NavigationPropertyArray read FNavigationProperty write FNavigationProperty stored wstHas_NavigationProperty;
    property Annotation : TEntityType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property OpenType : boolean read FOpenType write FOpenType stored wstHas_OpenType;
    property HasStream : boolean read FHasStream write FHasStream stored wstHas_HasStream;
    property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType;
    property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract;
    property Name : TSimpleIdentifier read FName write FName;
  end;

  TPropertyRef = class(TBaseComplexRemotable)
  private
    FName : TPath;
    FAlias : TSimpleIdentifier;
  private
    function wstHas_Alias() : Boolean;
  published
    property Name : TPath read FName write FName;
    property Alias : TSimpleIdentifier read FAlias write FAlias stored wstHas_Alias;
  end;

  TComplexType = class(TBaseComplexRemotable)
  private
    F_Property : TComplexType__PropertyArray;
    FNavigationProperty : TComplexType_NavigationPropertyArray;
    FAnnotation : TComplexType_AnnotationArray;
    FOpenType : boolean;
    FBaseType : TQualifiedName;
    F_Abstract : boolean;
    FName : TSimpleIdentifier;
  private
    function wstHas__Property() : Boolean;
    function wstHas_NavigationProperty() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_OpenType() : Boolean;
    function wstHas_BaseType() : Boolean;
    function wstHas__Abstract() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property _Property : TComplexType__PropertyArray read F_Property write F_Property stored wstHas__Property;
    property NavigationProperty : TComplexType_NavigationPropertyArray read FNavigationProperty write FNavigationProperty stored wstHas_NavigationProperty;
    property Annotation : TComplexType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property OpenType : boolean read FOpenType write FOpenType stored wstHas_OpenType;
    property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType;
    property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract;
    property Name : TSimpleIdentifier read FName write FName;
  end;

  TFacetAttributes = class(TBaseComplexRemotable)
  private
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
  private
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
  published
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
  end;

  TPropertyFacetAttributes = class(TBaseComplexRemotable)
  private
    FUnicode : TUnicodeFacet;
  private
    function wstHas_Unicode() : Boolean;
  published
    property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
  end;

  TCommonPropertyAttributes = class(TBaseComplexRemotable)
  private
    FName : TSimpleIdentifier;
    F_Type : TTypeName;
    FNullable : boolean;
    FDefaultValue : UnicodeString;
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
    FUnicode : TUnicodeFacet;
  private
    function wstHas_Nullable() : Boolean;
    function wstHas_DefaultValue() : Boolean;
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
    function wstHas_Unicode() : Boolean;
  published
    property Name : TSimpleIdentifier read FName write FName;
    property _Type : TTypeName read F_Type write F_Type;
    property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
    property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue;
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
    property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
  end;

  TProperty = class(TBaseComplexRemotable)
  private
    FAnnotation : TProperty_AnnotationArray;
    FName : TSimpleIdentifier;
    F_Type : TTypeName;
    FNullable : boolean;
    FDefaultValue : UnicodeString;
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
    FUnicode : TUnicodeFacet;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Nullable() : Boolean;
    function wstHas_DefaultValue() : Boolean;
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
    function wstHas_Unicode() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TProperty_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property _Type : TTypeName read F_Type write F_Type;
    property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
    property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue;
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
    property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
  end;

  TTypeDefinition = class(TBaseComplexRemotable)
  private
    FAnnotation : TTypeDefinition_AnnotationArray;
    FName : TSimpleIdentifier;
    FUnderlyingType : TPrimitiveType;
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
    FUnicode : TUnicodeFacet;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
    function wstHas_Unicode() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TTypeDefinition_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property UnderlyingType : TPrimitiveType read FUnderlyingType write FUnderlyingType;
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
    property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
  end;

  TNavigationProperty = class(TBaseComplexRemotable)
  private
    FReferentialConstraint : TNavigationProperty_ReferentialConstraintArray;
    FOnDelete : TNavigationProperty_OnDeleteArray;
    FAnnotation : TNavigationProperty_AnnotationArray;
    FName : TSimpleIdentifier;
    F_Type : TTypeName;
    FNullable : boolean;
    FPartner : TPath;
    FContainsTarget : boolean;
  private
    function wstHas_ReferentialConstraint() : Boolean;
    function wstHas_OnDelete() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_Nullable() : Boolean;
    function wstHas_Partner() : Boolean;
    function wstHas_ContainsTarget() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property ReferentialConstraint : TNavigationProperty_ReferentialConstraintArray read FReferentialConstraint write FReferentialConstraint stored wstHas_ReferentialConstraint;
    property OnDelete : TNavigationProperty_OnDeleteArray read FOnDelete write FOnDelete stored wstHas_OnDelete;
    property Annotation : TNavigationProperty_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property _Type : TTypeName read F_Type write F_Type;
    property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
    property Partner : TPath read FPartner write FPartner stored wstHas_Partner;
    property ContainsTarget : boolean read FContainsTarget write FContainsTarget stored wstHas_ContainsTarget;
  end;

  TReferentialConstraint = class(TBaseComplexRemotable)
  private
    FAnnotation : TReferentialConstraint_AnnotationArray;
    F_Property : TPath;
    FReferencedProperty : TPath;
  private
    function wstHas_Annotation() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TReferentialConstraint_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property _Property : TPath read F_Property write F_Property;
    property ReferencedProperty : TPath read FReferencedProperty write FReferencedProperty;
  end;

  TOnDelete = class(TBaseComplexRemotable)
  private
    FAnnotation : TOnDelete_AnnotationArray;
    FAction : TOnDeleteAction;
  private
    function wstHas_Annotation() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TOnDelete_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Action : TOnDeleteAction read FAction write FAction;
  end;

  TEnumType = class(TBaseComplexRemotable)
  private
    FMember : TEnumType_MemberArray;
    FAnnotation : TEnumType_AnnotationArray;
    FIsFlags : boolean;
    FUnderlyingType : TTypeName;
    FName : TSimpleIdentifier;
  private
    function wstHas_Member() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_IsFlags() : Boolean;
    function wstHas_UnderlyingType() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Member : TEnumType_MemberArray read FMember write FMember stored wstHas_Member;
    property Annotation : TEnumType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property IsFlags : boolean read FIsFlags write FIsFlags stored wstHas_IsFlags;
    property UnderlyingType : TTypeName read FUnderlyingType write FUnderlyingType stored wstHas_UnderlyingType;
    property Name : TSimpleIdentifier read FName write FName;
  end;

  TEnumTypeMember = class(TBaseComplexRemotable)
  private
    FAnnotation : TEnumTypeMember_AnnotationArray;
    FName : TSimpleIdentifier;
    FValue : Int64;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Value() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TEnumTypeMember_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property Value : Int64 read FValue write FValue stored wstHas_Value;
  end;

  TActionFunctionReturnType = class(TBaseComplexRemotable)
  private
    FAnnotation : TActionFunctionReturnType_AnnotationArray;
    F_Type : TTypeName;
    FNullable : boolean;
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Nullable() : Boolean;
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TActionFunctionReturnType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property _Type : TTypeName read F_Type write F_Type;
    property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
  end;

  TActionAttributes = class(TBaseComplexRemotable)
  private
    FName : TSimpleIdentifier;
    FEntitySetPath : TPath;
    FIsBound : boolean;
  private
    function wstHas_EntitySetPath() : Boolean;
    function wstHas_IsBound() : Boolean;
  published
    property Name : TSimpleIdentifier read FName write FName;
    property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
    property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound;
  end;

  TAction = class(TBaseComplexRemotable)
  private
    FParameter : TAction_ParameterArray;
    FAnnotation : TAction_AnnotationArray;
    FReturnType : TActionFunctionReturnType;
    FName : TSimpleIdentifier;
    FEntitySetPath : TPath;
    FIsBound : boolean;
  private
    function wstHas_Parameter() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_ReturnType() : Boolean;
    function wstHas_EntitySetPath() : Boolean;
    function wstHas_IsBound() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Parameter : TAction_ParameterArray read FParameter write FParameter stored wstHas_Parameter;
    property Annotation : TAction_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property ReturnType : TActionFunctionReturnType read FReturnType write FReturnType stored wstHas_ReturnType;
    property Name : TSimpleIdentifier read FName write FName;
    property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
    property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound;
  end;

  TFunctionAttributes = class(TBaseComplexRemotable)
  private
    FName : TSimpleIdentifier;
    FEntitySetPath : TPath;
    FIsBound : boolean;
    FIsComposable : boolean;
  private
    function wstHas_EntitySetPath() : Boolean;
    function wstHas_IsBound() : Boolean;
    function wstHas_IsComposable() : Boolean;
  published
    property Name : TSimpleIdentifier read FName write FName;
    property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
    property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound;
    property IsComposable : boolean read FIsComposable write FIsComposable stored wstHas_IsComposable;
  end;

  TFunction = class(TBaseComplexRemotable)
  private
    FParameter : TFunction_ParameterArray;
    FAnnotation : TFunction_AnnotationArray;
    FReturnType : TActionFunctionReturnType;
    FName : TSimpleIdentifier;
    FEntitySetPath : TPath;
    FIsBound : boolean;
    FIsComposable : boolean;
  private
    function wstHas_Parameter() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_EntitySetPath() : Boolean;
    function wstHas_IsBound() : Boolean;
    function wstHas_IsComposable() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Parameter : TFunction_ParameterArray read FParameter write FParameter stored wstHas_Parameter;
    property Annotation : TFunction_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property ReturnType : TActionFunctionReturnType read FReturnType write FReturnType;
    property Name : TSimpleIdentifier read FName write FName;
    property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
    property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound;
    property IsComposable : boolean read FIsComposable write FIsComposable stored wstHas_IsComposable;
  end;

  TActionFunctionParameterAttributes = class(TBaseComplexRemotable)
  private
    FName : TSimpleIdentifier;
    F_Type : TTypeName;
    FNullable : boolean;
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
  private
    function wstHas_Nullable() : Boolean;
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
  published
    property Name : TSimpleIdentifier read FName write FName;
    property _Type : TTypeName read F_Type write F_Type;
    property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
  end;

  TActionFunctionParameter = class(TBaseComplexRemotable)
  private
    FAnnotation : TActionFunctionParameter_AnnotationArray;
    FName : TSimpleIdentifier;
    F_Type : TTypeName;
    FNullable : boolean;
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Nullable() : Boolean;
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TActionFunctionParameter_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property _Type : TTypeName read F_Type write F_Type;
    property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
  end;

  TTerm = class(TBaseComplexRemotable)
  private
    FAnnotation : TTerm_AnnotationArray;
    FName : TSimpleIdentifier;
    F_Type : TTypeName;
    FBaseTerm : TQualifiedName;
    FNullable : boolean;
    FDefaultValue : UnicodeString;
    FAppliesTo : TAppliesTo;
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_BaseTerm() : Boolean;
    function wstHas_Nullable() : Boolean;
    function wstHas_DefaultValue() : Boolean;
    function wstHas_AppliesTo() : Boolean;
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TTerm_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property _Type : TTypeName read F_Type write F_Type;
    property BaseTerm : TQualifiedName read FBaseTerm write FBaseTerm stored wstHas_BaseTerm;
    property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
    property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue;
    property AppliesTo : TAppliesTo read FAppliesTo write FAppliesTo stored wstHas_AppliesTo;
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
  end;

  TAnnotations = class(TBaseComplexRemotable)
  private
    FAnnotation : TAnnotations_AnnotationArray;
    FTarget : TPath;
    FQualifier : TSimpleIdentifier;
  private
    function wstHas_Qualifier() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TAnnotations_AnnotationArray read FAnnotation write FAnnotation;
    property Target : TPath read FTarget write FTarget;
    property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier;
  end;

  GExpression = class(TBaseComplexRemotable)
  private
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
  private
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
  end;

  GInlineExpressions = class(TBaseComplexRemotable)
  private
    FBinary : edm.binary;
    FBool : boolean;
    FDate : TDateRemotable;
    FDateTimeOffset : dateTimeStamp;
    FDecimal : Currency;
    FDuration : dayTimeDuration;
    FEnumMember : TEnumMemberList;
    FFloat : Double;
    FGuid : TGuidLiteral;
    FInt : integer;
    F_String : UnicodeString;
    FTimeOfDay : TTimeRemotable;
    FAnnotationPath : TPathWithTermSegments;
    FNavigationPropertyPath : TPathWithTermSegments;
    FPath : TPathWithTermSegments;
    FPropertyPath : TPathWithTermSegments;
    FUrlRef : anyURI;
  private
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas_UrlRef() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Binary : edm.binary read FBinary write FBinary stored wstHas_Binary;
    property Bool : boolean read FBool write FBool stored wstHas_Bool;
    property Date : TDateRemotable read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : dateTimeStamp read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : Currency read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : dayTimeDuration read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : Double read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidLiteral read FGuid write FGuid stored wstHas_Guid;
    property Int : integer read FInt write FInt stored wstHas_Int;
    property _String : UnicodeString read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeRemotable read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathWithTermSegments read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property NavigationPropertyPath : TPathWithTermSegments read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathWithTermSegments read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathWithTermSegments read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property UrlRef : anyURI read FUrlRef write FUrlRef stored wstHas_UrlRef;
  end;

  Annotation_Type = class(TBaseComplexRemotable)
  private
    FAnnotation : Annotation_AnnotationArray;
    FTerm : TQualifiedName;
    FQualifier : TSimpleIdentifier;
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
    FBinaryAtt : binary;
    FBoolAtt : boolean;
    FDateAtt : TDateRemotable;
    FDateTimeOffsetAtt : dateTimeStamp;
    FDecimalAtt : Currency;
    FDurationAtt : dayTimeDuration;
    FEnumMemberAtt : TEnumMemberList;
    FFloatAtt : Double;
    FGuidAtt : TGuidLiteral;
    FIntAtt : integer;
    F_StringAtt : UnicodeString;
    FTimeOfDayAtt : TTimeRemotable;
    FAnnotationPathAtt : TPathWithTermSegments;
    FNavigationPropertyPathAtt : TPathWithTermSegments;
    FPathAtt : TPathWithTermSegments;
    FPropertyPathAtt : TPathWithTermSegments;
    FUrlRefAtt : anyURI;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Qualifier() : Boolean;
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
    function wstHas_BinaryAtt() : Boolean;
    function wstHas_BoolAtt() : Boolean;
    function wstHas_DateAtt() : Boolean;
    function wstHas_DateTimeOffsetAtt() : Boolean;
    function wstHas_DecimalAtt() : Boolean;
    function wstHas_DurationAtt() : Boolean;
    function wstHas_EnumMemberAtt() : Boolean;
    function wstHas_FloatAtt() : Boolean;
    function wstHas_GuidAtt() : Boolean;
    function wstHas_IntAtt() : Boolean;
    function wstHas__StringAtt() : Boolean;
    function wstHas_TimeOfDayAtt() : Boolean;
    function wstHas_AnnotationPathAtt() : Boolean;
    function wstHas_NavigationPropertyPathAtt() : Boolean;
    function wstHas_PathAtt() : Boolean;
    function wstHas_PropertyPathAtt() : Boolean;
    function wstHas_UrlRefAtt() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : Annotation_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Term : TQualifiedName read FTerm write FTerm;
    property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier;
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
    property BinaryAtt : binary read FBinaryAtt write FBinaryAtt stored wstHas_BinaryAtt;
    property BoolAtt : boolean read FBoolAtt write FBoolAtt stored wstHas_BoolAtt;
    property DateAtt : TDateRemotable read FDateAtt write FDateAtt stored wstHas_DateAtt;
    property DateTimeOffsetAtt : dateTimeStamp read FDateTimeOffsetAtt write FDateTimeOffsetAtt stored wstHas_DateTimeOffsetAtt;
    property DecimalAtt : Currency read FDecimalAtt write FDecimalAtt stored wstHas_DecimalAtt;
    property DurationAtt : dayTimeDuration read FDurationAtt write FDurationAtt stored wstHas_DurationAtt;
    property EnumMemberAtt : TEnumMemberList read FEnumMemberAtt write FEnumMemberAtt stored wstHas_EnumMemberAtt;
    property FloatAtt : Double read FFloatAtt write FFloatAtt stored wstHas_FloatAtt;
    property GuidAtt : TGuidLiteral read FGuidAtt write FGuidAtt stored wstHas_GuidAtt;
    property IntAtt : integer read FIntAtt write FIntAtt stored wstHas_IntAtt;
    property _StringAtt : UnicodeString read F_StringAtt write F_StringAtt stored wstHas__StringAtt;
    property TimeOfDayAtt : TTimeRemotable read FTimeOfDayAtt write FTimeOfDayAtt stored wstHas_TimeOfDayAtt;
    property AnnotationPathAtt : TPathWithTermSegments read FAnnotationPathAtt write FAnnotationPathAtt stored wstHas_AnnotationPathAtt;
    property NavigationPropertyPathAtt : TPathWithTermSegments read FNavigationPropertyPathAtt write FNavigationPropertyPathAtt stored wstHas_NavigationPropertyPathAtt;
    property PathAtt : TPathWithTermSegments read FPathAtt write FPathAtt stored wstHas_PathAtt;
    property PropertyPathAtt : TPathWithTermSegments read FPropertyPathAtt write FPropertyPathAtt stored wstHas_PropertyPathAtt;
    property UrlRefAtt : anyURI read FUrlRefAtt write FUrlRefAtt stored wstHas_UrlRefAtt;
  end;

  TBinaryConstantExpression = class(TComplexUnicodeStringContentRemotable)
  end;

  TBoolConstantExpression = class(TComplexBooleanContentRemotable)
  end;

  TDateConstantExpression = class(date)
  end;

  TDateTimeOffsetConstantExpression = class(dateTimeStamp)
  end;

  TDecimalConstantExpression = class(TComplexCurrencyContentRemotable)
  end;

  TDurationConstantExpression = class(dayTimeDuration)
  end;

  TFloatConstantExpression = class(TComplexFloatDoubleContentRemotable)
  end;

  TGuidConstantExpression = class(TComplexUnicodeStringContentRemotable)
  end;

  TIntConstantExpression = class(TComplexInt32SContentRemotable)
  end;

  TStringConstantExpression = class(TComplexUnicodeStringContentRemotable)
  end;

  TTimeOfDayConstantExpression = class(time)
  end;

  TApplyExpression = class(TBaseComplexRemotable)
  private
    FAnnotation : TApplyExpression_AnnotationArray;
    F_Function : TClientFunction;
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas__Function() : Boolean;
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TApplyExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property _Function : TClientFunction read F_Function write F_Function stored wstHas__Function;
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
  end;

  TCastOrIsOfExpression = class(TBaseComplexRemotable)
  private
    FAnnotation : TCastOrIsOfExpression_AnnotationArray;
    F_Type : TTypeName;
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
    FMaxLength : TMaxLengthFacet;
    FPrecision : TPrecisionFacet;
    FScale : TScaleFacet;
    FSRID : TSridFacet;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas__Type() : Boolean;
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
    function wstHas_MaxLength() : Boolean;
    function wstHas_Precision() : Boolean;
    function wstHas_Scale() : Boolean;
    function wstHas_SRID() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TCastOrIsOfExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property _Type : TTypeName read F_Type write F_Type stored wstHas__Type;
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
    property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
    property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
    property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
    property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
  end;

  TCollectionExpression = class(TBaseComplexRemotable)
  private
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
  private
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
  end;

  TIfExpression = class(TBaseComplexRemotable)
  private
    FAnnotation : TIfExpression_AnnotationArray;
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TIfExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
  end;

  TOneChildExpression = class(TBaseComplexRemotable)
  private
    FAnnotation : TOneChildExpression_AnnotationArray;
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TOneChildExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
  end;

  TTwoChildrenExpression = class(TBaseComplexRemotable)
  private
    FAnnotation : TTwoChildrenExpression_AnnotationArray;
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TTwoChildrenExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
  end;

  TLabeledElementExpression = class(TBaseComplexRemotable)
  private
    FAnnotation : TLabeledElementExpression_AnnotationArray;
    FName : TSimpleIdentifier;
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
    FBinaryAtt : binary;
    FBoolAtt : boolean;
    FDateAtt : TDateRemotable;
    FDateTimeOffsetAtt : dateTimeStamp;
    FDecimalAtt : Currency;
    FDurationAtt : dayTimeDuration;
    FEnumMemberAtt : TEnumMemberList;
    FFloatAtt : Double;
    FGuidAtt : TGuidLiteral;
    FIntAtt : integer;
    F_StringAtt : UnicodeString;
    FTimeOfDayAtt : TTimeRemotable;
    FAnnotationPathAtt : TPathWithTermSegments;
    FNavigationPropertyPathAtt : TPathWithTermSegments;
    FPathAtt : TPathWithTermSegments;
    FPropertyPathAtt : TPathWithTermSegments;
    FUrlRefAtt : anyURI;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
    function wstHas_BinaryAtt() : Boolean;
    function wstHas_BoolAtt() : Boolean;
    function wstHas_DateAtt() : Boolean;
    function wstHas_DateTimeOffsetAtt() : Boolean;
    function wstHas_DecimalAtt() : Boolean;
    function wstHas_DurationAtt() : Boolean;
    function wstHas_EnumMemberAtt() : Boolean;
    function wstHas_FloatAtt() : Boolean;
    function wstHas_GuidAtt() : Boolean;
    function wstHas_IntAtt() : Boolean;
    function wstHas__StringAtt() : Boolean;
    function wstHas_TimeOfDayAtt() : Boolean;
    function wstHas_AnnotationPathAtt() : Boolean;
    function wstHas_NavigationPropertyPathAtt() : Boolean;
    function wstHas_PathAtt() : Boolean;
    function wstHas_PropertyPathAtt() : Boolean;
    function wstHas_UrlRefAtt() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TLabeledElementExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
    property BinaryAtt : binary read FBinaryAtt write FBinaryAtt stored wstHas_BinaryAtt;
    property BoolAtt : boolean read FBoolAtt write FBoolAtt stored wstHas_BoolAtt;
    property DateAtt : TDateRemotable read FDateAtt write FDateAtt stored wstHas_DateAtt;
    property DateTimeOffsetAtt : dateTimeStamp read FDateTimeOffsetAtt write FDateTimeOffsetAtt stored wstHas_DateTimeOffsetAtt;
    property DecimalAtt : Currency read FDecimalAtt write FDecimalAtt stored wstHas_DecimalAtt;
    property DurationAtt : dayTimeDuration read FDurationAtt write FDurationAtt stored wstHas_DurationAtt;
    property EnumMemberAtt : TEnumMemberList read FEnumMemberAtt write FEnumMemberAtt stored wstHas_EnumMemberAtt;
    property FloatAtt : Double read FFloatAtt write FFloatAtt stored wstHas_FloatAtt;
    property GuidAtt : TGuidLiteral read FGuidAtt write FGuidAtt stored wstHas_GuidAtt;
    property IntAtt : integer read FIntAtt write FIntAtt stored wstHas_IntAtt;
    property _StringAtt : UnicodeString read F_StringAtt write F_StringAtt stored wstHas__StringAtt;
    property TimeOfDayAtt : TTimeRemotable read FTimeOfDayAtt write FTimeOfDayAtt stored wstHas_TimeOfDayAtt;
    property AnnotationPathAtt : TPathWithTermSegments read FAnnotationPathAtt write FAnnotationPathAtt stored wstHas_AnnotationPathAtt;
    property NavigationPropertyPathAtt : TPathWithTermSegments read FNavigationPropertyPathAtt write FNavigationPropertyPathAtt stored wstHas_NavigationPropertyPathAtt;
    property PathAtt : TPathWithTermSegments read FPathAtt write FPathAtt stored wstHas_PathAtt;
    property PropertyPathAtt : TPathWithTermSegments read FPropertyPathAtt write FPropertyPathAtt stored wstHas_PropertyPathAtt;
    property UrlRefAtt : anyURI read FUrlRefAtt write FUrlRefAtt stored wstHas_UrlRefAtt;
  end;

  TLabeledElementReferenceExpression = class(TComplexUnicodeStringContentRemotable)
  end;

  TPathExpression = class(TComplexUnicodeStringContentRemotable)
  end;

  TRecordExpression = class(TBaseComplexRemotable)
  private
    FPropertyValue : TRecordExpression_PropertyValueArray;
    FAnnotation : TRecordExpression_AnnotationArray;
    F_Type : TQualifiedName;
  private
    function wstHas_PropertyValue() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas__Type() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property PropertyValue : TRecordExpression_PropertyValueArray read FPropertyValue write FPropertyValue stored wstHas_PropertyValue;
    property Annotation : TRecordExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property _Type : TQualifiedName read F_Type write F_Type stored wstHas__Type;
  end;

  TPropertyValue = class(TBaseComplexRemotable)
  private
    FAnnotation : TPropertyValue_AnnotationArray;
    F_Property : TSimpleIdentifier;
    FBinary : TBinaryConstantExpression;
    FBool : TBoolConstantExpression;
    FDate : TDateConstantExpression;
    FDateTimeOffset : TDateTimeOffsetConstantExpression;
    FDecimal : TDecimalConstantExpression;
    FDuration : TDurationConstantExpression;
    FEnumMember : TEnumMemberList;
    FFloat : TFloatConstantExpression;
    FGuid : TGuidConstantExpression;
    FInt : TIntConstantExpression;
    F_String : TStringConstantExpression;
    FTimeOfDay : TTimeOfDayConstantExpression;
    FAnnotationPath : TPathExpression;
    FApply : TApplyExpression;
    FCast : TCastOrIsOfExpression;
    FCollection : TCollectionExpression;
    F_If : TIfExpression;
    FEq : TTwoChildrenExpression;
    FNe : TTwoChildrenExpression;
    FGe : TTwoChildrenExpression;
    FGt : TTwoChildrenExpression;
    FLe : TTwoChildrenExpression;
    FLt : TTwoChildrenExpression;
    F_And : TTwoChildrenExpression;
    F_Or : TTwoChildrenExpression;
    F_Not : TOneChildExpression;
    FIsOf : TCastOrIsOfExpression;
    FLabeledElement : TLabeledElementExpression;
    FLabeledElementReference : TLabeledElementReferenceExpression;
    FNull : TNullExpression;
    FNavigationPropertyPath : TPathExpression;
    FPath : TPathExpression;
    FPropertyPath : TPathExpression;
    F_Record : TRecordExpression;
    FUrlRef : TOneChildExpression;
    FBinaryAtt : binary;
    FBoolAtt : boolean;
    FDateAtt : TDateRemotable;
    FDateTimeOffsetAtt : dateTimeStamp;
    FDecimalAtt : Currency;
    FDurationAtt : dayTimeDuration;
    FEnumMemberAtt : TEnumMemberList;
    FFloatAtt : Double;
    FGuidAtt : TGuidLiteral;
    FIntAtt : integer;
    F_StringAtt : UnicodeString;
    FTimeOfDayAtt : TTimeRemotable;
    FAnnotationPathAtt : TPathWithTermSegments;
    FNavigationPropertyPathAtt : TPathWithTermSegments;
    FPathAtt : TPathWithTermSegments;
    FPropertyPathAtt : TPathWithTermSegments;
    FUrlRefAtt : anyURI;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_Binary() : Boolean;
    function wstHas_Bool() : Boolean;
    function wstHas_Date() : Boolean;
    function wstHas_DateTimeOffset() : Boolean;
    function wstHas_Decimal() : Boolean;
    function wstHas_Duration() : Boolean;
    function wstHas_EnumMember() : Boolean;
    function wstHas_Float() : Boolean;
    function wstHas_Guid() : Boolean;
    function wstHas_Int() : Boolean;
    function wstHas__String() : Boolean;
    function wstHas_TimeOfDay() : Boolean;
    function wstHas_AnnotationPath() : Boolean;
    function wstHas_Apply() : Boolean;
    function wstHas_Cast() : Boolean;
    function wstHas_Collection() : Boolean;
    function wstHas__If() : Boolean;
    function wstHas_Eq() : Boolean;
    function wstHas_Ne() : Boolean;
    function wstHas_Ge() : Boolean;
    function wstHas_Gt() : Boolean;
    function wstHas_Le() : Boolean;
    function wstHas_Lt() : Boolean;
    function wstHas__And() : Boolean;
    function wstHas__Or() : Boolean;
    function wstHas__Not() : Boolean;
    function wstHas_IsOf() : Boolean;
    function wstHas_LabeledElement() : Boolean;
    function wstHas_LabeledElementReference() : Boolean;
    function wstHas_Null() : Boolean;
    function wstHas_NavigationPropertyPath() : Boolean;
    function wstHas_Path() : Boolean;
    function wstHas_PropertyPath() : Boolean;
    function wstHas__Record() : Boolean;
    function wstHas_UrlRef() : Boolean;
    function wstHas_BinaryAtt() : Boolean;
    function wstHas_BoolAtt() : Boolean;
    function wstHas_DateAtt() : Boolean;
    function wstHas_DateTimeOffsetAtt() : Boolean;
    function wstHas_DecimalAtt() : Boolean;
    function wstHas_DurationAtt() : Boolean;
    function wstHas_EnumMemberAtt() : Boolean;
    function wstHas_FloatAtt() : Boolean;
    function wstHas_GuidAtt() : Boolean;
    function wstHas_IntAtt() : Boolean;
    function wstHas__StringAtt() : Boolean;
    function wstHas_TimeOfDayAtt() : Boolean;
    function wstHas_AnnotationPathAtt() : Boolean;
    function wstHas_NavigationPropertyPathAtt() : Boolean;
    function wstHas_PathAtt() : Boolean;
    function wstHas_PropertyPathAtt() : Boolean;
    function wstHas_UrlRefAtt() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TPropertyValue_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property _Property : TSimpleIdentifier read F_Property write F_Property;
    property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
    property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
    property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
    property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
    property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
    property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
    property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
    property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
    property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
    property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
    property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
    property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
    property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
    property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
    property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
    property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
    property _If : TIfExpression read F_If write F_If stored wstHas__If;
    property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
    property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
    property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
    property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
    property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
    property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
    property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
    property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
    property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
    property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
    property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
    property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
    property Null : TNullExpression read FNull write FNull stored wstHas_Null;
    property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
    property Path : TPathExpression read FPath write FPath stored wstHas_Path;
    property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
    property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
    property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
    property BinaryAtt : binary read FBinaryAtt write FBinaryAtt stored wstHas_BinaryAtt;
    property BoolAtt : boolean read FBoolAtt write FBoolAtt stored wstHas_BoolAtt;
    property DateAtt : TDateRemotable read FDateAtt write FDateAtt stored wstHas_DateAtt;
    property DateTimeOffsetAtt : dateTimeStamp read FDateTimeOffsetAtt write FDateTimeOffsetAtt stored wstHas_DateTimeOffsetAtt;
    property DecimalAtt : Currency read FDecimalAtt write FDecimalAtt stored wstHas_DecimalAtt;
    property DurationAtt : dayTimeDuration read FDurationAtt write FDurationAtt stored wstHas_DurationAtt;
    property EnumMemberAtt : TEnumMemberList read FEnumMemberAtt write FEnumMemberAtt stored wstHas_EnumMemberAtt;
    property FloatAtt : Double read FFloatAtt write FFloatAtt stored wstHas_FloatAtt;
    property GuidAtt : TGuidLiteral read FGuidAtt write FGuidAtt stored wstHas_GuidAtt;
    property IntAtt : integer read FIntAtt write FIntAtt stored wstHas_IntAtt;
    property _StringAtt : UnicodeString read F_StringAtt write F_StringAtt stored wstHas__StringAtt;
    property TimeOfDayAtt : TTimeRemotable read FTimeOfDayAtt write FTimeOfDayAtt stored wstHas_TimeOfDayAtt;
    property AnnotationPathAtt : TPathWithTermSegments read FAnnotationPathAtt write FAnnotationPathAtt stored wstHas_AnnotationPathAtt;
    property NavigationPropertyPathAtt : TPathWithTermSegments read FNavigationPropertyPathAtt write FNavigationPropertyPathAtt stored wstHas_NavigationPropertyPathAtt;
    property PathAtt : TPathWithTermSegments read FPathAtt write FPathAtt stored wstHas_PathAtt;
    property PropertyPathAtt : TPathWithTermSegments read FPropertyPathAtt write FPropertyPathAtt stored wstHas_PropertyPathAtt;
    property UrlRefAtt : anyURI read FUrlRefAtt write FUrlRefAtt stored wstHas_UrlRefAtt;
  end;

  TEntityContainer = class(TBaseComplexRemotable)
  private
    FEntitySet : TEntityContainer_EntitySetArray;
    FActionImport : TEntityContainer_ActionImportArray;
    FFunctionImport : TEntityContainer_FunctionImportArray;
    FSingleton : TEntityContainer_SingletonArray;
    FAnnotation : TEntityContainer_AnnotationArray;
    FName : TSimpleIdentifier;
    FExtends : TQualifiedName;
  private
    function wstHas_EntitySet() : Boolean;
    function wstHas_ActionImport() : Boolean;
    function wstHas_FunctionImport() : Boolean;
    function wstHas_Singleton() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_Extends() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property EntitySet : TEntityContainer_EntitySetArray read FEntitySet write FEntitySet stored wstHas_EntitySet;
    property ActionImport : TEntityContainer_ActionImportArray read FActionImport write FActionImport stored wstHas_ActionImport;
    property FunctionImport : TEntityContainer_FunctionImportArray read FFunctionImport write FFunctionImport stored wstHas_FunctionImport;
    property Singleton : TEntityContainer_SingletonArray read FSingleton write FSingleton stored wstHas_Singleton;
    property Annotation : TEntityContainer_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property Extends : TQualifiedName read FExtends write FExtends stored wstHas_Extends;
  end;

  TEntitySetAttributes = class(TBaseComplexRemotable)
  private
    FName : TSimpleIdentifier;
    FEntityType : TQualifiedName;
    FIncludeInServiceDocument : boolean;
  private
    function wstHas_IncludeInServiceDocument() : Boolean;
  published
    property Name : TSimpleIdentifier read FName write FName;
    property EntityType : TQualifiedName read FEntityType write FEntityType;
    property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
  end;

  TEntitySet = class(TBaseComplexRemotable)
  private
    FNavigationPropertyBinding : TEntitySet_NavigationPropertyBindingArray;
    FAnnotation : TEntitySet_AnnotationArray;
    FName : TSimpleIdentifier;
    FEntityType : TQualifiedName;
    FIncludeInServiceDocument : boolean;
  private
    function wstHas_NavigationPropertyBinding() : Boolean;
    function wstHas_Annotation() : Boolean;
    function wstHas_IncludeInServiceDocument() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property NavigationPropertyBinding : TEntitySet_NavigationPropertyBindingArray read FNavigationPropertyBinding write FNavigationPropertyBinding stored wstHas_NavigationPropertyBinding;
    property Annotation : TEntitySet_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property EntityType : TQualifiedName read FEntityType write FEntityType;
    property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
  end;

  TNavigationPropertyBinding = class(TBaseComplexRemotable)
  private
    FPath : TPath;
    FTarget : TPath;
  published
    property Path : TPath read FPath write FPath;
    property Target : TPath read FTarget write FTarget;
  end;

  TSingleton = class(TBaseComplexRemotable)
  private
    FNavigationPropertyBinding : TSingleton_NavigationPropertyBindingArray;
    FAnnotation : TSingleton_AnnotationArray;
    FName : TSimpleIdentifier;
    F_Type : TQualifiedName;
  private
    function wstHas_NavigationPropertyBinding() : Boolean;
    function wstHas_Annotation() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property NavigationPropertyBinding : TSingleton_NavigationPropertyBindingArray read FNavigationPropertyBinding write FNavigationPropertyBinding stored wstHas_NavigationPropertyBinding;
    property Annotation : TSingleton_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Name : TSimpleIdentifier read FName write FName;
    property _Type : TQualifiedName read F_Type write F_Type;
  end;

  TActionFunctionImportAttributes = class(TBaseComplexRemotable)
  private
    FName : TSimpleIdentifier;
    FEntitySet : TPath;
    FIncludeInServiceDocument : boolean;
  private
    function wstHas_EntitySet() : Boolean;
    function wstHas_IncludeInServiceDocument() : Boolean;
  published
    property Name : TSimpleIdentifier read FName write FName;
    property EntitySet : TPath read FEntitySet write FEntitySet stored wstHas_EntitySet;
    property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
  end;

  TActionImport = class(TBaseComplexRemotable)
  private
    FAnnotation : TActionImport_AnnotationArray;
    FAction : TQualifiedName;
    FName : TSimpleIdentifier;
    FEntitySet : TPath;
    FIncludeInServiceDocument : boolean;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_EntitySet() : Boolean;
    function wstHas_IncludeInServiceDocument() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TActionImport_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property Action : TQualifiedName read FAction write FAction;
    property Name : TSimpleIdentifier read FName write FName;
    property EntitySet : TPath read FEntitySet write FEntitySet stored wstHas_EntitySet;
    property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
  end;

  TFunctionImport = class(TBaseComplexRemotable)
  private
    FAnnotation : TFunctionImport_AnnotationArray;
    F_Function : TQualifiedName;
    FName : TSimpleIdentifier;
    FEntitySet : TPath;
    FIncludeInServiceDocument : boolean;
  private
    function wstHas_Annotation() : Boolean;
    function wstHas_EntitySet() : Boolean;
    function wstHas_IncludeInServiceDocument() : Boolean;
  public
    constructor Create();override;
    procedure FreeObjectProperties();override;
  published
    property Annotation : TFunctionImport_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
    property _Function : TQualifiedName read F_Function write F_Function;
    property Name : TSimpleIdentifier read FName write FName;
    property EntitySet : TPath read FEntitySet write FEntitySet stored wstHas_EntitySet;
    property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
  end;

  Schema_ComplexTypeArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TComplexType;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TComplexType; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TComplexType; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TComplexType Read GetItem;Default;
  end;

  Schema_EntityTypeArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TEntityType;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TEntityType; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TEntityType; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TEntityType Read GetItem;Default;
  end;

  Schema_TypeDefinitionArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TTypeDefinition;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TTypeDefinition; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TTypeDefinition; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TTypeDefinition Read GetItem;Default;
  end;

  Schema_EnumTypeArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TEnumType;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TEnumType; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TEnumType; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TEnumType Read GetItem;Default;
  end;

  Schema_ActionArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TAction;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TAction; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TAction; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TAction Read GetItem;Default;
  end;

  Schema__FunctionArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TFunction;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TFunction; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TFunction; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TFunction Read GetItem;Default;
  end;

  Schema_TermArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TTerm;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TTerm; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TTerm; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TTerm Read GetItem;Default;
  end;

  Schema_AnnotationsArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TAnnotations;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TAnnotations; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TAnnotations; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TAnnotations Read GetItem;Default;
  end;

  Schema_EntityContainerArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TEntityContainer;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TEntityContainer; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TEntityContainer; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TEntityContainer Read GetItem;Default;
  end;

  Schema_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TEntityType_KeyArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TEntityKeyElement;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TEntityKeyElement; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TEntityKeyElement; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TEntityKeyElement Read GetItem;Default;
  end;

  TEntityType__PropertyArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TProperty;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TProperty Read GetItem;Default;
  end;

  TEntityType_NavigationPropertyArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TNavigationProperty;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TNavigationProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TNavigationProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TNavigationProperty Read GetItem;Default;
  end;

  TEntityType_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TEntityKeyElement = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TPropertyRef;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TPropertyRef; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TPropertyRef; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TPropertyRef Read GetItem;Default;
  end;

  TComplexType__PropertyArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TProperty;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TProperty Read GetItem;Default;
  end;

  TComplexType_NavigationPropertyArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TNavigationProperty;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TNavigationProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TNavigationProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TNavigationProperty Read GetItem;Default;
  end;

  TComplexType_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TProperty_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TTypeDefinition_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TNavigationProperty_ReferentialConstraintArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TReferentialConstraint;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TReferentialConstraint; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TReferentialConstraint; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TReferentialConstraint Read GetItem;Default;
  end;

  TNavigationProperty_OnDeleteArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TOnDelete;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TOnDelete; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TOnDelete; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TOnDelete Read GetItem;Default;
  end;

  TNavigationProperty_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TReferentialConstraint_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TOnDelete_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TEnumType_MemberArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TEnumTypeMember;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TEnumTypeMember; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TEnumTypeMember; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TEnumTypeMember Read GetItem;Default;
  end;

  TEnumType_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TEnumTypeMember_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TActionFunctionReturnType_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TAction_ParameterArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TActionFunctionParameter;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TActionFunctionParameter; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TActionFunctionParameter; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TActionFunctionParameter Read GetItem;Default;
  end;

  TAction_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TFunction_ParameterArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TActionFunctionParameter;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TActionFunctionParameter; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TActionFunctionParameter; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TActionFunctionParameter Read GetItem;Default;
  end;

  TFunction_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TActionFunctionParameter_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TTerm_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TAnnotations_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  Annotation_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
  private
    FData : array of Annotation_Type;
  private
    function GetItem(AIndex: Integer): Annotation_Type;
    procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
  protected
    function GetLength():Integer;override;
    procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
    procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
  public
    class function GetItemTypeInfo():PTypeInfo;override;
    procedure SetLength(const ANewSize : Integer);override;
    procedure Assign(Source: TPersistent); override;
    property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
  end;

  TApplyExpression_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TCastOrIsOfExpression_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TIfExpression_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TOneChildExpression_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TTwoChildrenExpression_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TLabeledElementExpression_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TNullExpression = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TRecordExpression_PropertyValueArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TPropertyValue;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TPropertyValue; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TPropertyValue; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TPropertyValue Read GetItem;Default;
  end;

  TRecordExpression_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TPropertyValue_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TEntityContainer_EntitySetArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TEntitySet;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TEntitySet; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TEntitySet; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TEntitySet Read GetItem;Default;
  end;

  TEntityContainer_ActionImportArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TActionImport;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TActionImport; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TActionImport; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TActionImport Read GetItem;Default;
  end;

  TEntityContainer_FunctionImportArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TFunctionImport;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TFunctionImport; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TFunctionImport; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TFunctionImport Read GetItem;Default;
  end;

  TEntityContainer_SingletonArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TSingleton;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TSingleton; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TSingleton; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TSingleton Read GetItem;Default;
  end;

  TEntityContainer_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TEntitySet_NavigationPropertyBindingArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TNavigationPropertyBinding;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TNavigationPropertyBinding; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TNavigationPropertyBinding; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TNavigationPropertyBinding Read GetItem;Default;
  end;

  TEntitySet_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TSingleton_NavigationPropertyBindingArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): TNavigationPropertyBinding;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): TNavigationPropertyBinding; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : TNavigationPropertyBinding; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : TNavigationPropertyBinding Read GetItem;Default;
  end;

  TSingleton_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TActionImport_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

  TFunctionImport_AnnotationArray = class(TObjectCollectionRemotable)
  private
    function GetItem(AIndex: Integer): Annotation_Type;
  public
    class function GetItemClass():TBaseRemotableClass;override;
    function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
    property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
  end;

Implementation
uses metadata_repository, record_rtti, wst_types;

{ Schema }

constructor Schema.Create();
begin
  inherited Create();
  FComplexType := Schema_ComplexTypeArray.Create();
  FEntityType := Schema_EntityTypeArray.Create();
  FTypeDefinition := Schema_TypeDefinitionArray.Create();
  FEnumType := Schema_EnumTypeArray.Create();
  FAction := Schema_ActionArray.Create();
  F_Function := Schema__FunctionArray.Create();
  FTerm := Schema_TermArray.Create();
  FAnnotations := Schema_AnnotationsArray.Create();
  FEntityContainer := Schema_EntityContainerArray.Create();
  FAnnotation := Schema_AnnotationArray.Create();
end;

procedure Schema.FreeObjectProperties();
begin
  if Assigned(FComplexType) then
    FreeAndNil(FComplexType);
  if Assigned(FEntityType) then
    FreeAndNil(FEntityType);
  if Assigned(FTypeDefinition) then
    FreeAndNil(FTypeDefinition);
  if Assigned(FEnumType) then
    FreeAndNil(FEnumType);
  if Assigned(FAction) then
    FreeAndNil(FAction);
  if Assigned(F_Function) then
    FreeAndNil(F_Function);
  if Assigned(FTerm) then
    FreeAndNil(FTerm);
  if Assigned(FAnnotations) then
    FreeAndNil(FAnnotations);
  if Assigned(FEntityContainer) then
    FreeAndNil(FEntityContainer);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function Schema.wstHas_ComplexType() : Boolean;
begin
  Result := ( FComplexType <> Schema_ComplexTypeArray(0) );
end;

function Schema.wstHas_EntityType() : Boolean;
begin
  Result := ( FEntityType <> Schema_EntityTypeArray(0) );
end;

function Schema.wstHas_TypeDefinition() : Boolean;
begin
  Result := ( FTypeDefinition <> Schema_TypeDefinitionArray(0) );
end;

function Schema.wstHas_EnumType() : Boolean;
begin
  Result := ( FEnumType <> Schema_EnumTypeArray(0) );
end;

function Schema.wstHas_Action() : Boolean;
begin
  Result := ( FAction <> Schema_ActionArray(0) );
end;

function Schema.wstHas__Function() : Boolean;
begin
  Result := ( F_Function <> Schema__FunctionArray(0) );
end;

function Schema.wstHas_Term() : Boolean;
begin
  Result := ( FTerm <> Schema_TermArray(0) );
end;

function Schema.wstHas_Annotations() : Boolean;
begin
  Result := ( FAnnotations <> Schema_AnnotationsArray(0) );
end;

function Schema.wstHas_EntityContainer() : Boolean;
begin
  Result := ( FEntityContainer <> Schema_EntityContainerArray(0) );
end;

function Schema.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> Schema_AnnotationArray(0) );
end;

function Schema.wstHas_Alias() : Boolean;
begin
  Result := ( FAlias <> '' );
end;

function TDerivableTypeAttributes.wstHas_BaseType() : Boolean;
begin
  Result := ( FBaseType <> '' );
end;

function TDerivableTypeAttributes.wstHas__Abstract() : Boolean;
begin
  Result := ( F_Abstract <> boolean(0) );
end;

{ TEntityType }

constructor TEntityType.Create();
begin
  inherited Create();
  FKey := TEntityType_KeyArray.Create();
  F_Property := TEntityType__PropertyArray.Create();
  FNavigationProperty := TEntityType_NavigationPropertyArray.Create();
  FAnnotation := TEntityType_AnnotationArray.Create();
end;

procedure TEntityType.FreeObjectProperties();
begin
  if Assigned(FKey) then
    FreeAndNil(FKey);
  if Assigned(F_Property) then
    FreeAndNil(F_Property);
  if Assigned(FNavigationProperty) then
    FreeAndNil(FNavigationProperty);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TEntityType.wstHas_Key() : Boolean;
begin
  Result := ( FKey <> TEntityType_KeyArray(0) );
end;

function TEntityType.wstHas__Property() : Boolean;
begin
  Result := ( F_Property <> TEntityType__PropertyArray(0) );
end;

function TEntityType.wstHas_NavigationProperty() : Boolean;
begin
  Result := ( FNavigationProperty <> TEntityType_NavigationPropertyArray(0) );
end;

function TEntityType.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TEntityType_AnnotationArray(0) );
end;

function TEntityType.wstHas_OpenType() : Boolean;
begin
  Result := ( FOpenType <> boolean(0) );
end;

function TEntityType.wstHas_HasStream() : Boolean;
begin
  Result := ( FHasStream <> boolean(0) );
end;

function TEntityType.wstHas_BaseType() : Boolean;
begin
  Result := ( FBaseType <> '' );
end;

function TEntityType.wstHas__Abstract() : Boolean;
begin
  Result := ( F_Abstract <> boolean(0) );
end;

function TPropertyRef.wstHas_Alias() : Boolean;
begin
  Result := ( FAlias <> '' );
end;

{ TComplexType }

constructor TComplexType.Create();
begin
  inherited Create();
  F_Property := TComplexType__PropertyArray.Create();
  FNavigationProperty := TComplexType_NavigationPropertyArray.Create();
  FAnnotation := TComplexType_AnnotationArray.Create();
end;

procedure TComplexType.FreeObjectProperties();
begin
  if Assigned(F_Property) then
    FreeAndNil(F_Property);
  if Assigned(FNavigationProperty) then
    FreeAndNil(FNavigationProperty);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TComplexType.wstHas__Property() : Boolean;
begin
  Result := ( F_Property <> TComplexType__PropertyArray(0) );
end;

function TComplexType.wstHas_NavigationProperty() : Boolean;
begin
  Result := ( FNavigationProperty <> TComplexType_NavigationPropertyArray(0) );
end;

function TComplexType.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TComplexType_AnnotationArray(0) );
end;

function TComplexType.wstHas_OpenType() : Boolean;
begin
  Result := ( FOpenType <> boolean(0) );
end;

function TComplexType.wstHas_BaseType() : Boolean;
begin
  Result := ( FBaseType <> '' );
end;

function TComplexType.wstHas__Abstract() : Boolean;
begin
  Result := ( F_Abstract <> boolean(0) );
end;

function TFacetAttributes.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TFacetAttributes.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TFacetAttributes.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TFacetAttributes.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

function TPropertyFacetAttributes.wstHas_Unicode() : Boolean;
begin
  Result := ( FUnicode <> TUnicodeFacet(0) );
end;

function TCommonPropertyAttributes.wstHas_Nullable() : Boolean;
begin
  Result := ( FNullable <> boolean(0) );
end;

function TCommonPropertyAttributes.wstHas_DefaultValue() : Boolean;
begin
  Result := ( FDefaultValue <> '' );
end;

function TCommonPropertyAttributes.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TCommonPropertyAttributes.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TCommonPropertyAttributes.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TCommonPropertyAttributes.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

function TCommonPropertyAttributes.wstHas_Unicode() : Boolean;
begin
  Result := ( FUnicode <> TUnicodeFacet(0) );
end;

{ TProperty }

constructor TProperty.Create();
begin
  inherited Create();
  FAnnotation := TProperty_AnnotationArray.Create();
end;

procedure TProperty.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TProperty.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TProperty_AnnotationArray(0) );
end;

function TProperty.wstHas_Nullable() : Boolean;
begin
  Result := ( FNullable <> boolean(0) );
end;

function TProperty.wstHas_DefaultValue() : Boolean;
begin
  Result := ( FDefaultValue <> '' );
end;

function TProperty.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TProperty.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TProperty.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TProperty.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

function TProperty.wstHas_Unicode() : Boolean;
begin
  Result := ( FUnicode <> TUnicodeFacet(0) );
end;

{ TTypeDefinition }

constructor TTypeDefinition.Create();
begin
  inherited Create();
  FAnnotation := TTypeDefinition_AnnotationArray.Create();
end;

procedure TTypeDefinition.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TTypeDefinition.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TTypeDefinition_AnnotationArray(0) );
end;

function TTypeDefinition.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TTypeDefinition.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TTypeDefinition.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TTypeDefinition.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

function TTypeDefinition.wstHas_Unicode() : Boolean;
begin
  Result := ( FUnicode <> TUnicodeFacet(0) );
end;

{ TNavigationProperty }

constructor TNavigationProperty.Create();
begin
  inherited Create();
  FReferentialConstraint := TNavigationProperty_ReferentialConstraintArray.Create();
  FOnDelete := TNavigationProperty_OnDeleteArray.Create();
  FAnnotation := TNavigationProperty_AnnotationArray.Create();
end;

procedure TNavigationProperty.FreeObjectProperties();
begin
  if Assigned(FReferentialConstraint) then
    FreeAndNil(FReferentialConstraint);
  if Assigned(FOnDelete) then
    FreeAndNil(FOnDelete);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TNavigationProperty.wstHas_ReferentialConstraint() : Boolean;
begin
  Result := ( FReferentialConstraint <> TNavigationProperty_ReferentialConstraintArray(0) );
end;

function TNavigationProperty.wstHas_OnDelete() : Boolean;
begin
  Result := ( FOnDelete <> TNavigationProperty_OnDeleteArray(0) );
end;

function TNavigationProperty.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TNavigationProperty_AnnotationArray(0) );
end;

function TNavigationProperty.wstHas_Nullable() : Boolean;
begin
  Result := ( FNullable <> boolean(0) );
end;

function TNavigationProperty.wstHas_Partner() : Boolean;
begin
  Result := ( FPartner <> '' );
end;

function TNavigationProperty.wstHas_ContainsTarget() : Boolean;
begin
  Result := ( FContainsTarget <> boolean(0) );
end;

{ TReferentialConstraint }

constructor TReferentialConstraint.Create();
begin
  inherited Create();
  FAnnotation := TReferentialConstraint_AnnotationArray.Create();
end;

procedure TReferentialConstraint.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TReferentialConstraint.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TReferentialConstraint_AnnotationArray(0) );
end;

{ TOnDelete }

constructor TOnDelete.Create();
begin
  inherited Create();
  FAnnotation := TOnDelete_AnnotationArray.Create();
end;

procedure TOnDelete.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TOnDelete.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TOnDelete_AnnotationArray(0) );
end;

{ TEnumType }

constructor TEnumType.Create();
begin
  inherited Create();
  FMember := TEnumType_MemberArray.Create();
  FAnnotation := TEnumType_AnnotationArray.Create();
end;

procedure TEnumType.FreeObjectProperties();
begin
  if Assigned(FMember) then
    FreeAndNil(FMember);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TEnumType.wstHas_Member() : Boolean;
begin
  Result := ( FMember <> TEnumType_MemberArray(0) );
end;

function TEnumType.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TEnumType_AnnotationArray(0) );
end;

function TEnumType.wstHas_IsFlags() : Boolean;
begin
  Result := ( FIsFlags <> boolean(0) );
end;

function TEnumType.wstHas_UnderlyingType() : Boolean;
begin
  Result := ( FUnderlyingType <> '' );
end;

{ TEnumTypeMember }

constructor TEnumTypeMember.Create();
begin
  inherited Create();
  FAnnotation := TEnumTypeMember_AnnotationArray.Create();
end;

procedure TEnumTypeMember.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TEnumTypeMember.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TEnumTypeMember_AnnotationArray(0) );
end;

function TEnumTypeMember.wstHas_Value() : Boolean;
begin
  Result := ( FValue <> Int64(0) );
end;

{ TActionFunctionReturnType }

constructor TActionFunctionReturnType.Create();
begin
  inherited Create();
  FAnnotation := TActionFunctionReturnType_AnnotationArray.Create();
end;

procedure TActionFunctionReturnType.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TActionFunctionReturnType.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TActionFunctionReturnType_AnnotationArray(0) );
end;

function TActionFunctionReturnType.wstHas_Nullable() : Boolean;
begin
  Result := ( FNullable <> boolean(0) );
end;

function TActionFunctionReturnType.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TActionFunctionReturnType.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TActionFunctionReturnType.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TActionFunctionReturnType.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

function TActionAttributes.wstHas_EntitySetPath() : Boolean;
begin
  Result := ( FEntitySetPath <> '' );
end;

function TActionAttributes.wstHas_IsBound() : Boolean;
begin
  Result := ( FIsBound <> boolean(0) );
end;

{ TAction }

constructor TAction.Create();
begin
  inherited Create();
  FParameter := TAction_ParameterArray.Create();
  FAnnotation := TAction_AnnotationArray.Create();
  FReturnType := TActionFunctionReturnType.Create();
end;

procedure TAction.FreeObjectProperties();
begin
  if Assigned(FParameter) then
    FreeAndNil(FParameter);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FReturnType) then
    FreeAndNil(FReturnType);
  inherited FreeObjectProperties();
end;

function TAction.wstHas_Parameter() : Boolean;
begin
  Result := ( FParameter <> TAction_ParameterArray(0) );
end;

function TAction.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TAction_AnnotationArray(0) );
end;

function TAction.wstHas_ReturnType() : Boolean;
begin
  Result := ( FReturnType <> nil );
end;

function TAction.wstHas_EntitySetPath() : Boolean;
begin
  Result := ( FEntitySetPath <> '' );
end;

function TAction.wstHas_IsBound() : Boolean;
begin
  Result := ( FIsBound <> boolean(0) );
end;

function TFunctionAttributes.wstHas_EntitySetPath() : Boolean;
begin
  Result := ( FEntitySetPath <> '' );
end;

function TFunctionAttributes.wstHas_IsBound() : Boolean;
begin
  Result := ( FIsBound <> boolean(0) );
end;

function TFunctionAttributes.wstHas_IsComposable() : Boolean;
begin
  Result := ( FIsComposable <> boolean(0) );
end;

{ TFunction }

constructor TFunction.Create();
begin
  inherited Create();
  FParameter := TFunction_ParameterArray.Create();
  FAnnotation := TFunction_AnnotationArray.Create();
  FReturnType := TActionFunctionReturnType.Create();
end;

procedure TFunction.FreeObjectProperties();
begin
  if Assigned(FParameter) then
    FreeAndNil(FParameter);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FReturnType) then
    FreeAndNil(FReturnType);
  inherited FreeObjectProperties();
end;

function TFunction.wstHas_Parameter() : Boolean;
begin
  Result := ( FParameter <> TFunction_ParameterArray(0) );
end;

function TFunction.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TFunction_AnnotationArray(0) );
end;

function TFunction.wstHas_EntitySetPath() : Boolean;
begin
  Result := ( FEntitySetPath <> '' );
end;

function TFunction.wstHas_IsBound() : Boolean;
begin
  Result := ( FIsBound <> boolean(0) );
end;

function TFunction.wstHas_IsComposable() : Boolean;
begin
  Result := ( FIsComposable <> boolean(0) );
end;

function TActionFunctionParameterAttributes.wstHas_Nullable() : Boolean;
begin
  Result := ( FNullable <> boolean(0) );
end;

function TActionFunctionParameterAttributes.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TActionFunctionParameterAttributes.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TActionFunctionParameterAttributes.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TActionFunctionParameterAttributes.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

{ TActionFunctionParameter }

constructor TActionFunctionParameter.Create();
begin
  inherited Create();
  FAnnotation := TActionFunctionParameter_AnnotationArray.Create();
end;

procedure TActionFunctionParameter.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TActionFunctionParameter.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TActionFunctionParameter_AnnotationArray(0) );
end;

function TActionFunctionParameter.wstHas_Nullable() : Boolean;
begin
  Result := ( FNullable <> boolean(0) );
end;

function TActionFunctionParameter.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TActionFunctionParameter.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TActionFunctionParameter.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TActionFunctionParameter.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

{ TTerm }

constructor TTerm.Create();
begin
  inherited Create();
  FAnnotation := TTerm_AnnotationArray.Create();
end;

procedure TTerm.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TTerm.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TTerm_AnnotationArray(0) );
end;

function TTerm.wstHas_BaseTerm() : Boolean;
begin
  Result := ( FBaseTerm <> '' );
end;

function TTerm.wstHas_Nullable() : Boolean;
begin
  Result := ( FNullable <> boolean(0) );
end;

function TTerm.wstHas_DefaultValue() : Boolean;
begin
  Result := ( FDefaultValue <> '' );
end;

function TTerm.wstHas_AppliesTo() : Boolean;
begin
  Result := ( FAppliesTo <> '' );
end;

function TTerm.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TTerm.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TTerm.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TTerm.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

{ TAnnotations }

constructor TAnnotations.Create();
begin
  inherited Create();
  FAnnotation := TAnnotations_AnnotationArray.Create();
end;

procedure TAnnotations.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TAnnotations.wstHas_Qualifier() : Boolean;
begin
  Result := ( FQualifier <> '' );
end;

{ GExpression }

constructor GExpression.Create();
begin
  inherited Create();
  FNull := TNullExpression.Create();
end;

procedure GExpression.FreeObjectProperties();
begin
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  inherited FreeObjectProperties();
end;

function GExpression.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function GExpression.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function GExpression.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function GExpression.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function GExpression.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function GExpression.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function GExpression.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function GExpression.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function GExpression.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function GExpression.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function GExpression.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function GExpression.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function GExpression.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function GExpression.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function GExpression.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function GExpression.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function GExpression.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function GExpression.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function GExpression.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function GExpression.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function GExpression.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function GExpression.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function GExpression.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function GExpression.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function GExpression.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function GExpression.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function GExpression.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function GExpression.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function GExpression.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function GExpression.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function GExpression.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function GExpression.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function GExpression.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function GExpression.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function GExpression.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

{ GInlineExpressions }

constructor GInlineExpressions.Create();
begin
  inherited Create();
  FDate := TDateRemotable.Create();
  FDateTimeOffset := dateTimeStamp.Create();
  FDuration := dayTimeDuration.Create();
  FTimeOfDay := TTimeRemotable.Create();
end;

procedure GInlineExpressions.FreeObjectProperties();
begin
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  inherited FreeObjectProperties();
end;

function GInlineExpressions.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> '' );
end;

function GInlineExpressions.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> boolean(0) );
end;

function GInlineExpressions.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function GInlineExpressions.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function GInlineExpressions.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> 0 );
end;

function GInlineExpressions.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function GInlineExpressions.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function GInlineExpressions.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> 0 );
end;

function GInlineExpressions.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> '' );
end;

function GInlineExpressions.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> integer(0) );
end;

function GInlineExpressions.wstHas__String() : Boolean;
begin
  Result := ( F_String <> '' );
end;

function GInlineExpressions.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function GInlineExpressions.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> '' );
end;

function GInlineExpressions.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> '' );
end;

function GInlineExpressions.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> '' );
end;

function GInlineExpressions.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> '' );
end;

function GInlineExpressions.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> '' );
end;

{ Annotation_Type }

constructor Annotation_Type.Create();
begin
  inherited Create();
  FAnnotation := Annotation_AnnotationArray.Create();
  FNull := TNullExpression.Create();
  FDateAtt := TDateRemotable.Create();
  FDateTimeOffsetAtt := dateTimeStamp.Create();
  FDurationAtt := dayTimeDuration.Create();
  FTimeOfDayAtt := TTimeRemotable.Create();
end;

procedure Annotation_Type.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  if Assigned(FDateAtt) then
    FreeAndNil(FDateAtt);
  if Assigned(FDateTimeOffsetAtt) then
    FreeAndNil(FDateTimeOffsetAtt);
  if Assigned(FDurationAtt) then
    FreeAndNil(FDurationAtt);
  if Assigned(FTimeOfDayAtt) then
    FreeAndNil(FTimeOfDayAtt);
  inherited FreeObjectProperties();
end;

function Annotation_Type.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> Annotation_AnnotationArray(0) );
end;

function Annotation_Type.wstHas_Qualifier() : Boolean;
begin
  Result := ( FQualifier <> '' );
end;

function Annotation_Type.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function Annotation_Type.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function Annotation_Type.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function Annotation_Type.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function Annotation_Type.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function Annotation_Type.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function Annotation_Type.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function Annotation_Type.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function Annotation_Type.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function Annotation_Type.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function Annotation_Type.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function Annotation_Type.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function Annotation_Type.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function Annotation_Type.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function Annotation_Type.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function Annotation_Type.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function Annotation_Type.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function Annotation_Type.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function Annotation_Type.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function Annotation_Type.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function Annotation_Type.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function Annotation_Type.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function Annotation_Type.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function Annotation_Type.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function Annotation_Type.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function Annotation_Type.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function Annotation_Type.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function Annotation_Type.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function Annotation_Type.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function Annotation_Type.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function Annotation_Type.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function Annotation_Type.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function Annotation_Type.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function Annotation_Type.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function Annotation_Type.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

function Annotation_Type.wstHas_BinaryAtt() : Boolean;
begin
  Result := ( FBinaryAtt <> '' );
end;

function Annotation_Type.wstHas_BoolAtt() : Boolean;
begin
  Result := ( FBoolAtt <> boolean(0) );
end;

function Annotation_Type.wstHas_DateAtt() : Boolean;
begin
  Result := ( FDateAtt <> nil );
end;

function Annotation_Type.wstHas_DateTimeOffsetAtt() : Boolean;
begin
  Result := ( FDateTimeOffsetAtt <> nil );
end;

function Annotation_Type.wstHas_DecimalAtt() : Boolean;
begin
  Result := ( FDecimalAtt <> 0 );
end;

function Annotation_Type.wstHas_DurationAtt() : Boolean;
begin
  Result := ( FDurationAtt <> nil );
end;

function Annotation_Type.wstHas_EnumMemberAtt() : Boolean;
begin
  Result := ( FEnumMemberAtt <> '' );
end;

function Annotation_Type.wstHas_FloatAtt() : Boolean;
begin
  Result := ( FFloatAtt <> 0 );
end;

function Annotation_Type.wstHas_GuidAtt() : Boolean;
begin
  Result := ( FGuidAtt <> '' );
end;

function Annotation_Type.wstHas_IntAtt() : Boolean;
begin
  Result := ( FIntAtt <> integer(0) );
end;

function Annotation_Type.wstHas__StringAtt() : Boolean;
begin
  Result := ( F_StringAtt <> '' );
end;

function Annotation_Type.wstHas_TimeOfDayAtt() : Boolean;
begin
  Result := ( FTimeOfDayAtt <> nil );
end;

function Annotation_Type.wstHas_AnnotationPathAtt() : Boolean;
begin
  Result := ( FAnnotationPathAtt <> '' );
end;

function Annotation_Type.wstHas_NavigationPropertyPathAtt() : Boolean;
begin
  Result := ( FNavigationPropertyPathAtt <> '' );
end;

function Annotation_Type.wstHas_PathAtt() : Boolean;
begin
  Result := ( FPathAtt <> '' );
end;

function Annotation_Type.wstHas_PropertyPathAtt() : Boolean;
begin
  Result := ( FPropertyPathAtt <> '' );
end;

function Annotation_Type.wstHas_UrlRefAtt() : Boolean;
begin
  Result := ( FUrlRefAtt <> '' );
end;

{ TApplyExpression }

constructor TApplyExpression.Create();
begin
  inherited Create();
  FAnnotation := TApplyExpression_AnnotationArray.Create();
  FNull := TNullExpression.Create();
end;

procedure TApplyExpression.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  inherited FreeObjectProperties();
end;

function TApplyExpression.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TApplyExpression_AnnotationArray(0) );
end;

function TApplyExpression.wstHas__Function() : Boolean;
begin
  Result := ( F_Function <> '' );
end;

function TApplyExpression.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function TApplyExpression.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function TApplyExpression.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function TApplyExpression.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function TApplyExpression.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function TApplyExpression.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function TApplyExpression.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function TApplyExpression.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function TApplyExpression.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function TApplyExpression.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function TApplyExpression.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function TApplyExpression.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function TApplyExpression.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function TApplyExpression.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function TApplyExpression.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function TApplyExpression.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function TApplyExpression.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function TApplyExpression.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function TApplyExpression.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function TApplyExpression.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function TApplyExpression.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function TApplyExpression.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function TApplyExpression.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function TApplyExpression.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function TApplyExpression.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function TApplyExpression.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function TApplyExpression.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function TApplyExpression.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function TApplyExpression.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function TApplyExpression.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function TApplyExpression.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function TApplyExpression.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function TApplyExpression.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function TApplyExpression.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function TApplyExpression.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

{ TCastOrIsOfExpression }

constructor TCastOrIsOfExpression.Create();
begin
  inherited Create();
  FAnnotation := TCastOrIsOfExpression_AnnotationArray.Create();
  FNull := TNullExpression.Create();
end;

procedure TCastOrIsOfExpression.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  inherited FreeObjectProperties();
end;

function TCastOrIsOfExpression.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TCastOrIsOfExpression_AnnotationArray(0) );
end;

function TCastOrIsOfExpression.wstHas__Type() : Boolean;
begin
  Result := ( F_Type <> '' );
end;

function TCastOrIsOfExpression.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function TCastOrIsOfExpression.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function TCastOrIsOfExpression.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function TCastOrIsOfExpression.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function TCastOrIsOfExpression.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function TCastOrIsOfExpression.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function TCastOrIsOfExpression.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function TCastOrIsOfExpression.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function TCastOrIsOfExpression.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function TCastOrIsOfExpression.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function TCastOrIsOfExpression.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function TCastOrIsOfExpression.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function TCastOrIsOfExpression.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function TCastOrIsOfExpression.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function TCastOrIsOfExpression.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function TCastOrIsOfExpression.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function TCastOrIsOfExpression.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function TCastOrIsOfExpression.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function TCastOrIsOfExpression.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function TCastOrIsOfExpression.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function TCastOrIsOfExpression.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function TCastOrIsOfExpression.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function TCastOrIsOfExpression.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function TCastOrIsOfExpression.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function TCastOrIsOfExpression.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function TCastOrIsOfExpression.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function TCastOrIsOfExpression.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function TCastOrIsOfExpression.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function TCastOrIsOfExpression.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function TCastOrIsOfExpression.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function TCastOrIsOfExpression.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function TCastOrIsOfExpression.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function TCastOrIsOfExpression.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function TCastOrIsOfExpression.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function TCastOrIsOfExpression.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

function TCastOrIsOfExpression.wstHas_MaxLength() : Boolean;
begin
  Result := ( FMaxLength <> '' );
end;

function TCastOrIsOfExpression.wstHas_Precision() : Boolean;
begin
  Result := ( FPrecision <> TPrecisionFacet(0) );
end;

function TCastOrIsOfExpression.wstHas_Scale() : Boolean;
begin
  Result := ( FScale <> '' );
end;

function TCastOrIsOfExpression.wstHas_SRID() : Boolean;
begin
  Result := ( FSRID <> '' );
end;

{ TCollectionExpression }

constructor TCollectionExpression.Create();
begin
  inherited Create();
  FNull := TNullExpression.Create();
end;

procedure TCollectionExpression.FreeObjectProperties();
begin
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  inherited FreeObjectProperties();
end;

function TCollectionExpression.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function TCollectionExpression.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function TCollectionExpression.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function TCollectionExpression.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function TCollectionExpression.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function TCollectionExpression.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function TCollectionExpression.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function TCollectionExpression.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function TCollectionExpression.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function TCollectionExpression.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function TCollectionExpression.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function TCollectionExpression.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function TCollectionExpression.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function TCollectionExpression.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function TCollectionExpression.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function TCollectionExpression.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function TCollectionExpression.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function TCollectionExpression.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function TCollectionExpression.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function TCollectionExpression.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function TCollectionExpression.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function TCollectionExpression.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function TCollectionExpression.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function TCollectionExpression.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function TCollectionExpression.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function TCollectionExpression.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function TCollectionExpression.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function TCollectionExpression.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function TCollectionExpression.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function TCollectionExpression.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function TCollectionExpression.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function TCollectionExpression.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function TCollectionExpression.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function TCollectionExpression.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function TCollectionExpression.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

{ TIfExpression }

constructor TIfExpression.Create();
begin
  inherited Create();
  FAnnotation := TIfExpression_AnnotationArray.Create();
  FNull := TNullExpression.Create();
end;

procedure TIfExpression.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  inherited FreeObjectProperties();
end;

function TIfExpression.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TIfExpression_AnnotationArray(0) );
end;

function TIfExpression.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function TIfExpression.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function TIfExpression.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function TIfExpression.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function TIfExpression.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function TIfExpression.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function TIfExpression.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function TIfExpression.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function TIfExpression.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function TIfExpression.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function TIfExpression.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function TIfExpression.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function TIfExpression.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function TIfExpression.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function TIfExpression.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function TIfExpression.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function TIfExpression.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function TIfExpression.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function TIfExpression.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function TIfExpression.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function TIfExpression.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function TIfExpression.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function TIfExpression.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function TIfExpression.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function TIfExpression.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function TIfExpression.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function TIfExpression.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function TIfExpression.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function TIfExpression.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function TIfExpression.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function TIfExpression.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function TIfExpression.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function TIfExpression.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function TIfExpression.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function TIfExpression.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

{ TOneChildExpression }

constructor TOneChildExpression.Create();
begin
  inherited Create();
  FAnnotation := TOneChildExpression_AnnotationArray.Create();
  FNull := TNullExpression.Create();
end;

procedure TOneChildExpression.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  inherited FreeObjectProperties();
end;

function TOneChildExpression.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TOneChildExpression_AnnotationArray(0) );
end;

function TOneChildExpression.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function TOneChildExpression.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function TOneChildExpression.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function TOneChildExpression.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function TOneChildExpression.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function TOneChildExpression.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function TOneChildExpression.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function TOneChildExpression.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function TOneChildExpression.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function TOneChildExpression.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function TOneChildExpression.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function TOneChildExpression.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function TOneChildExpression.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function TOneChildExpression.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function TOneChildExpression.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function TOneChildExpression.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function TOneChildExpression.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function TOneChildExpression.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function TOneChildExpression.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function TOneChildExpression.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function TOneChildExpression.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function TOneChildExpression.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function TOneChildExpression.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function TOneChildExpression.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function TOneChildExpression.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function TOneChildExpression.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function TOneChildExpression.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function TOneChildExpression.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function TOneChildExpression.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function TOneChildExpression.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function TOneChildExpression.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function TOneChildExpression.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function TOneChildExpression.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function TOneChildExpression.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function TOneChildExpression.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

{ TTwoChildrenExpression }

constructor TTwoChildrenExpression.Create();
begin
  inherited Create();
  FAnnotation := TTwoChildrenExpression_AnnotationArray.Create();
  FNull := TNullExpression.Create();
end;

procedure TTwoChildrenExpression.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  inherited FreeObjectProperties();
end;

function TTwoChildrenExpression.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TTwoChildrenExpression_AnnotationArray(0) );
end;

function TTwoChildrenExpression.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function TTwoChildrenExpression.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function TTwoChildrenExpression.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function TTwoChildrenExpression.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function TTwoChildrenExpression.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function TTwoChildrenExpression.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function TTwoChildrenExpression.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function TTwoChildrenExpression.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function TTwoChildrenExpression.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function TTwoChildrenExpression.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function TTwoChildrenExpression.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function TTwoChildrenExpression.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function TTwoChildrenExpression.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function TTwoChildrenExpression.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function TTwoChildrenExpression.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function TTwoChildrenExpression.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function TTwoChildrenExpression.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function TTwoChildrenExpression.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function TTwoChildrenExpression.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function TTwoChildrenExpression.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function TTwoChildrenExpression.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function TTwoChildrenExpression.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function TTwoChildrenExpression.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function TTwoChildrenExpression.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function TTwoChildrenExpression.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function TTwoChildrenExpression.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function TTwoChildrenExpression.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function TTwoChildrenExpression.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function TTwoChildrenExpression.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function TTwoChildrenExpression.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function TTwoChildrenExpression.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function TTwoChildrenExpression.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function TTwoChildrenExpression.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function TTwoChildrenExpression.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function TTwoChildrenExpression.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

{ TLabeledElementExpression }

constructor TLabeledElementExpression.Create();
begin
  inherited Create();
  FAnnotation := TLabeledElementExpression_AnnotationArray.Create();
  FNull := TNullExpression.Create();
  FDateAtt := TDateRemotable.Create();
  FDateTimeOffsetAtt := dateTimeStamp.Create();
  FDurationAtt := dayTimeDuration.Create();
  FTimeOfDayAtt := TTimeRemotable.Create();
end;

procedure TLabeledElementExpression.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  if Assigned(FDateAtt) then
    FreeAndNil(FDateAtt);
  if Assigned(FDateTimeOffsetAtt) then
    FreeAndNil(FDateTimeOffsetAtt);
  if Assigned(FDurationAtt) then
    FreeAndNil(FDurationAtt);
  if Assigned(FTimeOfDayAtt) then
    FreeAndNil(FTimeOfDayAtt);
  inherited FreeObjectProperties();
end;

function TLabeledElementExpression.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TLabeledElementExpression_AnnotationArray(0) );
end;

function TLabeledElementExpression.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function TLabeledElementExpression.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function TLabeledElementExpression.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function TLabeledElementExpression.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function TLabeledElementExpression.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function TLabeledElementExpression.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function TLabeledElementExpression.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function TLabeledElementExpression.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function TLabeledElementExpression.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function TLabeledElementExpression.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function TLabeledElementExpression.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function TLabeledElementExpression.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function TLabeledElementExpression.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function TLabeledElementExpression.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function TLabeledElementExpression.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function TLabeledElementExpression.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function TLabeledElementExpression.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function TLabeledElementExpression.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function TLabeledElementExpression.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function TLabeledElementExpression.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function TLabeledElementExpression.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function TLabeledElementExpression.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function TLabeledElementExpression.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function TLabeledElementExpression.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function TLabeledElementExpression.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function TLabeledElementExpression.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function TLabeledElementExpression.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function TLabeledElementExpression.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function TLabeledElementExpression.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function TLabeledElementExpression.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function TLabeledElementExpression.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function TLabeledElementExpression.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function TLabeledElementExpression.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function TLabeledElementExpression.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function TLabeledElementExpression.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

function TLabeledElementExpression.wstHas_BinaryAtt() : Boolean;
begin
  Result := ( FBinaryAtt <> '' );
end;

function TLabeledElementExpression.wstHas_BoolAtt() : Boolean;
begin
  Result := ( FBoolAtt <> boolean(0) );
end;

function TLabeledElementExpression.wstHas_DateAtt() : Boolean;
begin
  Result := ( FDateAtt <> nil );
end;

function TLabeledElementExpression.wstHas_DateTimeOffsetAtt() : Boolean;
begin
  Result := ( FDateTimeOffsetAtt <> nil );
end;

function TLabeledElementExpression.wstHas_DecimalAtt() : Boolean;
begin
  Result := ( FDecimalAtt <> 0 );
end;

function TLabeledElementExpression.wstHas_DurationAtt() : Boolean;
begin
  Result := ( FDurationAtt <> nil );
end;

function TLabeledElementExpression.wstHas_EnumMemberAtt() : Boolean;
begin
  Result := ( FEnumMemberAtt <> '' );
end;

function TLabeledElementExpression.wstHas_FloatAtt() : Boolean;
begin
  Result := ( FFloatAtt <> 0 );
end;

function TLabeledElementExpression.wstHas_GuidAtt() : Boolean;
begin
  Result := ( FGuidAtt <> '' );
end;

function TLabeledElementExpression.wstHas_IntAtt() : Boolean;
begin
  Result := ( FIntAtt <> integer(0) );
end;

function TLabeledElementExpression.wstHas__StringAtt() : Boolean;
begin
  Result := ( F_StringAtt <> '' );
end;

function TLabeledElementExpression.wstHas_TimeOfDayAtt() : Boolean;
begin
  Result := ( FTimeOfDayAtt <> nil );
end;

function TLabeledElementExpression.wstHas_AnnotationPathAtt() : Boolean;
begin
  Result := ( FAnnotationPathAtt <> '' );
end;

function TLabeledElementExpression.wstHas_NavigationPropertyPathAtt() : Boolean;
begin
  Result := ( FNavigationPropertyPathAtt <> '' );
end;

function TLabeledElementExpression.wstHas_PathAtt() : Boolean;
begin
  Result := ( FPathAtt <> '' );
end;

function TLabeledElementExpression.wstHas_PropertyPathAtt() : Boolean;
begin
  Result := ( FPropertyPathAtt <> '' );
end;

function TLabeledElementExpression.wstHas_UrlRefAtt() : Boolean;
begin
  Result := ( FUrlRefAtt <> '' );
end;

{ TRecordExpression }

constructor TRecordExpression.Create();
begin
  inherited Create();
  FPropertyValue := TRecordExpression_PropertyValueArray.Create();
  FAnnotation := TRecordExpression_AnnotationArray.Create();
end;

procedure TRecordExpression.FreeObjectProperties();
begin
  if Assigned(FPropertyValue) then
    FreeAndNil(FPropertyValue);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TRecordExpression.wstHas_PropertyValue() : Boolean;
begin
  Result := ( FPropertyValue <> TRecordExpression_PropertyValueArray(0) );
end;

function TRecordExpression.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TRecordExpression_AnnotationArray(0) );
end;

function TRecordExpression.wstHas__Type() : Boolean;
begin
  Result := ( F_Type <> '' );
end;

{ TPropertyValue }

constructor TPropertyValue.Create();
begin
  inherited Create();
  FAnnotation := TPropertyValue_AnnotationArray.Create();
  FNull := TNullExpression.Create();
  FDateAtt := TDateRemotable.Create();
  FDateTimeOffsetAtt := dateTimeStamp.Create();
  FDurationAtt := dayTimeDuration.Create();
  FTimeOfDayAtt := TTimeRemotable.Create();
end;

procedure TPropertyValue.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  if Assigned(FBinary) then
    FreeAndNil(FBinary);
  if Assigned(FBool) then
    FreeAndNil(FBool);
  if Assigned(FDate) then
    FreeAndNil(FDate);
  if Assigned(FDateTimeOffset) then
    FreeAndNil(FDateTimeOffset);
  if Assigned(FDecimal) then
    FreeAndNil(FDecimal);
  if Assigned(FDuration) then
    FreeAndNil(FDuration);
  if Assigned(FFloat) then
    FreeAndNil(FFloat);
  if Assigned(FGuid) then
    FreeAndNil(FGuid);
  if Assigned(FInt) then
    FreeAndNil(FInt);
  if Assigned(F_String) then
    FreeAndNil(F_String);
  if Assigned(FTimeOfDay) then
    FreeAndNil(FTimeOfDay);
  if Assigned(FAnnotationPath) then
    FreeAndNil(FAnnotationPath);
  if Assigned(FApply) then
    FreeAndNil(FApply);
  if Assigned(FCast) then
    FreeAndNil(FCast);
  if Assigned(FCollection) then
    FreeAndNil(FCollection);
  if Assigned(F_If) then
    FreeAndNil(F_If);
  if Assigned(FEq) then
    FreeAndNil(FEq);
  if Assigned(FNe) then
    FreeAndNil(FNe);
  if Assigned(FGe) then
    FreeAndNil(FGe);
  if Assigned(FGt) then
    FreeAndNil(FGt);
  if Assigned(FLe) then
    FreeAndNil(FLe);
  if Assigned(FLt) then
    FreeAndNil(FLt);
  if Assigned(F_And) then
    FreeAndNil(F_And);
  if Assigned(F_Or) then
    FreeAndNil(F_Or);
  if Assigned(F_Not) then
    FreeAndNil(F_Not);
  if Assigned(FIsOf) then
    FreeAndNil(FIsOf);
  if Assigned(FLabeledElement) then
    FreeAndNil(FLabeledElement);
  if Assigned(FLabeledElementReference) then
    FreeAndNil(FLabeledElementReference);
  if Assigned(FNull) then
    FreeAndNil(FNull);
  if Assigned(FNavigationPropertyPath) then
    FreeAndNil(FNavigationPropertyPath);
  if Assigned(FPath) then
    FreeAndNil(FPath);
  if Assigned(FPropertyPath) then
    FreeAndNil(FPropertyPath);
  if Assigned(F_Record) then
    FreeAndNil(F_Record);
  if Assigned(FUrlRef) then
    FreeAndNil(FUrlRef);
  if Assigned(FDateAtt) then
    FreeAndNil(FDateAtt);
  if Assigned(FDateTimeOffsetAtt) then
    FreeAndNil(FDateTimeOffsetAtt);
  if Assigned(FDurationAtt) then
    FreeAndNil(FDurationAtt);
  if Assigned(FTimeOfDayAtt) then
    FreeAndNil(FTimeOfDayAtt);
  inherited FreeObjectProperties();
end;

function TPropertyValue.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TPropertyValue_AnnotationArray(0) );
end;

function TPropertyValue.wstHas_Binary() : Boolean;
begin
  Result := ( FBinary <> nil );
end;

function TPropertyValue.wstHas_Bool() : Boolean;
begin
  Result := ( FBool <> nil );
end;

function TPropertyValue.wstHas_Date() : Boolean;
begin
  Result := ( FDate <> nil );
end;

function TPropertyValue.wstHas_DateTimeOffset() : Boolean;
begin
  Result := ( FDateTimeOffset <> nil );
end;

function TPropertyValue.wstHas_Decimal() : Boolean;
begin
  Result := ( FDecimal <> nil );
end;

function TPropertyValue.wstHas_Duration() : Boolean;
begin
  Result := ( FDuration <> nil );
end;

function TPropertyValue.wstHas_EnumMember() : Boolean;
begin
  Result := ( FEnumMember <> '' );
end;

function TPropertyValue.wstHas_Float() : Boolean;
begin
  Result := ( FFloat <> nil );
end;

function TPropertyValue.wstHas_Guid() : Boolean;
begin
  Result := ( FGuid <> nil );
end;

function TPropertyValue.wstHas_Int() : Boolean;
begin
  Result := ( FInt <> nil );
end;

function TPropertyValue.wstHas__String() : Boolean;
begin
  Result := ( F_String <> nil );
end;

function TPropertyValue.wstHas_TimeOfDay() : Boolean;
begin
  Result := ( FTimeOfDay <> nil );
end;

function TPropertyValue.wstHas_AnnotationPath() : Boolean;
begin
  Result := ( FAnnotationPath <> nil );
end;

function TPropertyValue.wstHas_Apply() : Boolean;
begin
  Result := ( FApply <> nil );
end;

function TPropertyValue.wstHas_Cast() : Boolean;
begin
  Result := ( FCast <> nil );
end;

function TPropertyValue.wstHas_Collection() : Boolean;
begin
  Result := ( FCollection <> nil );
end;

function TPropertyValue.wstHas__If() : Boolean;
begin
  Result := ( F_If <> nil );
end;

function TPropertyValue.wstHas_Eq() : Boolean;
begin
  Result := ( FEq <> nil );
end;

function TPropertyValue.wstHas_Ne() : Boolean;
begin
  Result := ( FNe <> nil );
end;

function TPropertyValue.wstHas_Ge() : Boolean;
begin
  Result := ( FGe <> nil );
end;

function TPropertyValue.wstHas_Gt() : Boolean;
begin
  Result := ( FGt <> nil );
end;

function TPropertyValue.wstHas_Le() : Boolean;
begin
  Result := ( FLe <> nil );
end;

function TPropertyValue.wstHas_Lt() : Boolean;
begin
  Result := ( FLt <> nil );
end;

function TPropertyValue.wstHas__And() : Boolean;
begin
  Result := ( F_And <> nil );
end;

function TPropertyValue.wstHas__Or() : Boolean;
begin
  Result := ( F_Or <> nil );
end;

function TPropertyValue.wstHas__Not() : Boolean;
begin
  Result := ( F_Not <> nil );
end;

function TPropertyValue.wstHas_IsOf() : Boolean;
begin
  Result := ( FIsOf <> nil );
end;

function TPropertyValue.wstHas_LabeledElement() : Boolean;
begin
  Result := ( FLabeledElement <> nil );
end;

function TPropertyValue.wstHas_LabeledElementReference() : Boolean;
begin
  Result := ( FLabeledElementReference <> nil );
end;

function TPropertyValue.wstHas_Null() : Boolean;
begin
  Result := ( FNull <> TNullExpression(0) );
end;

function TPropertyValue.wstHas_NavigationPropertyPath() : Boolean;
begin
  Result := ( FNavigationPropertyPath <> nil );
end;

function TPropertyValue.wstHas_Path() : Boolean;
begin
  Result := ( FPath <> nil );
end;

function TPropertyValue.wstHas_PropertyPath() : Boolean;
begin
  Result := ( FPropertyPath <> nil );
end;

function TPropertyValue.wstHas__Record() : Boolean;
begin
  Result := ( F_Record <> nil );
end;

function TPropertyValue.wstHas_UrlRef() : Boolean;
begin
  Result := ( FUrlRef <> nil );
end;

function TPropertyValue.wstHas_BinaryAtt() : Boolean;
begin
  Result := ( FBinaryAtt <> '' );
end;

function TPropertyValue.wstHas_BoolAtt() : Boolean;
begin
  Result := ( FBoolAtt <> boolean(0) );
end;

function TPropertyValue.wstHas_DateAtt() : Boolean;
begin
  Result := ( FDateAtt <> nil );
end;

function TPropertyValue.wstHas_DateTimeOffsetAtt() : Boolean;
begin
  Result := ( FDateTimeOffsetAtt <> nil );
end;

function TPropertyValue.wstHas_DecimalAtt() : Boolean;
begin
  Result := ( FDecimalAtt <> 0 );
end;

function TPropertyValue.wstHas_DurationAtt() : Boolean;
begin
  Result := ( FDurationAtt <> nil );
end;

function TPropertyValue.wstHas_EnumMemberAtt() : Boolean;
begin
  Result := ( FEnumMemberAtt <> '' );
end;

function TPropertyValue.wstHas_FloatAtt() : Boolean;
begin
  Result := ( FFloatAtt <> 0 );
end;

function TPropertyValue.wstHas_GuidAtt() : Boolean;
begin
  Result := ( FGuidAtt <> '' );
end;

function TPropertyValue.wstHas_IntAtt() : Boolean;
begin
  Result := ( FIntAtt <> integer(0) );
end;

function TPropertyValue.wstHas__StringAtt() : Boolean;
begin
  Result := ( F_StringAtt <> '' );
end;

function TPropertyValue.wstHas_TimeOfDayAtt() : Boolean;
begin
  Result := ( FTimeOfDayAtt <> nil );
end;

function TPropertyValue.wstHas_AnnotationPathAtt() : Boolean;
begin
  Result := ( FAnnotationPathAtt <> '' );
end;

function TPropertyValue.wstHas_NavigationPropertyPathAtt() : Boolean;
begin
  Result := ( FNavigationPropertyPathAtt <> '' );
end;

function TPropertyValue.wstHas_PathAtt() : Boolean;
begin
  Result := ( FPathAtt <> '' );
end;

function TPropertyValue.wstHas_PropertyPathAtt() : Boolean;
begin
  Result := ( FPropertyPathAtt <> '' );
end;

function TPropertyValue.wstHas_UrlRefAtt() : Boolean;
begin
  Result := ( FUrlRefAtt <> '' );
end;

{ TEntityContainer }

constructor TEntityContainer.Create();
begin
  inherited Create();
  FEntitySet := TEntityContainer_EntitySetArray.Create();
  FActionImport := TEntityContainer_ActionImportArray.Create();
  FFunctionImport := TEntityContainer_FunctionImportArray.Create();
  FSingleton := TEntityContainer_SingletonArray.Create();
  FAnnotation := TEntityContainer_AnnotationArray.Create();
end;

procedure TEntityContainer.FreeObjectProperties();
begin
  if Assigned(FEntitySet) then
    FreeAndNil(FEntitySet);
  if Assigned(FActionImport) then
    FreeAndNil(FActionImport);
  if Assigned(FFunctionImport) then
    FreeAndNil(FFunctionImport);
  if Assigned(FSingleton) then
    FreeAndNil(FSingleton);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TEntityContainer.wstHas_EntitySet() : Boolean;
begin
  Result := ( FEntitySet <> TEntityContainer_EntitySetArray(0) );
end;

function TEntityContainer.wstHas_ActionImport() : Boolean;
begin
  Result := ( FActionImport <> TEntityContainer_ActionImportArray(0) );
end;

function TEntityContainer.wstHas_FunctionImport() : Boolean;
begin
  Result := ( FFunctionImport <> TEntityContainer_FunctionImportArray(0) );
end;

function TEntityContainer.wstHas_Singleton() : Boolean;
begin
  Result := ( FSingleton <> TEntityContainer_SingletonArray(0) );
end;

function TEntityContainer.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TEntityContainer_AnnotationArray(0) );
end;

function TEntityContainer.wstHas_Extends() : Boolean;
begin
  Result := ( FExtends <> '' );
end;

function TEntitySetAttributes.wstHas_IncludeInServiceDocument() : Boolean;
begin
  Result := ( FIncludeInServiceDocument <> boolean(0) );
end;

{ TEntitySet }

constructor TEntitySet.Create();
begin
  inherited Create();
  FNavigationPropertyBinding := TEntitySet_NavigationPropertyBindingArray.Create();
  FAnnotation := TEntitySet_AnnotationArray.Create();
end;

procedure TEntitySet.FreeObjectProperties();
begin
  if Assigned(FNavigationPropertyBinding) then
    FreeAndNil(FNavigationPropertyBinding);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TEntitySet.wstHas_NavigationPropertyBinding() : Boolean;
begin
  Result := ( FNavigationPropertyBinding <> TEntitySet_NavigationPropertyBindingArray(0) );
end;

function TEntitySet.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TEntitySet_AnnotationArray(0) );
end;

function TEntitySet.wstHas_IncludeInServiceDocument() : Boolean;
begin
  Result := ( FIncludeInServiceDocument <> boolean(0) );
end;

{ TSingleton }

constructor TSingleton.Create();
begin
  inherited Create();
  FNavigationPropertyBinding := TSingleton_NavigationPropertyBindingArray.Create();
  FAnnotation := TSingleton_AnnotationArray.Create();
end;

procedure TSingleton.FreeObjectProperties();
begin
  if Assigned(FNavigationPropertyBinding) then
    FreeAndNil(FNavigationPropertyBinding);
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TSingleton.wstHas_NavigationPropertyBinding() : Boolean;
begin
  Result := ( FNavigationPropertyBinding <> TSingleton_NavigationPropertyBindingArray(0) );
end;

function TSingleton.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TSingleton_AnnotationArray(0) );
end;

function TActionFunctionImportAttributes.wstHas_EntitySet() : Boolean;
begin
  Result := ( FEntitySet <> '' );
end;

function TActionFunctionImportAttributes.wstHas_IncludeInServiceDocument() : Boolean;
begin
  Result := ( FIncludeInServiceDocument <> boolean(0) );
end;

{ TActionImport }

constructor TActionImport.Create();
begin
  inherited Create();
  FAnnotation := TActionImport_AnnotationArray.Create();
end;

procedure TActionImport.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TActionImport.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TActionImport_AnnotationArray(0) );
end;

function TActionImport.wstHas_EntitySet() : Boolean;
begin
  Result := ( FEntitySet <> '' );
end;

function TActionImport.wstHas_IncludeInServiceDocument() : Boolean;
begin
  Result := ( FIncludeInServiceDocument <> boolean(0) );
end;

{ TFunctionImport }

constructor TFunctionImport.Create();
begin
  inherited Create();
  FAnnotation := TFunctionImport_AnnotationArray.Create();
end;

procedure TFunctionImport.FreeObjectProperties();
begin
  if Assigned(FAnnotation) then
    FreeAndNil(FAnnotation);
  inherited FreeObjectProperties();
end;

function TFunctionImport.wstHas_Annotation() : Boolean;
begin
  Result := ( FAnnotation <> TFunctionImport_AnnotationArray(0) );
end;

function TFunctionImport.wstHas_EntitySet() : Boolean;
begin
  Result := ( FEntitySet <> '' );
end;

function TFunctionImport.wstHas_IncludeInServiceDocument() : Boolean;
begin
  Result := ( FIncludeInServiceDocument <> boolean(0) );
end;

{ Schema_ComplexTypeArray }

function Schema_ComplexTypeArray.GetItem(AIndex: Integer): TComplexType;
begin
  Result := TComplexType(Inherited GetItem(AIndex));
end;

class function Schema_ComplexTypeArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TComplexType;
end;

function Schema_ComplexTypeArray.Add() : TComplexType;
begin
  Result := TComplexType(inherited Add());
end;

function Schema_ComplexTypeArray.AddAt(const APosition : Integer) : TComplexType;
begin
  Result := TComplexType(inherited AddAt(APosition));
end;

{ Schema_EntityTypeArray }

function Schema_EntityTypeArray.GetItem(AIndex: Integer): TEntityType;
begin
  Result := TEntityType(Inherited GetItem(AIndex));
end;

class function Schema_EntityTypeArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TEntityType;
end;

function Schema_EntityTypeArray.Add() : TEntityType;
begin
  Result := TEntityType(inherited Add());
end;

function Schema_EntityTypeArray.AddAt(const APosition : Integer) : TEntityType;
begin
  Result := TEntityType(inherited AddAt(APosition));
end;

{ Schema_TypeDefinitionArray }

function Schema_TypeDefinitionArray.GetItem(AIndex: Integer): TTypeDefinition;
begin
  Result := TTypeDefinition(Inherited GetItem(AIndex));
end;

class function Schema_TypeDefinitionArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TTypeDefinition;
end;

function Schema_TypeDefinitionArray.Add() : TTypeDefinition;
begin
  Result := TTypeDefinition(inherited Add());
end;

function Schema_TypeDefinitionArray.AddAt(const APosition : Integer) : TTypeDefinition;
begin
  Result := TTypeDefinition(inherited AddAt(APosition));
end;

{ Schema_EnumTypeArray }

function Schema_EnumTypeArray.GetItem(AIndex: Integer): TEnumType;
begin
  Result := TEnumType(Inherited GetItem(AIndex));
end;

class function Schema_EnumTypeArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TEnumType;
end;

function Schema_EnumTypeArray.Add() : TEnumType;
begin
  Result := TEnumType(inherited Add());
end;

function Schema_EnumTypeArray.AddAt(const APosition : Integer) : TEnumType;
begin
  Result := TEnumType(inherited AddAt(APosition));
end;

{ Schema_ActionArray }

function Schema_ActionArray.GetItem(AIndex: Integer): TAction;
begin
  Result := TAction(Inherited GetItem(AIndex));
end;

class function Schema_ActionArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TAction;
end;

function Schema_ActionArray.Add() : TAction;
begin
  Result := TAction(inherited Add());
end;

function Schema_ActionArray.AddAt(const APosition : Integer) : TAction;
begin
  Result := TAction(inherited AddAt(APosition));
end;

{ Schema__FunctionArray }

function Schema__FunctionArray.GetItem(AIndex: Integer): TFunction;
begin
  Result := TFunction(Inherited GetItem(AIndex));
end;

class function Schema__FunctionArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TFunction;
end;

function Schema__FunctionArray.Add() : TFunction;
begin
  Result := TFunction(inherited Add());
end;

function Schema__FunctionArray.AddAt(const APosition : Integer) : TFunction;
begin
  Result := TFunction(inherited AddAt(APosition));
end;

{ Schema_TermArray }

function Schema_TermArray.GetItem(AIndex: Integer): TTerm;
begin
  Result := TTerm(Inherited GetItem(AIndex));
end;

class function Schema_TermArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TTerm;
end;

function Schema_TermArray.Add() : TTerm;
begin
  Result := TTerm(inherited Add());
end;

function Schema_TermArray.AddAt(const APosition : Integer) : TTerm;
begin
  Result := TTerm(inherited AddAt(APosition));
end;

{ Schema_AnnotationsArray }

function Schema_AnnotationsArray.GetItem(AIndex: Integer): TAnnotations;
begin
  Result := TAnnotations(Inherited GetItem(AIndex));
end;

class function Schema_AnnotationsArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TAnnotations;
end;

function Schema_AnnotationsArray.Add() : TAnnotations;
begin
  Result := TAnnotations(inherited Add());
end;

function Schema_AnnotationsArray.AddAt(const APosition : Integer) : TAnnotations;
begin
  Result := TAnnotations(inherited AddAt(APosition));
end;

{ Schema_EntityContainerArray }

function Schema_EntityContainerArray.GetItem(AIndex: Integer): TEntityContainer;
begin
  Result := TEntityContainer(Inherited GetItem(AIndex));
end;

class function Schema_EntityContainerArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TEntityContainer;
end;

function Schema_EntityContainerArray.Add() : TEntityContainer;
begin
  Result := TEntityContainer(inherited Add());
end;

function Schema_EntityContainerArray.AddAt(const APosition : Integer) : TEntityContainer;
begin
  Result := TEntityContainer(inherited AddAt(APosition));
end;

{ Schema_AnnotationArray }

function Schema_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure Schema_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function Schema_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure Schema_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure Schema_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function Schema_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure Schema_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure Schema_AnnotationArray.Assign(Source: TPersistent);
var
  src : Schema_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(Schema_AnnotationArray) then begin
    src := Schema_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TEntityType_KeyArray }

function TEntityType_KeyArray.GetItem(AIndex: Integer): TEntityKeyElement;
begin
  Result := TEntityKeyElement(Inherited GetItem(AIndex));
end;

class function TEntityType_KeyArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TEntityKeyElement;
end;

function TEntityType_KeyArray.Add() : TEntityKeyElement;
begin
  Result := TEntityKeyElement(inherited Add());
end;

function TEntityType_KeyArray.AddAt(const APosition : Integer) : TEntityKeyElement;
begin
  Result := TEntityKeyElement(inherited AddAt(APosition));
end;

{ TEntityType__PropertyArray }

function TEntityType__PropertyArray.GetItem(AIndex: Integer): TProperty;
begin
  Result := TProperty(Inherited GetItem(AIndex));
end;

class function TEntityType__PropertyArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TProperty;
end;

function TEntityType__PropertyArray.Add() : TProperty;
begin
  Result := TProperty(inherited Add());
end;

function TEntityType__PropertyArray.AddAt(const APosition : Integer) : TProperty;
begin
  Result := TProperty(inherited AddAt(APosition));
end;

{ TEntityType_NavigationPropertyArray }

function TEntityType_NavigationPropertyArray.GetItem(AIndex: Integer): TNavigationProperty;
begin
  Result := TNavigationProperty(Inherited GetItem(AIndex));
end;

class function TEntityType_NavigationPropertyArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TNavigationProperty;
end;

function TEntityType_NavigationPropertyArray.Add() : TNavigationProperty;
begin
  Result := TNavigationProperty(inherited Add());
end;

function TEntityType_NavigationPropertyArray.AddAt(const APosition : Integer) : TNavigationProperty;
begin
  Result := TNavigationProperty(inherited AddAt(APosition));
end;

{ TEntityType_AnnotationArray }

function TEntityType_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TEntityType_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TEntityType_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TEntityType_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TEntityType_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TEntityType_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TEntityType_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TEntityType_AnnotationArray.Assign(Source: TPersistent);
var
  src : TEntityType_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TEntityType_AnnotationArray) then begin
    src := TEntityType_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TEntityKeyElement }

function TEntityKeyElement.GetItem(AIndex: Integer): TPropertyRef;
begin
  Result := TPropertyRef(Inherited GetItem(AIndex));
end;

class function TEntityKeyElement.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TPropertyRef;
end;

function TEntityKeyElement.Add() : TPropertyRef;
begin
  Result := TPropertyRef(inherited Add());
end;

function TEntityKeyElement.AddAt(const APosition : Integer) : TPropertyRef;
begin
  Result := TPropertyRef(inherited AddAt(APosition));
end;

{ TComplexType__PropertyArray }

function TComplexType__PropertyArray.GetItem(AIndex: Integer): TProperty;
begin
  Result := TProperty(Inherited GetItem(AIndex));
end;

class function TComplexType__PropertyArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TProperty;
end;

function TComplexType__PropertyArray.Add() : TProperty;
begin
  Result := TProperty(inherited Add());
end;

function TComplexType__PropertyArray.AddAt(const APosition : Integer) : TProperty;
begin
  Result := TProperty(inherited AddAt(APosition));
end;

{ TComplexType_NavigationPropertyArray }

function TComplexType_NavigationPropertyArray.GetItem(AIndex: Integer): TNavigationProperty;
begin
  Result := TNavigationProperty(Inherited GetItem(AIndex));
end;

class function TComplexType_NavigationPropertyArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TNavigationProperty;
end;

function TComplexType_NavigationPropertyArray.Add() : TNavigationProperty;
begin
  Result := TNavigationProperty(inherited Add());
end;

function TComplexType_NavigationPropertyArray.AddAt(const APosition : Integer) : TNavigationProperty;
begin
  Result := TNavigationProperty(inherited AddAt(APosition));
end;

{ TComplexType_AnnotationArray }

function TComplexType_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TComplexType_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TComplexType_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TComplexType_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TComplexType_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TComplexType_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TComplexType_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TComplexType_AnnotationArray.Assign(Source: TPersistent);
var
  src : TComplexType_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TComplexType_AnnotationArray) then begin
    src := TComplexType_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TProperty_AnnotationArray }

function TProperty_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TProperty_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TProperty_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TProperty_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TProperty_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TProperty_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TProperty_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TProperty_AnnotationArray.Assign(Source: TPersistent);
var
  src : TProperty_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TProperty_AnnotationArray) then begin
    src := TProperty_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TTypeDefinition_AnnotationArray }

function TTypeDefinition_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TTypeDefinition_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TTypeDefinition_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TTypeDefinition_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TTypeDefinition_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TTypeDefinition_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TTypeDefinition_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TTypeDefinition_AnnotationArray.Assign(Source: TPersistent);
var
  src : TTypeDefinition_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TTypeDefinition_AnnotationArray) then begin
    src := TTypeDefinition_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TNavigationProperty_ReferentialConstraintArray }

function TNavigationProperty_ReferentialConstraintArray.GetItem(AIndex: Integer): TReferentialConstraint;
begin
  Result := TReferentialConstraint(Inherited GetItem(AIndex));
end;

class function TNavigationProperty_ReferentialConstraintArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TReferentialConstraint;
end;

function TNavigationProperty_ReferentialConstraintArray.Add() : TReferentialConstraint;
begin
  Result := TReferentialConstraint(inherited Add());
end;

function TNavigationProperty_ReferentialConstraintArray.AddAt(const APosition : Integer) : TReferentialConstraint;
begin
  Result := TReferentialConstraint(inherited AddAt(APosition));
end;

{ TNavigationProperty_OnDeleteArray }

function TNavigationProperty_OnDeleteArray.GetItem(AIndex: Integer): TOnDelete;
begin
  Result := TOnDelete(Inherited GetItem(AIndex));
end;

class function TNavigationProperty_OnDeleteArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TOnDelete;
end;

function TNavigationProperty_OnDeleteArray.Add() : TOnDelete;
begin
  Result := TOnDelete(inherited Add());
end;

function TNavigationProperty_OnDeleteArray.AddAt(const APosition : Integer) : TOnDelete;
begin
  Result := TOnDelete(inherited AddAt(APosition));
end;

{ TNavigationProperty_AnnotationArray }

function TNavigationProperty_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TNavigationProperty_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TNavigationProperty_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TNavigationProperty_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TNavigationProperty_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TNavigationProperty_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TNavigationProperty_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TNavigationProperty_AnnotationArray.Assign(Source: TPersistent);
var
  src : TNavigationProperty_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TNavigationProperty_AnnotationArray) then begin
    src := TNavigationProperty_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TReferentialConstraint_AnnotationArray }

function TReferentialConstraint_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TReferentialConstraint_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TReferentialConstraint_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TReferentialConstraint_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TReferentialConstraint_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TReferentialConstraint_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TReferentialConstraint_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TReferentialConstraint_AnnotationArray.Assign(Source: TPersistent);
var
  src : TReferentialConstraint_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TReferentialConstraint_AnnotationArray) then begin
    src := TReferentialConstraint_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TOnDelete_AnnotationArray }

function TOnDelete_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TOnDelete_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TOnDelete_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TOnDelete_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TOnDelete_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TOnDelete_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TOnDelete_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TOnDelete_AnnotationArray.Assign(Source: TPersistent);
var
  src : TOnDelete_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TOnDelete_AnnotationArray) then begin
    src := TOnDelete_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TEnumType_MemberArray }

function TEnumType_MemberArray.GetItem(AIndex: Integer): TEnumTypeMember;
begin
  Result := TEnumTypeMember(Inherited GetItem(AIndex));
end;

class function TEnumType_MemberArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TEnumTypeMember;
end;

function TEnumType_MemberArray.Add() : TEnumTypeMember;
begin
  Result := TEnumTypeMember(inherited Add());
end;

function TEnumType_MemberArray.AddAt(const APosition : Integer) : TEnumTypeMember;
begin
  Result := TEnumTypeMember(inherited AddAt(APosition));
end;

{ TEnumType_AnnotationArray }

function TEnumType_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TEnumType_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TEnumType_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TEnumType_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TEnumType_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TEnumType_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TEnumType_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TEnumType_AnnotationArray.Assign(Source: TPersistent);
var
  src : TEnumType_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TEnumType_AnnotationArray) then begin
    src := TEnumType_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TEnumTypeMember_AnnotationArray }

function TEnumTypeMember_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TEnumTypeMember_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TEnumTypeMember_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TEnumTypeMember_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TEnumTypeMember_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TEnumTypeMember_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TEnumTypeMember_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TEnumTypeMember_AnnotationArray.Assign(Source: TPersistent);
var
  src : TEnumTypeMember_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TEnumTypeMember_AnnotationArray) then begin
    src := TEnumTypeMember_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TActionFunctionReturnType_AnnotationArray }

function TActionFunctionReturnType_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TActionFunctionReturnType_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TActionFunctionReturnType_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TActionFunctionReturnType_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TActionFunctionReturnType_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TActionFunctionReturnType_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TActionFunctionReturnType_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TActionFunctionReturnType_AnnotationArray.Assign(Source: TPersistent);
var
  src : TActionFunctionReturnType_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TActionFunctionReturnType_AnnotationArray) then begin
    src := TActionFunctionReturnType_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TAction_ParameterArray }

function TAction_ParameterArray.GetItem(AIndex: Integer): TActionFunctionParameter;
begin
  Result := TActionFunctionParameter(Inherited GetItem(AIndex));
end;

class function TAction_ParameterArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TActionFunctionParameter;
end;

function TAction_ParameterArray.Add() : TActionFunctionParameter;
begin
  Result := TActionFunctionParameter(inherited Add());
end;

function TAction_ParameterArray.AddAt(const APosition : Integer) : TActionFunctionParameter;
begin
  Result := TActionFunctionParameter(inherited AddAt(APosition));
end;

{ TAction_AnnotationArray }

function TAction_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TAction_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TAction_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TAction_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TAction_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TAction_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TAction_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TAction_AnnotationArray.Assign(Source: TPersistent);
var
  src : TAction_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TAction_AnnotationArray) then begin
    src := TAction_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TFunction_ParameterArray }

function TFunction_ParameterArray.GetItem(AIndex: Integer): TActionFunctionParameter;
begin
  Result := TActionFunctionParameter(Inherited GetItem(AIndex));
end;

class function TFunction_ParameterArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TActionFunctionParameter;
end;

function TFunction_ParameterArray.Add() : TActionFunctionParameter;
begin
  Result := TActionFunctionParameter(inherited Add());
end;

function TFunction_ParameterArray.AddAt(const APosition : Integer) : TActionFunctionParameter;
begin
  Result := TActionFunctionParameter(inherited AddAt(APosition));
end;

{ TFunction_AnnotationArray }

function TFunction_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TFunction_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TFunction_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TFunction_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TFunction_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TFunction_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TFunction_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TFunction_AnnotationArray.Assign(Source: TPersistent);
var
  src : TFunction_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TFunction_AnnotationArray) then begin
    src := TFunction_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TActionFunctionParameter_AnnotationArray }

function TActionFunctionParameter_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TActionFunctionParameter_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TActionFunctionParameter_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TActionFunctionParameter_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TActionFunctionParameter_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TActionFunctionParameter_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TActionFunctionParameter_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TActionFunctionParameter_AnnotationArray.Assign(Source: TPersistent);
var
  src : TActionFunctionParameter_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TActionFunctionParameter_AnnotationArray) then begin
    src := TActionFunctionParameter_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TTerm_AnnotationArray }

function TTerm_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TTerm_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TTerm_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TTerm_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TTerm_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TTerm_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TTerm_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TTerm_AnnotationArray.Assign(Source: TPersistent);
var
  src : TTerm_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TTerm_AnnotationArray) then begin
    src := TTerm_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TAnnotations_AnnotationArray }

function TAnnotations_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure TAnnotations_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function TAnnotations_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure TAnnotations_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure TAnnotations_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function TAnnotations_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure TAnnotations_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure TAnnotations_AnnotationArray.Assign(Source: TPersistent);
var
  src : TAnnotations_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(TAnnotations_AnnotationArray) then begin
    src := TAnnotations_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ Annotation_AnnotationArray }

function Annotation_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  CheckIndex(AIndex);
  Result := FData[AIndex];
end;

procedure Annotation_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
begin
  CheckIndex(AIndex);
  FData[AIndex] := AValue;
end;

function Annotation_AnnotationArray.GetLength(): Integer;
begin
  Result := System.Length(FData);
end;

procedure Annotation_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
begin
  AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
end;

procedure Annotation_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
var
  sName : string;
begin
  sName := 'Annotation';
  AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
end;

class function Annotation_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
begin
  Result := TypeInfo(Annotation_Type);
end;

procedure Annotation_AnnotationArray.SetLength(const ANewSize: Integer);
var
  i : Integer;
begin
  if ( ANewSize < 0 ) then
    i := 0
  else
    i := ANewSize;
  System.SetLength(FData,i);
end;

procedure Annotation_AnnotationArray.Assign(Source: TPersistent);
var
  src : Annotation_AnnotationArray;
  i, c : Integer;
begin
  if Assigned(Source) and Source.InheritsFrom(Annotation_AnnotationArray) then begin
    src := Annotation_AnnotationArray(Source);
    c := src.Length;
    Self.SetLength(c);
    if ( c > 0 ) then begin
      for i := 0 to Pred(c) do begin
        Self[i] := src[i];
      end;
    end;
  end else begin
    inherited Assign(Source);
  end;
end;

{ TApplyExpression_AnnotationArray }

function TApplyExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TApplyExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TApplyExpression_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TApplyExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TCastOrIsOfExpression_AnnotationArray }

function TCastOrIsOfExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TCastOrIsOfExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TCastOrIsOfExpression_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TCastOrIsOfExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TIfExpression_AnnotationArray }

function TIfExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TIfExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TIfExpression_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TIfExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TOneChildExpression_AnnotationArray }

function TOneChildExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TOneChildExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TOneChildExpression_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TOneChildExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TTwoChildrenExpression_AnnotationArray }

function TTwoChildrenExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TTwoChildrenExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TTwoChildrenExpression_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TTwoChildrenExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TLabeledElementExpression_AnnotationArray }

function TLabeledElementExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TLabeledElementExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TLabeledElementExpression_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TLabeledElementExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TNullExpression }

function TNullExpression.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TNullExpression.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TNullExpression.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TNullExpression.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TRecordExpression_PropertyValueArray }

function TRecordExpression_PropertyValueArray.GetItem(AIndex: Integer): TPropertyValue;
begin
  Result := TPropertyValue(Inherited GetItem(AIndex));
end;

class function TRecordExpression_PropertyValueArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TPropertyValue;
end;

function TRecordExpression_PropertyValueArray.Add() : TPropertyValue;
begin
  Result := TPropertyValue(inherited Add());
end;

function TRecordExpression_PropertyValueArray.AddAt(const APosition : Integer) : TPropertyValue;
begin
  Result := TPropertyValue(inherited AddAt(APosition));
end;

{ TRecordExpression_AnnotationArray }

function TRecordExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TRecordExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TRecordExpression_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TRecordExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TPropertyValue_AnnotationArray }

function TPropertyValue_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TPropertyValue_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TPropertyValue_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TPropertyValue_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TEntityContainer_EntitySetArray }

function TEntityContainer_EntitySetArray.GetItem(AIndex: Integer): TEntitySet;
begin
  Result := TEntitySet(Inherited GetItem(AIndex));
end;

class function TEntityContainer_EntitySetArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TEntitySet;
end;

function TEntityContainer_EntitySetArray.Add() : TEntitySet;
begin
  Result := TEntitySet(inherited Add());
end;

function TEntityContainer_EntitySetArray.AddAt(const APosition : Integer) : TEntitySet;
begin
  Result := TEntitySet(inherited AddAt(APosition));
end;

{ TEntityContainer_ActionImportArray }

function TEntityContainer_ActionImportArray.GetItem(AIndex: Integer): TActionImport;
begin
  Result := TActionImport(Inherited GetItem(AIndex));
end;

class function TEntityContainer_ActionImportArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TActionImport;
end;

function TEntityContainer_ActionImportArray.Add() : TActionImport;
begin
  Result := TActionImport(inherited Add());
end;

function TEntityContainer_ActionImportArray.AddAt(const APosition : Integer) : TActionImport;
begin
  Result := TActionImport(inherited AddAt(APosition));
end;

{ TEntityContainer_FunctionImportArray }

function TEntityContainer_FunctionImportArray.GetItem(AIndex: Integer): TFunctionImport;
begin
  Result := TFunctionImport(Inherited GetItem(AIndex));
end;

class function TEntityContainer_FunctionImportArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TFunctionImport;
end;

function TEntityContainer_FunctionImportArray.Add() : TFunctionImport;
begin
  Result := TFunctionImport(inherited Add());
end;

function TEntityContainer_FunctionImportArray.AddAt(const APosition : Integer) : TFunctionImport;
begin
  Result := TFunctionImport(inherited AddAt(APosition));
end;

{ TEntityContainer_SingletonArray }

function TEntityContainer_SingletonArray.GetItem(AIndex: Integer): TSingleton;
begin
  Result := TSingleton(Inherited GetItem(AIndex));
end;

class function TEntityContainer_SingletonArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TSingleton;
end;

function TEntityContainer_SingletonArray.Add() : TSingleton;
begin
  Result := TSingleton(inherited Add());
end;

function TEntityContainer_SingletonArray.AddAt(const APosition : Integer) : TSingleton;
begin
  Result := TSingleton(inherited AddAt(APosition));
end;

{ TEntityContainer_AnnotationArray }

function TEntityContainer_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TEntityContainer_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TEntityContainer_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TEntityContainer_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TEntitySet_NavigationPropertyBindingArray }

function TEntitySet_NavigationPropertyBindingArray.GetItem(AIndex: Integer): TNavigationPropertyBinding;
begin
  Result := TNavigationPropertyBinding(Inherited GetItem(AIndex));
end;

class function TEntitySet_NavigationPropertyBindingArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TNavigationPropertyBinding;
end;

function TEntitySet_NavigationPropertyBindingArray.Add() : TNavigationPropertyBinding;
begin
  Result := TNavigationPropertyBinding(inherited Add());
end;

function TEntitySet_NavigationPropertyBindingArray.AddAt(const APosition : Integer) : TNavigationPropertyBinding;
begin
  Result := TNavigationPropertyBinding(inherited AddAt(APosition));
end;

{ TEntitySet_AnnotationArray }

function TEntitySet_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TEntitySet_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TEntitySet_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TEntitySet_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TSingleton_NavigationPropertyBindingArray }

function TSingleton_NavigationPropertyBindingArray.GetItem(AIndex: Integer): TNavigationPropertyBinding;
begin
  Result := TNavigationPropertyBinding(Inherited GetItem(AIndex));
end;

class function TSingleton_NavigationPropertyBindingArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= TNavigationPropertyBinding;
end;

function TSingleton_NavigationPropertyBindingArray.Add() : TNavigationPropertyBinding;
begin
  Result := TNavigationPropertyBinding(inherited Add());
end;

function TSingleton_NavigationPropertyBindingArray.AddAt(const APosition : Integer) : TNavigationPropertyBinding;
begin
  Result := TNavigationPropertyBinding(inherited AddAt(APosition));
end;

{ TSingleton_AnnotationArray }

function TSingleton_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TSingleton_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TSingleton_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TSingleton_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TActionImport_AnnotationArray }

function TActionImport_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TActionImport_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TActionImport_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TActionImport_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;

{ TFunctionImport_AnnotationArray }

function TFunctionImport_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
begin
  Result := Annotation_Type(Inherited GetItem(AIndex));
end;

class function TFunctionImport_AnnotationArray.GetItemClass(): TBaseRemotableClass;
begin
  Result:= Annotation_Type;
end;

function TFunctionImport_AnnotationArray.Add() : Annotation_Type;
begin
  Result := Annotation_Type(inherited Add());
end;

function TFunctionImport_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
begin
  Result := Annotation_Type(inherited AddAt(APosition));
end;


var
  typeRegistryInstance : TTypeRegistry = nil;
initialization
  typeRegistryInstance := GetTypeRegistry();
  Schema.RegisterAttributeProperty('Namespace');
  Schema.RegisterAttributeProperty('Alias');
  TTypeAttributes.RegisterAttributeProperty('Name');
  TDerivableTypeAttributes.RegisterAttributeProperty('BaseType');
  TDerivableTypeAttributes.RegisterAttributeProperty('_Abstract');
  TDerivableTypeAttributes.RegisterAttributeProperty('Name');
  TEntityType.RegisterAttributeProperty('OpenType');
  TEntityType.RegisterAttributeProperty('HasStream');
  TEntityType.RegisterAttributeProperty('BaseType');
  TEntityType.RegisterAttributeProperty('_Abstract');
  TEntityType.RegisterAttributeProperty('Name');
  TPropertyRef.RegisterAttributeProperty('Name');
  TPropertyRef.RegisterAttributeProperty('Alias');
  TComplexType.RegisterAttributeProperty('OpenType');
  TComplexType.RegisterAttributeProperty('BaseType');
  TComplexType.RegisterAttributeProperty('_Abstract');
  TComplexType.RegisterAttributeProperty('Name');
  TFacetAttributes.RegisterAttributeProperty('MaxLength');
  TFacetAttributes.RegisterAttributeProperty('Precision');
  TFacetAttributes.RegisterAttributeProperty('Scale');
  TFacetAttributes.RegisterAttributeProperty('SRID');
  TPropertyFacetAttributes.RegisterAttributeProperty('Unicode');
  TCommonPropertyAttributes.RegisterAttributeProperty('Name');
  TCommonPropertyAttributes.RegisterAttributeProperty('_Type');
  TCommonPropertyAttributes.RegisterAttributeProperty('Nullable');
  TCommonPropertyAttributes.RegisterAttributeProperty('DefaultValue');
  TCommonPropertyAttributes.RegisterAttributeProperty('MaxLength');
  TCommonPropertyAttributes.RegisterAttributeProperty('Precision');
  TCommonPropertyAttributes.RegisterAttributeProperty('Scale');
  TCommonPropertyAttributes.RegisterAttributeProperty('SRID');
  TCommonPropertyAttributes.RegisterAttributeProperty('Unicode');
  TProperty.RegisterAttributeProperty('Name');
  TProperty.RegisterAttributeProperty('_Type');
  TProperty.RegisterAttributeProperty('Nullable');
  TProperty.RegisterAttributeProperty('DefaultValue');
  TProperty.RegisterAttributeProperty('MaxLength');
  TProperty.RegisterAttributeProperty('Precision');
  TProperty.RegisterAttributeProperty('Scale');
  TProperty.RegisterAttributeProperty('SRID');
  TProperty.RegisterAttributeProperty('Unicode');
  TTypeDefinition.RegisterAttributeProperty('Name');
  TTypeDefinition.RegisterAttributeProperty('UnderlyingType');
  TTypeDefinition.RegisterAttributeProperty('MaxLength');
  TTypeDefinition.RegisterAttributeProperty('Precision');
  TTypeDefinition.RegisterAttributeProperty('Scale');
  TTypeDefinition.RegisterAttributeProperty('SRID');
  TTypeDefinition.RegisterAttributeProperty('Unicode');
  TNavigationProperty.RegisterAttributeProperty('Name');
  TNavigationProperty.RegisterAttributeProperty('_Type');
  TNavigationProperty.RegisterAttributeProperty('Nullable');
  TNavigationProperty.RegisterAttributeProperty('Partner');
  TNavigationProperty.RegisterAttributeProperty('ContainsTarget');
  TReferentialConstraint.RegisterAttributeProperty('_Property');
  TReferentialConstraint.RegisterAttributeProperty('ReferencedProperty');
  TOnDelete.RegisterAttributeProperty('Action');
  TEnumType.RegisterAttributeProperty('IsFlags');
  TEnumType.RegisterAttributeProperty('UnderlyingType');
  TEnumType.RegisterAttributeProperty('Name');
  TEnumTypeMember.RegisterAttributeProperty('Name');
  TEnumTypeMember.RegisterAttributeProperty('Value');
  TActionFunctionReturnType.RegisterAttributeProperty('_Type');
  TActionFunctionReturnType.RegisterAttributeProperty('Nullable');
  TActionFunctionReturnType.RegisterAttributeProperty('MaxLength');
  TActionFunctionReturnType.RegisterAttributeProperty('Precision');
  TActionFunctionReturnType.RegisterAttributeProperty('Scale');
  TActionFunctionReturnType.RegisterAttributeProperty('SRID');
  TActionAttributes.RegisterAttributeProperty('Name');
  TActionAttributes.RegisterAttributeProperty('EntitySetPath');
  TActionAttributes.RegisterAttributeProperty('IsBound');
  TAction.RegisterAttributeProperty('Name');
  TAction.RegisterAttributeProperty('EntitySetPath');
  TAction.RegisterAttributeProperty('IsBound');
  TFunctionAttributes.RegisterAttributeProperty('Name');
  TFunctionAttributes.RegisterAttributeProperty('EntitySetPath');
  TFunctionAttributes.RegisterAttributeProperty('IsBound');
  TFunctionAttributes.RegisterAttributeProperty('IsComposable');
  TFunction.RegisterAttributeProperty('Name');
  TFunction.RegisterAttributeProperty('EntitySetPath');
  TFunction.RegisterAttributeProperty('IsBound');
  TFunction.RegisterAttributeProperty('IsComposable');
  TActionFunctionParameterAttributes.RegisterAttributeProperty('Name');
  TActionFunctionParameterAttributes.RegisterAttributeProperty('_Type');
  TActionFunctionParameterAttributes.RegisterAttributeProperty('Nullable');
  TActionFunctionParameterAttributes.RegisterAttributeProperty('MaxLength');
  TActionFunctionParameterAttributes.RegisterAttributeProperty('Precision');
  TActionFunctionParameterAttributes.RegisterAttributeProperty('Scale');
  TActionFunctionParameterAttributes.RegisterAttributeProperty('SRID');
  TActionFunctionParameter.RegisterAttributeProperty('Name');
  TActionFunctionParameter.RegisterAttributeProperty('_Type');
  TActionFunctionParameter.RegisterAttributeProperty('Nullable');
  TActionFunctionParameter.RegisterAttributeProperty('MaxLength');
  TActionFunctionParameter.RegisterAttributeProperty('Precision');
  TActionFunctionParameter.RegisterAttributeProperty('Scale');
  TActionFunctionParameter.RegisterAttributeProperty('SRID');
  TTerm.RegisterAttributeProperty('Name');
  TTerm.RegisterAttributeProperty('_Type');
  TTerm.RegisterAttributeProperty('BaseTerm');
  TTerm.RegisterAttributeProperty('Nullable');
  TTerm.RegisterAttributeProperty('DefaultValue');
  TTerm.RegisterAttributeProperty('AppliesTo');
  TTerm.RegisterAttributeProperty('MaxLength');
  TTerm.RegisterAttributeProperty('Precision');
  TTerm.RegisterAttributeProperty('Scale');
  TTerm.RegisterAttributeProperty('SRID');
  TAnnotations.RegisterAttributeProperty('Target');
  TAnnotations.RegisterAttributeProperty('Qualifier');
  GInlineExpressions.RegisterAttributeProperty('Binary');
  GInlineExpressions.RegisterAttributeProperty('Bool');
  GInlineExpressions.RegisterAttributeProperty('Date');
  GInlineExpressions.RegisterAttributeProperty('DateTimeOffset');
  GInlineExpressions.RegisterAttributeProperty('Decimal');
  GInlineExpressions.RegisterAttributeProperty('Duration');
  GInlineExpressions.RegisterAttributeProperty('EnumMember');
  GInlineExpressions.RegisterAttributeProperty('Float');
  GInlineExpressions.RegisterAttributeProperty('Guid');
  GInlineExpressions.RegisterAttributeProperty('Int');
  GInlineExpressions.RegisterAttributeProperty('_String');
  GInlineExpressions.RegisterAttributeProperty('TimeOfDay');
  GInlineExpressions.RegisterAttributeProperty('AnnotationPath');
  GInlineExpressions.RegisterAttributeProperty('NavigationPropertyPath');
  GInlineExpressions.RegisterAttributeProperty('Path');
  GInlineExpressions.RegisterAttributeProperty('PropertyPath');
  GInlineExpressions.RegisterAttributeProperty('UrlRef');
  Annotation_Type.RegisterAttributeProperty('Term');
  Annotation_Type.RegisterAttributeProperty('Qualifier');
  Annotation_Type.RegisterAttributeProperty('BinaryAtt');
  Annotation_Type.RegisterAttributeProperty('BoolAtt');
  Annotation_Type.RegisterAttributeProperty('DateAtt');
  Annotation_Type.RegisterAttributeProperty('DateTimeOffsetAtt');
  Annotation_Type.RegisterAttributeProperty('DecimalAtt');
  Annotation_Type.RegisterAttributeProperty('DurationAtt');
  Annotation_Type.RegisterAttributeProperty('EnumMemberAtt');
  Annotation_Type.RegisterAttributeProperty('FloatAtt');
  Annotation_Type.RegisterAttributeProperty('GuidAtt');
  Annotation_Type.RegisterAttributeProperty('IntAtt');
  Annotation_Type.RegisterAttributeProperty('_StringAtt');
  Annotation_Type.RegisterAttributeProperty('TimeOfDayAtt');
  Annotation_Type.RegisterAttributeProperty('AnnotationPathAtt');
  Annotation_Type.RegisterAttributeProperty('NavigationPropertyPathAtt');
  Annotation_Type.RegisterAttributeProperty('PathAtt');
  Annotation_Type.RegisterAttributeProperty('PropertyPathAtt');
  Annotation_Type.RegisterAttributeProperty('UrlRefAtt');
  TApplyExpression.RegisterAttributeProperty('_Function');
  TCastOrIsOfExpression.RegisterAttributeProperty('_Type');
  TCastOrIsOfExpression.RegisterAttributeProperty('MaxLength');
  TCastOrIsOfExpression.RegisterAttributeProperty('Precision');
  TCastOrIsOfExpression.RegisterAttributeProperty('Scale');
  TCastOrIsOfExpression.RegisterAttributeProperty('SRID');
  TLabeledElementExpression.RegisterAttributeProperty('Name');
  TLabeledElementExpression.RegisterAttributeProperty('BinaryAtt');
  TLabeledElementExpression.RegisterAttributeProperty('BoolAtt');
  TLabeledElementExpression.RegisterAttributeProperty('DateAtt');
  TLabeledElementExpression.RegisterAttributeProperty('DateTimeOffsetAtt');
  TLabeledElementExpression.RegisterAttributeProperty('DecimalAtt');
  TLabeledElementExpression.RegisterAttributeProperty('DurationAtt');
  TLabeledElementExpression.RegisterAttributeProperty('EnumMemberAtt');
  TLabeledElementExpression.RegisterAttributeProperty('FloatAtt');
  TLabeledElementExpression.RegisterAttributeProperty('GuidAtt');
  TLabeledElementExpression.RegisterAttributeProperty('IntAtt');
  TLabeledElementExpression.RegisterAttributeProperty('_StringAtt');
  TLabeledElementExpression.RegisterAttributeProperty('TimeOfDayAtt');
  TLabeledElementExpression.RegisterAttributeProperty('AnnotationPathAtt');
  TLabeledElementExpression.RegisterAttributeProperty('NavigationPropertyPathAtt');
  TLabeledElementExpression.RegisterAttributeProperty('PathAtt');
  TLabeledElementExpression.RegisterAttributeProperty('PropertyPathAtt');
  TLabeledElementExpression.RegisterAttributeProperty('UrlRefAtt');
  TRecordExpression.RegisterAttributeProperty('_Type');
  TPropertyValue.RegisterAttributeProperty('_Property');
  TPropertyValue.RegisterAttributeProperty('BinaryAtt');
  TPropertyValue.RegisterAttributeProperty('BoolAtt');
  TPropertyValue.RegisterAttributeProperty('DateAtt');
  TPropertyValue.RegisterAttributeProperty('DateTimeOffsetAtt');
  TPropertyValue.RegisterAttributeProperty('DecimalAtt');
  TPropertyValue.RegisterAttributeProperty('DurationAtt');
  TPropertyValue.RegisterAttributeProperty('EnumMemberAtt');
  TPropertyValue.RegisterAttributeProperty('FloatAtt');
  TPropertyValue.RegisterAttributeProperty('GuidAtt');
  TPropertyValue.RegisterAttributeProperty('IntAtt');
  TPropertyValue.RegisterAttributeProperty('_StringAtt');
  TPropertyValue.RegisterAttributeProperty('TimeOfDayAtt');
  TPropertyValue.RegisterAttributeProperty('AnnotationPathAtt');
  TPropertyValue.RegisterAttributeProperty('NavigationPropertyPathAtt');
  TPropertyValue.RegisterAttributeProperty('PathAtt');
  TPropertyValue.RegisterAttributeProperty('PropertyPathAtt');
  TPropertyValue.RegisterAttributeProperty('UrlRefAtt');
  TEntityContainer.RegisterAttributeProperty('Name');
  TEntityContainer.RegisterAttributeProperty('Extends');
  TEntitySetAttributes.RegisterAttributeProperty('Name');
  TEntitySetAttributes.RegisterAttributeProperty('EntityType');
  TEntitySetAttributes.RegisterAttributeProperty('IncludeInServiceDocument');
  TEntitySet.RegisterAttributeProperty('Name');
  TEntitySet.RegisterAttributeProperty('EntityType');
  TEntitySet.RegisterAttributeProperty('IncludeInServiceDocument');
  TNavigationPropertyBinding.RegisterAttributeProperty('Path');
  TNavigationPropertyBinding.RegisterAttributeProperty('Target');
  TSingleton.RegisterAttributeProperty('Name');
  TSingleton.RegisterAttributeProperty('_Type');
  TActionFunctionImportAttributes.RegisterAttributeProperty('Name');
  TActionFunctionImportAttributes.RegisterAttributeProperty('EntitySet');
  TActionFunctionImportAttributes.RegisterAttributeProperty('IncludeInServiceDocument');
  TActionImport.RegisterAttributeProperty('Action');
  TActionImport.RegisterAttributeProperty('Name');
  TActionImport.RegisterAttributeProperty('EntitySet');
  TActionImport.RegisterAttributeProperty('IncludeInServiceDocument');
  TFunctionImport.RegisterAttributeProperty('_Function');
  TFunctionImport.RegisterAttributeProperty('Name');
  TFunctionImport.RegisterAttributeProperty('EntitySet');
  TFunctionImport.RegisterAttributeProperty('IncludeInServiceDocument');

  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAbstractType),'TAbstractType');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_ComplexType','Edm.ComplexType');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_EntityType','Edm.EntityType');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_PrimitiveType','Edm.PrimitiveType');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_Geography','Edm.Geography');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_Geometry','Edm.Geometry');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_AnnotationPath','Edm.AnnotationPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_NavigationPropertyPath','Edm.NavigationPropertyPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_PropertyPath','Edm.PropertyPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_ComplexType','Collection(Edm.ComplexType)');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_EntityType','Collection(Edm.EntityType)');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_PrimitiveType','Collection(Edm.PrimitiveType)');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_Geography','Collection(Edm.Geography)');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_Geometry','Collection(Edm.Geometry)');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_AnnotationPath','Collection(Edm.AnnotationPath)');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_NavigationPropertyPath','Collection(Edm.NavigationPropertyPath)');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_PropertyPath','Collection(Edm.PropertyPath)');
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TMax),'TMax');
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TVariable),'TVariable');
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOnDeleteAction),'TOnDeleteAction');
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema),'Schema',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeAttributes),'TTypeAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDerivableTypeAttributes),'TDerivableTypeAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType),'TEntityType',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyRef),'TPropertyRef',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType),'TComplexType',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFacetAttributes),'TFacetAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyFacetAttributes),'TPropertyFacetAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCommonPropertyAttributes),'TCommonPropertyAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TProperty),'TProperty',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeDefinition),'TTypeDefinition',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty),'TNavigationProperty',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TReferentialConstraint),'TReferentialConstraint',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOnDelete),'TOnDelete',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumType),'TEnumType',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumTypeMember),'TEnumTypeMember',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionReturnType),'TActionFunctionReturnType',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionAttributes),'TActionAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAction),'TAction',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionAttributes),'TFunctionAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction),'TFunction',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionParameterAttributes),'TActionFunctionParameterAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionParameter),'TActionFunctionParameter',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTerm),'TTerm',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAnnotations),'TAnnotations',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GExpression),'GExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GInlineExpressions),'GInlineExpressions',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Annotation_Type),'Annotation',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TBinaryConstantExpression),'TBinaryConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TBoolConstantExpression),'TBoolConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDateConstantExpression),'TDateConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDateTimeOffsetConstantExpression),'TDateTimeOffsetConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDecimalConstantExpression),'TDecimalConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDurationConstantExpression),'TDurationConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFloatConstantExpression),'TFloatConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TGuidConstantExpression),'TGuidConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIntConstantExpression),'TIntConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TStringConstantExpression),'TStringConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTimeOfDayConstantExpression),'TTimeOfDayConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TApplyExpression),'TApplyExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCastOrIsOfExpression),'TCastOrIsOfExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCollectionExpression),'TCollectionExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIfExpression),'TIfExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOneChildExpression),'TOneChildExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTwoChildrenExpression),'TTwoChildrenExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TLabeledElementExpression),'TLabeledElementExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TLabeledElementReferenceExpression),'TLabeledElementReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPathExpression),'TPathExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRecordExpression),'TRecordExpression',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyValue),'TPropertyValue',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer),'TEntityContainer',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySetAttributes),'TEntitySetAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySet),'TEntitySet',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationPropertyBinding),'TNavigationPropertyBinding',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TSingleton),'TSingleton',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionImportAttributes),'TActionFunctionImportAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionImport),'TActionImport',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImport),'TFunctionImport',[trioqualifiedElement, triounqualifiedAttribute]);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_ComplexTypeArray),'Schema_ComplexTypeArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_ComplexTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_EntityTypeArray),'Schema_EntityTypeArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_EntityTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_TypeDefinitionArray),'Schema_TypeDefinitionArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_TypeDefinitionArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_EnumTypeArray),'Schema_EnumTypeArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_EnumTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_ActionArray),'Schema_ActionArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_ActionArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema__FunctionArray),'Schema__FunctionArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema__FunctionArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_TermArray),'Schema_TermArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_TermArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_AnnotationsArray),'Schema_AnnotationsArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_AnnotationsArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_EntityContainerArray),'Schema_EntityContainerArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_EntityContainerArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_AnnotationArray),'Schema_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType_KeyArray),'TEntityType_KeyArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType_KeyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType__PropertyArray),'TEntityType__PropertyArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType__PropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType_NavigationPropertyArray),'TEntityType_NavigationPropertyArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType_NavigationPropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType_AnnotationArray),'TEntityType_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityKeyElement),'TEntityKeyElement');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityKeyElement)].RegisterExternalPropertyName(sARRAY_ITEM,'PropertyRef');
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType__PropertyArray),'TComplexType__PropertyArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType__PropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType_NavigationPropertyArray),'TComplexType_NavigationPropertyArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType_NavigationPropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType_AnnotationArray),'TComplexType_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TProperty_AnnotationArray),'TProperty_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TProperty_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeDefinition_AnnotationArray),'TTypeDefinition_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTypeDefinition_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty_ReferentialConstraintArray),'TNavigationProperty_ReferentialConstraintArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty_ReferentialConstraintArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty_OnDeleteArray),'TNavigationProperty_OnDeleteArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty_OnDeleteArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty_AnnotationArray),'TNavigationProperty_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TReferentialConstraint_AnnotationArray),'TReferentialConstraint_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TReferentialConstraint_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOnDelete_AnnotationArray),'TOnDelete_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOnDelete_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumType_MemberArray),'TEnumType_MemberArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEnumType_MemberArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumType_AnnotationArray),'TEnumType_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEnumType_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumTypeMember_AnnotationArray),'TEnumTypeMember_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEnumTypeMember_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionReturnType_AnnotationArray),'TActionFunctionReturnType_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionReturnType_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAction_ParameterArray),'TAction_ParameterArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAction_ParameterArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAction_AnnotationArray),'TAction_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAction_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction_ParameterArray),'TFunction_ParameterArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction_ParameterArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction_AnnotationArray),'TFunction_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionParameter_AnnotationArray),'TActionFunctionParameter_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionParameter_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTerm_AnnotationArray),'TTerm_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTerm_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAnnotations_AnnotationArray),'TAnnotations_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAnnotations_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Annotation_AnnotationArray),'Annotation_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TApplyExpression_AnnotationArray),'TApplyExpression_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCastOrIsOfExpression_AnnotationArray),'TCastOrIsOfExpression_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIfExpression_AnnotationArray),'TIfExpression_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOneChildExpression_AnnotationArray),'TOneChildExpression_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTwoChildrenExpression_AnnotationArray),'TTwoChildrenExpression_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TLabeledElementExpression_AnnotationArray),'TLabeledElementExpression_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNullExpression),'TNullExpression');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNullExpression)].RegisterExternalPropertyName(sARRAY_ITEM,'Annotation');
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRecordExpression_PropertyValueArray),'TRecordExpression_PropertyValueArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRecordExpression_PropertyValueArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRecordExpression_AnnotationArray),'TRecordExpression_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRecordExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyValue_AnnotationArray),'TPropertyValue_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_EntitySetArray),'TEntityContainer_EntitySetArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_EntitySetArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_ActionImportArray),'TEntityContainer_ActionImportArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_ActionImportArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_FunctionImportArray),'TEntityContainer_FunctionImportArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_FunctionImportArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_SingletonArray),'TEntityContainer_SingletonArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_SingletonArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_AnnotationArray),'TEntityContainer_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySet_NavigationPropertyBindingArray),'TEntitySet_NavigationPropertyBindingArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntitySet_NavigationPropertyBindingArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySet_AnnotationArray),'TEntitySet_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntitySet_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TSingleton_NavigationPropertyBindingArray),'TSingleton_NavigationPropertyBindingArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TSingleton_NavigationPropertyBindingArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TSingleton_AnnotationArray),'TSingleton_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TSingleton_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionImport_AnnotationArray),'TActionImport_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionImport_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
  typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImport_AnnotationArray),'TFunctionImport_AnnotationArray');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImport_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);

  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema)].RegisterExternalPropertyName('_Function','Function');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TDerivableTypeAttributes)].RegisterExternalPropertyName('_Abstract','Abstract');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType)].RegisterExternalPropertyName('_Property','Property');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType)].RegisterExternalPropertyName('_Abstract','Abstract');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType)].RegisterExternalPropertyName('_Property','Property');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType)].RegisterExternalPropertyName('_Abstract','Abstract');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCommonPropertyAttributes)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TProperty)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TReferentialConstraint)].RegisterExternalPropertyName('_Property','Property');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionReturnType)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionParameterAttributes)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionParameter)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTerm)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(GInlineExpressions)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('BinaryAtt','Binary');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('BoolAtt','Bool');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('DateAtt','Date');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('DateTimeOffsetAtt','DateTimeOffset');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('DecimalAtt','Decimal');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('DurationAtt','Duration');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('EnumMemberAtt','EnumMember');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('FloatAtt','Float');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('GuidAtt','Guid');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('IntAtt','Int');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_StringAtt','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('TimeOfDayAtt','TimeOfDay');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('AnnotationPathAtt','AnnotationPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('NavigationPropertyPathAtt','NavigationPropertyPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('PathAtt','Path');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('PropertyPathAtt','PropertyPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('UrlRefAtt','UrlRef');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Function','Function');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('BinaryAtt','Binary');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('BoolAtt','Bool');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('DateAtt','Date');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('DateTimeOffsetAtt','DateTimeOffset');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('DecimalAtt','Decimal');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('DurationAtt','Duration');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('EnumMemberAtt','EnumMember');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('FloatAtt','Float');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('GuidAtt','Guid');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('IntAtt','Int');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_StringAtt','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('TimeOfDayAtt','TimeOfDay');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('AnnotationPathAtt','AnnotationPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('NavigationPropertyPathAtt','NavigationPropertyPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('PathAtt','Path');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('PropertyPathAtt','PropertyPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('UrlRefAtt','UrlRef');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRecordExpression)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Property','Property');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_String','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_If','If');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_And','And');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Or','Or');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Not','Not');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Record','Record');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('BinaryAtt','Binary');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('BoolAtt','Bool');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('DateAtt','Date');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('DateTimeOffsetAtt','DateTimeOffset');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('DecimalAtt','Decimal');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('DurationAtt','Duration');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('EnumMemberAtt','EnumMember');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('FloatAtt','Float');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('GuidAtt','Guid');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('IntAtt','Int');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_StringAtt','String');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('TimeOfDayAtt','TimeOfDay');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('AnnotationPathAtt','AnnotationPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('NavigationPropertyPathAtt','NavigationPropertyPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('PathAtt','Path');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('PropertyPathAtt','PropertyPath');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('UrlRefAtt','UrlRef');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TSingleton)].RegisterExternalPropertyName('_Type','Type');
  typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImport)].RegisterExternalPropertyName('_Function','Function');


End.