mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-19 10:38:18 +02:00
6598 lines
242 KiB
ObjectPascal
6598 lines
242 KiB
ObjectPascal
{
|
|
This unit has been produced by ws_helper.
|
|
Input unit name : "CSDL".
|
|
This unit name : "CSDL".
|
|
Date : "12-5-16 15:37:59".
|
|
}
|
|
unit CSDL;
|
|
{$IFDEF FPC}
|
|
{$mode objfpc} {$H+}
|
|
{$ENDIF}
|
|
{$DEFINE WST_RECORD_RTTI}
|
|
interface
|
|
|
|
uses SysUtils, Classes, TypInfo, base_service_intf, service_intf, cgs, ras{,
|
|
System_Data_Resources_CodeGenerationSchema, System_Data_Resources_AnnotationSchema};
|
|
|
|
const
|
|
sNAME_SPACE = 'http://schemas.microsoft.com/ado/2009/11/edm';
|
|
sUNIT_NAME = 'CSDL';
|
|
|
|
type
|
|
|
|
GSchemaBodyElements_UsingArray = class;
|
|
GSchemaBodyElements_AssociationArray = class;
|
|
GSchemaBodyElements_ComplexTypeArray = class;
|
|
GSchemaBodyElements_EntityTypeArray = class;
|
|
GSchemaBodyElements_EnumTypeArray = class;
|
|
GSchemaBodyElements_ValueTermArray = class;
|
|
GSchemaBodyElements__FunctionArray = class;
|
|
GSchemaBodyElements_AnnotationsArray = class;
|
|
GSchemaBodyElements = class;
|
|
TSchema = class;
|
|
TDocumentation = class;
|
|
TText = class;
|
|
TXmlOrText = class;
|
|
GEmptyElementExtensibility = class;
|
|
TUsing = class;
|
|
TAssociation__EndArray = class;
|
|
TAssociation = class;
|
|
TTypeAttributes = class;
|
|
TComplexType__PropertyArray = class;
|
|
TComplexType_ValueAnnotationArray = class;
|
|
TComplexType_TypeAnnotationArray = class;
|
|
TComplexType = class;
|
|
TConstraint = class;
|
|
TReferentialConstraintRoleElement_PropertyRefArray = class;
|
|
TReferentialConstraintRoleElement = class;
|
|
TNavigationProperty_ValueAnnotationArray = class;
|
|
TNavigationProperty_TypeAnnotationArray = class;
|
|
TNavigationProperty = class;
|
|
TDerivableTypeAttributes = class;
|
|
TEntityType__PropertyArray = class;
|
|
TEntityType_NavigationPropertyArray = class;
|
|
TEntityType_ValueAnnotationArray = class;
|
|
TEntityType_TypeAnnotationArray = class;
|
|
TEntityType = class;
|
|
TEnumTypeMember = class;
|
|
TEnumType_MemberArray = class;
|
|
TEnumType_ValueAnnotationArray = class;
|
|
TEnumType_TypeAnnotationArray = class;
|
|
TEnumType = class;
|
|
TFacetAttributes = class;
|
|
TFunction_ParameterArray = class;
|
|
TFunction_DefiningExpressionArray = class;
|
|
TFunction_ReturnTypeArray = class;
|
|
TFunction_ValueAnnotationArray = class;
|
|
TFunction_TypeAnnotationArray = class;
|
|
TFunction = class;
|
|
TFunctionParameter_ValueAnnotationArray = class;
|
|
TFunctionParameter_TypeAnnotationArray = class;
|
|
TFunctionParameter = class;
|
|
TCollectionType = class;
|
|
TTypeRef = class;
|
|
TReferenceType = class;
|
|
TRowType = class;
|
|
TRowProperty = class;
|
|
TFunctionReturnType = class;
|
|
TFunctionImportReturnType = class;
|
|
TEntityKeyElement = class;
|
|
TPropertyRef = class;
|
|
TAnnotations_ValueAnnotationArray = class;
|
|
TAnnotations_TypeAnnotationArray = class;
|
|
TAnnotations = class;
|
|
GExpression = class;
|
|
GInlineExpressions = class;
|
|
TValueAnnotation = class;
|
|
TTypeAnnotation_PropertyValueArray = class;
|
|
TTypeAnnotation = class;
|
|
TStringConstantExpression = class;
|
|
TBinaryConstantExpression = class;
|
|
TIntConstantExpression = class;
|
|
TFloatConstantExpression = class;
|
|
TGuidConstantExpression = class;
|
|
TDecimalConstantExpression = class;
|
|
TBoolConstantExpression = class;
|
|
TTimeConstantExpression = class;
|
|
TDateTimeConstantExpression = class;
|
|
TDateTimeOffsetConstantExpression = class;
|
|
TEnumMemberReferenceExpression = class;
|
|
TNullExpression = class;
|
|
TPathExpression = class;
|
|
TIfExpression = class;
|
|
TRecordExpression_PropertyValueArray = class;
|
|
TRecordExpression = class;
|
|
TPropertyValue = class;
|
|
TCollectionExpression = class;
|
|
TAssertTypeExpression = class;
|
|
TIsTypeExpression = class;
|
|
TFunctionReferenceExpression_Parameter_Type = class;
|
|
TFunctionReferenceExpression_ParameterArray = class;
|
|
TFunctionReferenceExpression = class;
|
|
TEntitySetReferenceExpression = class;
|
|
TParameterReferenceExpression = class;
|
|
TApplyExpression = class;
|
|
TPropertyReferenceExpression = class;
|
|
TValueTermReferenceExpression = class;
|
|
TLabeledElement = class;
|
|
TLabeledElementReferenceExpression = class;
|
|
TOperations = class;
|
|
TAssociationEnd = class;
|
|
TOnAction = class;
|
|
TCommonPropertyAttributes = class;
|
|
TEntityProperty_DocumentationArray = class;
|
|
TEntityProperty_ValueAnnotationArray = class;
|
|
TEntityProperty_TypeAnnotationArray = class;
|
|
TEntityProperty = class;
|
|
TComplexTypeProperty_DocumentationArray = class;
|
|
TComplexTypeProperty_ValueAnnotationArray = class;
|
|
TComplexTypeProperty_TypeAnnotationArray = class;
|
|
TComplexTypeProperty = class;
|
|
TValueTerm = class;
|
|
TFunctionImportParameterAttributes = class;
|
|
TFunctionImportParameter_ValueAnnotationArray = class;
|
|
TFunctionImportParameter_TypeAnnotationArray = class;
|
|
TFunctionImportParameter = class;
|
|
TFunctionImportAttributes = class;
|
|
TEntitySetAttributes = class;
|
|
EntityContainer_FunctionImport_Type_ReturnTypeArray = class;
|
|
EntityContainer_FunctionImport_Type_ParameterArray = class;
|
|
EntityContainer_FunctionImport_Type_ValueAnnotationArray = class;
|
|
EntityContainer_FunctionImport_Type_TypeAnnotationArray = class;
|
|
EntityContainer_FunctionImport_Type = class;
|
|
EntityContainer_EntitySet_Type_ValueAnnotationArray = class;
|
|
EntityContainer_EntitySet_Type_TypeAnnotationArray = class;
|
|
EntityContainer_EntitySet_Type = class;
|
|
EntityContainer_AssociationSet_Type_End_Type = class;
|
|
EntityContainer_AssociationSet_Type__EndArray = class;
|
|
EntityContainer_AssociationSet_Type = class;
|
|
EntityContainer_FunctionImportArray = class;
|
|
EntityContainer_EntitySetArray = class;
|
|
EntityContainer_AssociationSetArray = class;
|
|
EntityContainer_ValueAnnotationArray = class;
|
|
EntityContainer_TypeAnnotationArray = class;
|
|
EntityContainer = class;
|
|
|
|
EDMSimpleType = (
|
|
Binary
|
|
,EDMSimpleType_Boolean
|
|
,EDMSimpleType_Byte
|
|
,DateTime
|
|
,DateTimeOffset
|
|
,Time
|
|
,Decimal
|
|
,EDMSimpleType_Double
|
|
,EDMSimpleType_Single
|
|
,Geography
|
|
,GeographyPoint
|
|
,GeographyLineString
|
|
,GeographyPolygon
|
|
,GeographyMultiPoint
|
|
,GeographyMultiLineString
|
|
,GeographyMultiPolygon
|
|
,GeographyCollection
|
|
,Geometry
|
|
,GeometryPoint
|
|
,GeometryLineString
|
|
,GeometryPolygon
|
|
,GeometryMultiPoint
|
|
,GeometryMultiLineString
|
|
,GeometryMultiPolygon
|
|
,GeometryCollection
|
|
,Guid
|
|
,Int16
|
|
,Int32
|
|
,EDMSimpleType_Int64
|
|
,EDMSimpleType_String
|
|
,SByte
|
|
,Stream
|
|
);
|
|
|
|
TMax = (
|
|
Max
|
|
);
|
|
|
|
TVariable = (
|
|
Variable
|
|
);
|
|
|
|
TParameterMode = (
|
|
TParameterMode_In
|
|
,TParameterMode_Out
|
|
,InOut
|
|
);
|
|
|
|
TAction = (
|
|
Cascade
|
|
,None
|
|
);
|
|
|
|
TMultiplicity = (
|
|
TMultiplicity__0_1
|
|
,TMultiplicity__1
|
|
,TMultiplicity__
|
|
);
|
|
|
|
TConcurrencyMode = (
|
|
TConcurrencyMode_None
|
|
,Fixed
|
|
);
|
|
|
|
Schema = TSchema;
|
|
|
|
TMaxLengthFacet = type UnicodeString;
|
|
|
|
TIsFixedLengthFacet = type boolean;
|
|
|
|
TPrecisionFacet = type nonNegativeInteger;
|
|
|
|
TScaleFacet = type nonNegativeInteger;
|
|
|
|
TIsUnicodeFacet = type boolean;
|
|
|
|
TCollationFacet = type UnicodeString;
|
|
|
|
TSridFacet = type UnicodeString;
|
|
|
|
TGuidLiteral = type UnicodeString;
|
|
|
|
TQualifiedName = type UnicodeString;
|
|
|
|
TNamespaceName = type TQualifiedName;
|
|
|
|
TPath = type UnicodeString;
|
|
|
|
TSimpleIdentifier = type UnicodeString;
|
|
|
|
TPropertyType = type UnicodeString;
|
|
|
|
TCommandText = type UnicodeString;
|
|
|
|
TFunctionImportParameterAndReturnType = type UnicodeString;
|
|
|
|
TWrappedFunctionType = type UnicodeString;
|
|
|
|
TUnwrappedFunctionType = type UnicodeString;
|
|
|
|
GSchemaBodyElements = class(TBaseComplexRemotable)
|
|
private
|
|
FUsing : GSchemaBodyElements_UsingArray;
|
|
FAssociation : GSchemaBodyElements_AssociationArray;
|
|
FComplexType : GSchemaBodyElements_ComplexTypeArray;
|
|
FEntityType : GSchemaBodyElements_EntityTypeArray;
|
|
FEnumType : GSchemaBodyElements_EnumTypeArray;
|
|
FValueTerm : GSchemaBodyElements_ValueTermArray;
|
|
F_Function : GSchemaBodyElements__FunctionArray;
|
|
FAnnotations : GSchemaBodyElements_AnnotationsArray;
|
|
FEntityContainer : CSDL.EntityContainer;
|
|
private
|
|
function wstHas_Using() : Boolean;
|
|
function wstHas_Association() : Boolean;
|
|
function wstHas_ComplexType() : Boolean;
|
|
function wstHas_EntityType() : Boolean;
|
|
function wstHas_EnumType() : Boolean;
|
|
function wstHas_ValueTerm() : Boolean;
|
|
function wstHas__Function() : Boolean;
|
|
function wstHas_Annotations() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Using : GSchemaBodyElements_UsingArray read FUsing write FUsing stored wstHas_Using;
|
|
property Association : GSchemaBodyElements_AssociationArray read FAssociation write FAssociation stored wstHas_Association;
|
|
property ComplexType : GSchemaBodyElements_ComplexTypeArray read FComplexType write FComplexType stored wstHas_ComplexType;
|
|
property EntityType : GSchemaBodyElements_EntityTypeArray read FEntityType write FEntityType stored wstHas_EntityType;
|
|
property EnumType : GSchemaBodyElements_EnumTypeArray read FEnumType write FEnumType stored wstHas_EnumType;
|
|
property ValueTerm : GSchemaBodyElements_ValueTermArray read FValueTerm write FValueTerm stored wstHas_ValueTerm;
|
|
property _Function : GSchemaBodyElements__FunctionArray read F_Function write F_Function stored wstHas__Function;
|
|
property Annotations : GSchemaBodyElements_AnnotationsArray read FAnnotations write FAnnotations stored wstHas_Annotations;
|
|
property EntityContainer : CSDL.EntityContainer read FEntityContainer write FEntityContainer;
|
|
end;
|
|
|
|
TSchema = class(TBaseComplexRemotable)
|
|
private
|
|
FNamespace : TNamespaceName;
|
|
FAlias : TSimpleIdentifier;
|
|
FUsing : GSchemaBodyElements_UsingArray;
|
|
FAssociation : GSchemaBodyElements_AssociationArray;
|
|
FComplexType : GSchemaBodyElements_ComplexTypeArray;
|
|
FEntityType : GSchemaBodyElements_EntityTypeArray;
|
|
FEnumType : GSchemaBodyElements_EnumTypeArray;
|
|
FValueTerm : GSchemaBodyElements_ValueTermArray;
|
|
F_Function : GSchemaBodyElements__FunctionArray;
|
|
FAnnotations : GSchemaBodyElements_AnnotationsArray;
|
|
FEntityContainer : CSDL.EntityContainer;
|
|
private
|
|
function wstHas_Namespace() : Boolean;
|
|
function wstHas_Alias() : Boolean;
|
|
function wstHas_Using() : Boolean;
|
|
function wstHas_Association() : Boolean;
|
|
function wstHas_ComplexType() : Boolean;
|
|
function wstHas_EntityType() : Boolean;
|
|
function wstHas_EnumType() : Boolean;
|
|
function wstHas_ValueTerm() : Boolean;
|
|
function wstHas__Function() : Boolean;
|
|
function wstHas_Annotations() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Namespace : TNamespaceName read FNamespace write FNamespace stored wstHas_Namespace;
|
|
property Alias : TSimpleIdentifier read FAlias write FAlias stored wstHas_Alias;
|
|
property Using : GSchemaBodyElements_UsingArray read FUsing write FUsing stored wstHas_Using;
|
|
property Association : GSchemaBodyElements_AssociationArray read FAssociation write FAssociation stored wstHas_Association;
|
|
property ComplexType : GSchemaBodyElements_ComplexTypeArray read FComplexType write FComplexType stored wstHas_ComplexType;
|
|
property EntityType : GSchemaBodyElements_EntityTypeArray read FEntityType write FEntityType stored wstHas_EntityType;
|
|
property EnumType : GSchemaBodyElements_EnumTypeArray read FEnumType write FEnumType stored wstHas_EnumType;
|
|
property ValueTerm : GSchemaBodyElements_ValueTermArray read FValueTerm write FValueTerm stored wstHas_ValueTerm;
|
|
property _Function : GSchemaBodyElements__FunctionArray read F_Function write F_Function stored wstHas__Function;
|
|
property Annotations : GSchemaBodyElements_AnnotationsArray read FAnnotations write FAnnotations stored wstHas_Annotations;
|
|
property EntityContainer : CSDL.EntityContainer read FEntityContainer write FEntityContainer;
|
|
end;
|
|
|
|
TDocumentation = class(TBaseComplexRemotable)
|
|
private
|
|
FSummary : TText;
|
|
FLongDescription : TText;
|
|
private
|
|
function wstHas_Summary() : Boolean;
|
|
function wstHas_LongDescription() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Summary : TText read FSummary write FSummary stored wstHas_Summary;
|
|
property LongDescription : TText read FLongDescription write FLongDescription stored wstHas_LongDescription;
|
|
end;
|
|
|
|
TText = class(TStringBufferRemotable)
|
|
end;
|
|
|
|
TXmlOrText = class(TStringBufferRemotable)
|
|
end;
|
|
|
|
GEmptyElementExtensibility = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
TUsing = class(TBaseComplexRemotable)
|
|
private
|
|
FNamespace : TNamespaceName;
|
|
FAlias : TSimpleIdentifier;
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Namespace : TNamespaceName read FNamespace write FNamespace;
|
|
property Alias : TSimpleIdentifier read FAlias write FAlias;
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
TAssociation = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
F_End : TAssociation__EndArray;
|
|
FReferentialConstraint : TConstraint;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_ReferentialConstraint() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property _End : TAssociation__EndArray read F_End write F_End;
|
|
property ReferentialConstraint : TConstraint read FReferentialConstraint write FReferentialConstraint stored wstHas_ReferentialConstraint;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TTypeAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TComplexType = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
F_Property : TComplexType__PropertyArray;
|
|
FValueAnnotation : TComplexType_ValueAnnotationArray;
|
|
FTypeAnnotation : TComplexType_TypeAnnotationArray;
|
|
FTypeAccess : TypeAccess_Type;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas__Property() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_TypeAccess() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property _Property : TComplexType__PropertyArray read F_Property write F_Property stored wstHas__Property;
|
|
property ValueAnnotation : TComplexType_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TComplexType_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property TypeAccess : TypeAccess_Type read FTypeAccess write FTypeAccess stored wstHas_TypeAccess;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TConstraint = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FPrincipal : TReferentialConstraintRoleElement;
|
|
FDependent : TReferentialConstraintRoleElement;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property Principal : TReferentialConstraintRoleElement read FPrincipal write FPrincipal;
|
|
property Dependent : TReferentialConstraintRoleElement read FDependent write FDependent;
|
|
end;
|
|
|
|
TReferentialConstraintRoleElement = class(TBaseComplexRemotable)
|
|
private
|
|
FPropertyRef : TReferentialConstraintRoleElement_PropertyRefArray;
|
|
FRole : TSimpleIdentifier;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property PropertyRef : TReferentialConstraintRoleElement_PropertyRefArray read FPropertyRef write FPropertyRef;
|
|
property Role : TSimpleIdentifier read FRole write FRole;
|
|
end;
|
|
|
|
TNavigationProperty = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FValueAnnotation : TNavigationProperty_ValueAnnotationArray;
|
|
FTypeAnnotation : TNavigationProperty_TypeAnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FRelationship : TQualifiedName;
|
|
FToRole : TSimpleIdentifier;
|
|
FFromRole : TSimpleIdentifier;
|
|
FContainsTarget : boolean;
|
|
FGetterAccess : GetterAccess_Type;
|
|
FSetterAccess : SetterAccess_Type;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_ContainsTarget() : Boolean;
|
|
function wstHas_GetterAccess() : Boolean;
|
|
function wstHas_SetterAccess() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property ValueAnnotation : TNavigationProperty_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TNavigationProperty_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property Relationship : TQualifiedName read FRelationship write FRelationship;
|
|
property ToRole : TSimpleIdentifier read FToRole write FToRole;
|
|
property FromRole : TSimpleIdentifier read FFromRole write FFromRole;
|
|
property ContainsTarget : boolean read FContainsTarget write FContainsTarget stored wstHas_ContainsTarget;
|
|
property GetterAccess : GetterAccess_Type read FGetterAccess write FGetterAccess stored wstHas_GetterAccess;
|
|
property SetterAccess : SetterAccess_Type read FSetterAccess write FSetterAccess stored wstHas_SetterAccess;
|
|
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
|
|
FDocumentation : TDocumentation;
|
|
FKey : TEntityKeyElement;
|
|
F_Property : TEntityType__PropertyArray;
|
|
FNavigationProperty : TEntityType_NavigationPropertyArray;
|
|
FValueAnnotation : TEntityType_ValueAnnotationArray;
|
|
FTypeAnnotation : TEntityType_TypeAnnotationArray;
|
|
FOpenType : boolean;
|
|
FTypeAccess : TypeAccess_Type;
|
|
FBaseType : TQualifiedName;
|
|
F_Abstract : boolean;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_Key() : Boolean;
|
|
function wstHas__Property() : Boolean;
|
|
function wstHas_NavigationProperty() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_OpenType() : Boolean;
|
|
function wstHas_TypeAccess() : Boolean;
|
|
function wstHas_BaseType() : Boolean;
|
|
function wstHas__Abstract() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property Key : TEntityKeyElement 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 ValueAnnotation : TEntityType_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TEntityType_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property OpenType : boolean read FOpenType write FOpenType stored wstHas_OpenType;
|
|
property TypeAccess : TypeAccess_Type read FTypeAccess write FTypeAccess stored wstHas_TypeAccess;
|
|
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;
|
|
|
|
TEnumTypeMember = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
FValue : Int64;
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Value() : Boolean;
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property Value : Int64 read FValue write FValue stored wstHas_Value;
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
TEnumType = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FMember : TEnumType_MemberArray;
|
|
FValueAnnotation : TEnumType_ValueAnnotationArray;
|
|
FTypeAnnotation : TEnumType_TypeAnnotationArray;
|
|
FIsFlags : boolean;
|
|
FUnderlyingType : TPropertyType;
|
|
FTypeAccess : TypeAccess_Type;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_Member() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_IsFlags() : Boolean;
|
|
function wstHas_UnderlyingType() : Boolean;
|
|
function wstHas_TypeAccess() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property Member : TEnumType_MemberArray read FMember write FMember stored wstHas_Member;
|
|
property ValueAnnotation : TEnumType_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TEnumType_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property IsFlags : boolean read FIsFlags write FIsFlags stored wstHas_IsFlags;
|
|
property UnderlyingType : TPropertyType read FUnderlyingType write FUnderlyingType stored wstHas_UnderlyingType;
|
|
property TypeAccess : TypeAccess_Type read FTypeAccess write FTypeAccess stored wstHas_TypeAccess;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TFacetAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
published
|
|
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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TFunction = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FParameter : TFunction_ParameterArray;
|
|
FDefiningExpression : TFunction_DefiningExpressionArray;
|
|
FReturnType : TFunction_ReturnTypeArray;
|
|
FValueAnnotation : TFunction_ValueAnnotationArray;
|
|
FTypeAnnotation : TFunction_TypeAnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FReturnTypeAtt : TWrappedFunctionType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_Parameter() : Boolean;
|
|
function wstHas_DefiningExpression() : Boolean;
|
|
function wstHas_ReturnType() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_ReturnTypeAtt() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property Parameter : TFunction_ParameterArray read FParameter write FParameter stored wstHas_Parameter;
|
|
property DefiningExpression : TFunction_DefiningExpressionArray read FDefiningExpression write FDefiningExpression stored wstHas_DefiningExpression;
|
|
property ReturnType : TFunction_ReturnTypeArray read FReturnType write FReturnType stored wstHas_ReturnType;
|
|
property ValueAnnotation : TFunction_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TFunction_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property ReturnTypeAtt : TWrappedFunctionType read FReturnTypeAtt write FReturnTypeAtt stored wstHas_ReturnTypeAtt;
|
|
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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TFunctionParameter = class(TBaseComplexRemotable)
|
|
private
|
|
FCollectionType : TCollectionType;
|
|
FReferenceType : TReferenceType;
|
|
FRowType : TRowType;
|
|
FValueAnnotation : TFunctionParameter_ValueAnnotationArray;
|
|
FTypeAnnotation : TFunctionParameter_TypeAnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TWrappedFunctionType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_CollectionType() : Boolean;
|
|
function wstHas_ReferenceType() : Boolean;
|
|
function wstHas_RowType() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property CollectionType : TCollectionType read FCollectionType write FCollectionType stored wstHas_CollectionType;
|
|
property ReferenceType : TReferenceType read FReferenceType write FReferenceType stored wstHas_ReferenceType;
|
|
property RowType : TRowType read FRowType write FRowType stored wstHas_RowType;
|
|
property ValueAnnotation : TFunctionParameter_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TFunctionParameter_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TWrappedFunctionType read F_Type write F_Type stored wstHas__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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TCollectionType = class(TBaseComplexRemotable)
|
|
private
|
|
FCollectionType : TCollectionType;
|
|
FReferenceType : TReferenceType;
|
|
FRowType : TRowType;
|
|
FTypeRef : TTypeRef;
|
|
FElementType : TUnwrappedFunctionType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_CollectionType() : Boolean;
|
|
function wstHas_ReferenceType() : Boolean;
|
|
function wstHas_RowType() : Boolean;
|
|
function wstHas_TypeRef() : Boolean;
|
|
function wstHas_ElementType() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property CollectionType : TCollectionType read FCollectionType write FCollectionType stored wstHas_CollectionType;
|
|
property ReferenceType : TReferenceType read FReferenceType write FReferenceType stored wstHas_ReferenceType;
|
|
property RowType : TRowType read FRowType write FRowType stored wstHas_RowType;
|
|
property TypeRef : TTypeRef read FTypeRef write FTypeRef stored wstHas_TypeRef;
|
|
property ElementType : TUnwrappedFunctionType read FElementType write FElementType stored wstHas_ElementType;
|
|
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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TTypeRef = class(TBaseComplexRemotable)
|
|
private
|
|
F_Type : TUnwrappedFunctionType;
|
|
FDocumentation : TDocumentation;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property _Type : TUnwrappedFunctionType read F_Type write F_Type;
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TReferenceType = class(TBaseComplexRemotable)
|
|
private
|
|
F_Type : TUnwrappedFunctionType;
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property _Type : TUnwrappedFunctionType read F_Type write F_Type;
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
TRowProperty = class(TBaseComplexRemotable)
|
|
private
|
|
FCollectionType : TCollectionType;
|
|
FReferenceType : TReferenceType;
|
|
FRowType : TRowType;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TWrappedFunctionType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_CollectionType() : Boolean;
|
|
function wstHas_ReferenceType() : Boolean;
|
|
function wstHas_RowType() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property CollectionType : TCollectionType read FCollectionType write FCollectionType stored wstHas_CollectionType;
|
|
property ReferenceType : TReferenceType read FReferenceType write FReferenceType stored wstHas_ReferenceType;
|
|
property RowType : TRowType read FRowType write FRowType stored wstHas_RowType;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TWrappedFunctionType read F_Type write F_Type stored wstHas__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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TFunctionReturnType = class(TBaseComplexRemotable)
|
|
private
|
|
FCollectionType : TCollectionType;
|
|
FReferenceType : TReferenceType;
|
|
FRowType : TRowType;
|
|
F_Type : TFunctionImportParameterAndReturnType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_CollectionType() : Boolean;
|
|
function wstHas_ReferenceType() : Boolean;
|
|
function wstHas_RowType() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property CollectionType : TCollectionType read FCollectionType write FCollectionType stored wstHas_CollectionType;
|
|
property ReferenceType : TReferenceType read FReferenceType write FReferenceType stored wstHas_ReferenceType;
|
|
property RowType : TRowType read FRowType write FRowType stored wstHas_RowType;
|
|
property _Type : TFunctionImportParameterAndReturnType read F_Type write F_Type stored wstHas__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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TFunctionImportReturnType = class(TBaseComplexRemotable)
|
|
private
|
|
F_Type : TFunctionImportParameterAndReturnType;
|
|
FEntitySet : TSimpleIdentifier;
|
|
FEntitySetPath : TPath;
|
|
private
|
|
function wstHas__Type() : Boolean;
|
|
function wstHas_EntitySet() : Boolean;
|
|
function wstHas_EntitySetPath() : Boolean;
|
|
published
|
|
property _Type : TFunctionImportParameterAndReturnType read F_Type write F_Type stored wstHas__Type;
|
|
property EntitySet : TSimpleIdentifier read FEntitySet write FEntitySet stored wstHas_EntitySet;
|
|
property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
|
|
end;
|
|
|
|
TPropertyRef = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TAnnotations = class(TBaseComplexRemotable)
|
|
private
|
|
FValueAnnotation : TAnnotations_ValueAnnotationArray;
|
|
FTypeAnnotation : TAnnotations_TypeAnnotationArray;
|
|
FTarget : TPath;
|
|
FQualifier : TSimpleIdentifier;
|
|
private
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_Qualifier() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property ValueAnnotation : TAnnotations_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TAnnotations_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Target : TPath read FTarget write FTarget;
|
|
property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier;
|
|
end;
|
|
|
|
GExpression = class(TBaseComplexRemotable)
|
|
end;
|
|
|
|
GInlineExpressions = class(TBaseComplexRemotable)
|
|
private
|
|
F_String : UnicodeString;
|
|
FBinary : TBase16StringRemotable;
|
|
FInt : integer;
|
|
FFloat : Double;
|
|
FGuid : TGuidLiteral;
|
|
FDecimal : Currency;
|
|
FBool : boolean;
|
|
FTime : TTimeRemotable;
|
|
FDateTime : TDateTimeRemotable;
|
|
FDateTimeOffset : TDateTimeRemotable;
|
|
FPath : TPath;
|
|
private
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Time() : Boolean;
|
|
function wstHas_DateTime() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property _String : UnicodeString read F_String write F_String stored wstHas__String;
|
|
property Binary : TBase16StringRemotable read FBinary write FBinary stored wstHas_Binary;
|
|
property Int : integer read FInt write FInt stored wstHas_Int;
|
|
property Float : Double read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidLiteral read FGuid write FGuid stored wstHas_Guid;
|
|
property Decimal : Currency read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Bool : boolean read FBool write FBool stored wstHas_Bool;
|
|
property Time : TTimeRemotable read FTime write FTime stored wstHas_Time;
|
|
property DateTime : TDateTimeRemotable read FDateTime write FDateTime stored wstHas_DateTime;
|
|
property DateTimeOffset : TDateTimeRemotable read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Path : TPath read FPath write FPath stored wstHas_Path;
|
|
end;
|
|
|
|
TValueAnnotation = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FTerm : TQualifiedName;
|
|
FQualifier : TSimpleIdentifier;
|
|
F_String : UnicodeString;
|
|
FBinary : TBase16StringRemotable;
|
|
FInt : integer;
|
|
FFloat : Double;
|
|
FGuid : TGuidLiteral;
|
|
FDecimal : Currency;
|
|
FBool : boolean;
|
|
FTime : TTimeRemotable;
|
|
FDateTime : TDateTimeRemotable;
|
|
FDateTimeOffset : TDateTimeRemotable;
|
|
FPath : TPath;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_Qualifier() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Time() : Boolean;
|
|
function wstHas_DateTime() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property Term : TQualifiedName read FTerm write FTerm;
|
|
property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier;
|
|
property _String : UnicodeString read F_String write F_String stored wstHas__String;
|
|
property Binary : TBase16StringRemotable read FBinary write FBinary stored wstHas_Binary;
|
|
property Int : integer read FInt write FInt stored wstHas_Int;
|
|
property Float : Double read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidLiteral read FGuid write FGuid stored wstHas_Guid;
|
|
property Decimal : Currency read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Bool : boolean read FBool write FBool stored wstHas_Bool;
|
|
property Time : TTimeRemotable read FTime write FTime stored wstHas_Time;
|
|
property DateTime : TDateTimeRemotable read FDateTime write FDateTime stored wstHas_DateTime;
|
|
property DateTimeOffset : TDateTimeRemotable read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Path : TPath read FPath write FPath stored wstHas_Path;
|
|
end;
|
|
|
|
TTypeAnnotation = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FPropertyValue : TTypeAnnotation_PropertyValueArray;
|
|
FTerm : TQualifiedName;
|
|
FQualifier : TSimpleIdentifier;
|
|
F_String : UnicodeString;
|
|
FBinary : TBase16StringRemotable;
|
|
FInt : integer;
|
|
FFloat : Double;
|
|
FGuid : TGuidLiteral;
|
|
FDecimal : Currency;
|
|
FBool : boolean;
|
|
FTime : TTimeRemotable;
|
|
FDateTime : TDateTimeRemotable;
|
|
FDateTimeOffset : TDateTimeRemotable;
|
|
FPath : TPath;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_PropertyValue() : Boolean;
|
|
function wstHas_Qualifier() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Time() : Boolean;
|
|
function wstHas_DateTime() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property PropertyValue : TTypeAnnotation_PropertyValueArray read FPropertyValue write FPropertyValue stored wstHas_PropertyValue;
|
|
property Term : TQualifiedName read FTerm write FTerm;
|
|
property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier;
|
|
property _String : UnicodeString read F_String write F_String stored wstHas__String;
|
|
property Binary : TBase16StringRemotable read FBinary write FBinary stored wstHas_Binary;
|
|
property Int : integer read FInt write FInt stored wstHas_Int;
|
|
property Float : Double read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidLiteral read FGuid write FGuid stored wstHas_Guid;
|
|
property Decimal : Currency read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Bool : boolean read FBool write FBool stored wstHas_Bool;
|
|
property Time : TTimeRemotable read FTime write FTime stored wstHas_Time;
|
|
property DateTime : TDateTimeRemotable read FDateTime write FDateTime stored wstHas_DateTime;
|
|
property DateTimeOffset : TDateTimeRemotable read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Path : TPath read FPath write FPath stored wstHas_Path;
|
|
end;
|
|
|
|
TStringConstantExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TBinaryConstantExpression = class(TBase16StringExtRemotable)
|
|
end;
|
|
|
|
TIntConstantExpression = class(TComplexInt32SContentRemotable)
|
|
end;
|
|
|
|
TFloatConstantExpression = class(TComplexFloatDoubleContentRemotable)
|
|
end;
|
|
|
|
TGuidConstantExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TDecimalConstantExpression = class(TComplexCurrencyContentRemotable)
|
|
end;
|
|
|
|
TBoolConstantExpression = class(TComplexBooleanContentRemotable)
|
|
end;
|
|
|
|
TTimeConstantExpression = class(TTimeRemotable)
|
|
end;
|
|
|
|
TDateTimeConstantExpression = class(TDateTimeRemotable)
|
|
end;
|
|
|
|
TDateTimeOffsetConstantExpression = class(TDateTimeRemotable)
|
|
end;
|
|
|
|
TEnumMemberReferenceExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TNullExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
TPathExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TIfExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
TRecordExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FPropertyValue : TRecordExpression_PropertyValueArray;
|
|
F_Type : TUnwrappedFunctionType;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_PropertyValue() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property PropertyValue : TRecordExpression_PropertyValueArray read FPropertyValue write FPropertyValue stored wstHas_PropertyValue;
|
|
property _Type : TUnwrappedFunctionType read F_Type write F_Type stored wstHas__Type;
|
|
end;
|
|
|
|
TPropertyValue = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
F_Property : TSimpleIdentifier;
|
|
F_String : UnicodeString;
|
|
FBinary : TBase16StringRemotable;
|
|
FInt : integer;
|
|
FFloat : Double;
|
|
FGuid : TGuidLiteral;
|
|
FDecimal : Currency;
|
|
FBool : boolean;
|
|
FTime : TTimeRemotable;
|
|
FDateTime : TDateTimeRemotable;
|
|
FDateTimeOffset : TDateTimeRemotable;
|
|
FPath : TPath;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Time() : Boolean;
|
|
function wstHas_DateTime() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property _Property : TSimpleIdentifier read F_Property write F_Property;
|
|
property _String : UnicodeString read F_String write F_String stored wstHas__String;
|
|
property Binary : TBase16StringRemotable read FBinary write FBinary stored wstHas_Binary;
|
|
property Int : integer read FInt write FInt stored wstHas_Int;
|
|
property Float : Double read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidLiteral read FGuid write FGuid stored wstHas_Guid;
|
|
property Decimal : Currency read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Bool : boolean read FBool write FBool stored wstHas_Bool;
|
|
property Time : TTimeRemotable read FTime write FTime stored wstHas_Time;
|
|
property DateTime : TDateTimeRemotable read FDateTime write FDateTime stored wstHas_DateTime;
|
|
property DateTimeOffset : TDateTimeRemotable read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Path : TPath read FPath write FPath stored wstHas_Path;
|
|
end;
|
|
|
|
TCollectionExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
TAssertTypeExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FCollectionType : TCollectionType;
|
|
FReferenceType : TReferenceType;
|
|
FRowType : TRowType;
|
|
F_Type : TWrappedFunctionType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_CollectionType() : Boolean;
|
|
function wstHas_ReferenceType() : Boolean;
|
|
function wstHas_RowType() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property CollectionType : TCollectionType read FCollectionType write FCollectionType stored wstHas_CollectionType;
|
|
property ReferenceType : TReferenceType read FReferenceType write FReferenceType stored wstHas_ReferenceType;
|
|
property RowType : TRowType read FRowType write FRowType stored wstHas_RowType;
|
|
property _Type : TWrappedFunctionType read F_Type write F_Type stored wstHas__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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TIsTypeExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FCollectionType : TCollectionType;
|
|
FReferenceType : TReferenceType;
|
|
FRowType : TRowType;
|
|
F_Type : TWrappedFunctionType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_CollectionType() : Boolean;
|
|
function wstHas_ReferenceType() : Boolean;
|
|
function wstHas_RowType() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property CollectionType : TCollectionType read FCollectionType write FCollectionType stored wstHas_CollectionType;
|
|
property ReferenceType : TReferenceType read FReferenceType write FReferenceType stored wstHas_ReferenceType;
|
|
property RowType : TRowType read FRowType write FRowType stored wstHas_RowType;
|
|
property _Type : TWrappedFunctionType read F_Type write F_Type stored wstHas__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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TFunctionReferenceExpression_Parameter_Type = class(TBaseComplexRemotable)
|
|
private
|
|
FCollectionType : TCollectionType;
|
|
FReferenceType : TReferenceType;
|
|
FRowType : TRowType;
|
|
F_Type : TWrappedFunctionType;
|
|
private
|
|
function wstHas_CollectionType() : Boolean;
|
|
function wstHas_ReferenceType() : Boolean;
|
|
function wstHas_RowType() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property CollectionType : TCollectionType read FCollectionType write FCollectionType stored wstHas_CollectionType;
|
|
property ReferenceType : TReferenceType read FReferenceType write FReferenceType stored wstHas_ReferenceType;
|
|
property RowType : TRowType read FRowType write FRowType stored wstHas_RowType;
|
|
property _Type : TWrappedFunctionType read F_Type write F_Type stored wstHas__Type;
|
|
end;
|
|
|
|
TFunctionReferenceExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FParameter : TFunctionReferenceExpression_ParameterArray;
|
|
F_Function : TQualifiedName;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_Parameter() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property Parameter : TFunctionReferenceExpression_ParameterArray read FParameter write FParameter stored wstHas_Parameter;
|
|
property _Function : TQualifiedName read F_Function write F_Function;
|
|
end;
|
|
|
|
TEntitySetReferenceExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TParameterReferenceExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TApplyExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
F_Function : TQualifiedName;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas__Function() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property _Function : TQualifiedName read F_Function write F_Function stored wstHas__Function;
|
|
end;
|
|
|
|
TPropertyReferenceExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
F_Property : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property _Property : TSimpleIdentifier read F_Property write F_Property;
|
|
end;
|
|
|
|
TValueTermReferenceExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FTerm : TQualifiedName;
|
|
FQualifier : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_Qualifier() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property Term : TQualifiedName read FTerm write FTerm;
|
|
property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier;
|
|
end;
|
|
|
|
TLabeledElement = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TLabeledElementReferenceExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TOperations = class(TBaseComplexRemotable)
|
|
private
|
|
FOnDelete : TOnAction;
|
|
private
|
|
function wstHas_OnDelete() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property OnDelete : TOnAction read FOnDelete write FOnDelete stored wstHas_OnDelete;
|
|
end;
|
|
|
|
TAssociationEnd = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
F_Type : TQualifiedName;
|
|
FRole : TSimpleIdentifier;
|
|
FMultiplicity : TMultiplicity;
|
|
FOnDelete : TOnAction;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_Role() : Boolean;
|
|
function wstHas_Multiplicity() : Boolean;
|
|
function wstHas_OnDelete() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property _Type : TQualifiedName read F_Type write F_Type;
|
|
property Role : TSimpleIdentifier read FRole write FRole stored wstHas_Role;
|
|
property Multiplicity : TMultiplicity read FMultiplicity write FMultiplicity stored wstHas_Multiplicity;
|
|
property OnDelete : TOnAction read FOnDelete write FOnDelete stored wstHas_OnDelete;
|
|
end;
|
|
|
|
TOnAction = class(TBaseComplexRemotable)
|
|
private
|
|
FAction : TAction;
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Action : TAction read FAction write FAction;
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
TCommonPropertyAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TPropertyType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
FConcurrencyMode : TConcurrencyMode;
|
|
FSetterAccess : SetterAccess_Type;
|
|
FGetterAccess : GetterAccess_Type;
|
|
private
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
function wstHas_ConcurrencyMode() : Boolean;
|
|
function wstHas_SetterAccess() : Boolean;
|
|
function wstHas_GetterAccess() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TPropertyType 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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
property ConcurrencyMode : TConcurrencyMode read FConcurrencyMode write FConcurrencyMode stored wstHas_ConcurrencyMode;
|
|
property SetterAccess : SetterAccess_Type read FSetterAccess write FSetterAccess stored wstHas_SetterAccess;
|
|
property GetterAccess : GetterAccess_Type read FGetterAccess write FGetterAccess stored wstHas_GetterAccess;
|
|
end;
|
|
|
|
TEntityProperty = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TEntityProperty_DocumentationArray;
|
|
FValueAnnotation : TEntityProperty_ValueAnnotationArray;
|
|
FTypeAnnotation : TEntityProperty_TypeAnnotationArray;
|
|
FStoreGeneratedPattern : StoreGeneratedPattern_Type;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TPropertyType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
FConcurrencyMode : TConcurrencyMode;
|
|
FSetterAccess : SetterAccess_Type;
|
|
FGetterAccess : GetterAccess_Type;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_StoreGeneratedPattern() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
function wstHas_ConcurrencyMode() : Boolean;
|
|
function wstHas_SetterAccess() : Boolean;
|
|
function wstHas_GetterAccess() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TEntityProperty_DocumentationArray read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property ValueAnnotation : TEntityProperty_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TEntityProperty_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property StoreGeneratedPattern : StoreGeneratedPattern_Type read FStoreGeneratedPattern write FStoreGeneratedPattern stored wstHas_StoreGeneratedPattern;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TPropertyType 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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
property ConcurrencyMode : TConcurrencyMode read FConcurrencyMode write FConcurrencyMode stored wstHas_ConcurrencyMode;
|
|
property SetterAccess : SetterAccess_Type read FSetterAccess write FSetterAccess stored wstHas_SetterAccess;
|
|
property GetterAccess : GetterAccess_Type read FGetterAccess write FGetterAccess stored wstHas_GetterAccess;
|
|
end;
|
|
|
|
TComplexTypeProperty = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TComplexTypeProperty_DocumentationArray;
|
|
FValueAnnotation : TComplexTypeProperty_ValueAnnotationArray;
|
|
FTypeAnnotation : TComplexTypeProperty_TypeAnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TPropertyType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
FConcurrencyMode : TConcurrencyMode;
|
|
FSetterAccess : SetterAccess_Type;
|
|
FGetterAccess : GetterAccess_Type;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
function wstHas_ConcurrencyMode() : Boolean;
|
|
function wstHas_SetterAccess() : Boolean;
|
|
function wstHas_GetterAccess() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TComplexTypeProperty_DocumentationArray read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property ValueAnnotation : TComplexTypeProperty_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TComplexTypeProperty_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TPropertyType 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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
property ConcurrencyMode : TConcurrencyMode read FConcurrencyMode write FConcurrencyMode stored wstHas_ConcurrencyMode;
|
|
property SetterAccess : SetterAccess_Type read FSetterAccess write FSetterAccess stored wstHas_SetterAccess;
|
|
property GetterAccess : GetterAccess_Type read FGetterAccess write FGetterAccess stored wstHas_GetterAccess;
|
|
end;
|
|
|
|
TValueTerm = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FCollectionType : TCollectionType;
|
|
FReferenceType : TReferenceType;
|
|
FRowType : TRowType;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TWrappedFunctionType;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FFixedLength : TIsFixedLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FUnicode : TIsUnicodeFacet;
|
|
FCollation : TCollationFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_CollectionType() : Boolean;
|
|
function wstHas_ReferenceType() : Boolean;
|
|
function wstHas_RowType() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_FixedLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
function wstHas_Collation() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property CollectionType : TCollectionType read FCollectionType write FCollectionType stored wstHas_CollectionType;
|
|
property ReferenceType : TReferenceType read FReferenceType write FReferenceType stored wstHas_ReferenceType;
|
|
property RowType : TRowType read FRowType write FRowType stored wstHas_RowType;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TWrappedFunctionType read F_Type write F_Type stored wstHas__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 FixedLength : TIsFixedLengthFacet read FFixedLength write FFixedLength stored wstHas_FixedLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property Unicode : TIsUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
property Collation : TCollationFacet read FCollation write FCollation stored wstHas_Collation;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TFunctionImportParameterAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TFunctionImportParameterAndReturnType;
|
|
FMode : TParameterMode;
|
|
FNullable : boolean;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Mode() : Boolean;
|
|
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 : TFunctionImportParameterAndReturnType read F_Type write F_Type;
|
|
property Mode : TParameterMode read FMode write FMode stored wstHas_Mode;
|
|
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;
|
|
|
|
TFunctionImportParameter = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FValueAnnotation : TFunctionImportParameter_ValueAnnotationArray;
|
|
FTypeAnnotation : TFunctionImportParameter_TypeAnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TFunctionImportParameterAndReturnType;
|
|
FMode : TParameterMode;
|
|
FNullable : boolean;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_Mode() : 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 Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property ValueAnnotation : TFunctionImportParameter_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : TFunctionImportParameter_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TFunctionImportParameterAndReturnType read F_Type write F_Type;
|
|
property Mode : TParameterMode read FMode write FMode stored wstHas_Mode;
|
|
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;
|
|
|
|
TFunctionImportAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
FReturnType : TFunctionImportParameterAndReturnType;
|
|
FEntitySet : TSimpleIdentifier;
|
|
FEntitySetPath : UnicodeString;
|
|
FIsComposable : boolean;
|
|
FIsSideEffecting : boolean;
|
|
FIsBindable : boolean;
|
|
FMethodAccess : MethodAccess_Type;
|
|
private
|
|
function wstHas_ReturnType() : Boolean;
|
|
function wstHas_EntitySet() : Boolean;
|
|
function wstHas_EntitySetPath() : Boolean;
|
|
function wstHas_IsComposable() : Boolean;
|
|
function wstHas_IsSideEffecting() : Boolean;
|
|
function wstHas_IsBindable() : Boolean;
|
|
function wstHas_MethodAccess() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property ReturnType : TFunctionImportParameterAndReturnType read FReturnType write FReturnType stored wstHas_ReturnType;
|
|
property EntitySet : TSimpleIdentifier read FEntitySet write FEntitySet stored wstHas_EntitySet;
|
|
property EntitySetPath : UnicodeString read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
|
|
property IsComposable : boolean read FIsComposable write FIsComposable stored wstHas_IsComposable;
|
|
property IsSideEffecting : boolean read FIsSideEffecting write FIsSideEffecting stored wstHas_IsSideEffecting;
|
|
property IsBindable : boolean read FIsBindable write FIsBindable stored wstHas_IsBindable;
|
|
property MethodAccess : MethodAccess_Type read FMethodAccess write FMethodAccess stored wstHas_MethodAccess;
|
|
end;
|
|
|
|
TEntitySetAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
FEntityType : TQualifiedName;
|
|
FGetterAccess : GetterAccess_Type;
|
|
private
|
|
function wstHas_GetterAccess() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntityType : TQualifiedName read FEntityType write FEntityType;
|
|
property GetterAccess : GetterAccess_Type read FGetterAccess write FGetterAccess stored wstHas_GetterAccess;
|
|
end;
|
|
|
|
EntityContainer_FunctionImport_Type = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FReturnType : EntityContainer_FunctionImport_Type_ReturnTypeArray;
|
|
FParameter : EntityContainer_FunctionImport_Type_ParameterArray;
|
|
FValueAnnotation : EntityContainer_FunctionImport_Type_ValueAnnotationArray;
|
|
FTypeAnnotation : EntityContainer_FunctionImport_Type_TypeAnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FReturnTypeAtt : TFunctionImportParameterAndReturnType;
|
|
FEntitySet : TSimpleIdentifier;
|
|
FEntitySetPath : UnicodeString;
|
|
FIsComposable : boolean;
|
|
FIsSideEffecting : boolean;
|
|
FIsBindable : boolean;
|
|
FMethodAccess : MethodAccess_Type;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_ReturnType() : Boolean;
|
|
function wstHas_Parameter() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_ReturnTypeAtt() : Boolean;
|
|
function wstHas_EntitySet() : Boolean;
|
|
function wstHas_EntitySetPath() : Boolean;
|
|
function wstHas_IsComposable() : Boolean;
|
|
function wstHas_IsSideEffecting() : Boolean;
|
|
function wstHas_IsBindable() : Boolean;
|
|
function wstHas_MethodAccess() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property ReturnType : EntityContainer_FunctionImport_Type_ReturnTypeArray read FReturnType write FReturnType stored wstHas_ReturnType;
|
|
property Parameter : EntityContainer_FunctionImport_Type_ParameterArray read FParameter write FParameter stored wstHas_Parameter;
|
|
property ValueAnnotation : EntityContainer_FunctionImport_Type_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : EntityContainer_FunctionImport_Type_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property ReturnTypeAtt : TFunctionImportParameterAndReturnType read FReturnTypeAtt write FReturnTypeAtt stored wstHas_ReturnTypeAtt;
|
|
property EntitySet : TSimpleIdentifier read FEntitySet write FEntitySet stored wstHas_EntitySet;
|
|
property EntitySetPath : UnicodeString read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
|
|
property IsComposable : boolean read FIsComposable write FIsComposable stored wstHas_IsComposable;
|
|
property IsSideEffecting : boolean read FIsSideEffecting write FIsSideEffecting stored wstHas_IsSideEffecting;
|
|
property IsBindable : boolean read FIsBindable write FIsBindable stored wstHas_IsBindable;
|
|
property MethodAccess : MethodAccess_Type read FMethodAccess write FMethodAccess stored wstHas_MethodAccess;
|
|
end;
|
|
|
|
EntityContainer_EntitySet_Type = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FValueAnnotation : EntityContainer_EntitySet_Type_ValueAnnotationArray;
|
|
FTypeAnnotation : EntityContainer_EntitySet_Type_TypeAnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FEntityType : TQualifiedName;
|
|
FGetterAccess : GetterAccess_Type;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_GetterAccess() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property ValueAnnotation : EntityContainer_EntitySet_Type_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : EntityContainer_EntitySet_Type_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntityType : TQualifiedName read FEntityType write FEntityType;
|
|
property GetterAccess : GetterAccess_Type read FGetterAccess write FGetterAccess stored wstHas_GetterAccess;
|
|
end;
|
|
|
|
EntityContainer_AssociationSet_Type_End_Type = class(TBaseComplexRemotable)
|
|
private
|
|
FRole : TSimpleIdentifier;
|
|
FEntitySet : TSimpleIdentifier;
|
|
FDocumentation : TDocumentation;
|
|
private
|
|
function wstHas_Role() : Boolean;
|
|
function wstHas_Documentation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Role : TSimpleIdentifier read FRole write FRole stored wstHas_Role;
|
|
property EntitySet : TSimpleIdentifier read FEntitySet write FEntitySet;
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
end;
|
|
|
|
EntityContainer_AssociationSet_Type = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
F_End : EntityContainer_AssociationSet_Type__EndArray;
|
|
FName : TSimpleIdentifier;
|
|
FAssociation : TQualifiedName;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas__End() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property _End : EntityContainer_AssociationSet_Type__EndArray read F_End write F_End stored wstHas__End;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property Association : TQualifiedName read FAssociation write FAssociation;
|
|
end;
|
|
|
|
EntityContainer = class(TBaseComplexRemotable)
|
|
private
|
|
FDocumentation : TDocumentation;
|
|
FFunctionImport : EntityContainer_FunctionImportArray;
|
|
FEntitySet : EntityContainer_EntitySetArray;
|
|
FAssociationSet : EntityContainer_AssociationSetArray;
|
|
FValueAnnotation : EntityContainer_ValueAnnotationArray;
|
|
FTypeAnnotation : EntityContainer_TypeAnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FExtends : TSimpleIdentifier;
|
|
FTypeAccess : TypeAccess_Type;
|
|
FLazyLoadingEnabled : LazyLoadingEnabled_Type;
|
|
private
|
|
function wstHas_Documentation() : Boolean;
|
|
function wstHas_FunctionImport() : Boolean;
|
|
function wstHas_EntitySet() : Boolean;
|
|
function wstHas_AssociationSet() : Boolean;
|
|
function wstHas_ValueAnnotation() : Boolean;
|
|
function wstHas_TypeAnnotation() : Boolean;
|
|
function wstHas_Extends() : Boolean;
|
|
function wstHas_TypeAccess() : Boolean;
|
|
function wstHas_LazyLoadingEnabled() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Documentation : TDocumentation read FDocumentation write FDocumentation stored wstHas_Documentation;
|
|
property FunctionImport : EntityContainer_FunctionImportArray read FFunctionImport write FFunctionImport stored wstHas_FunctionImport;
|
|
property EntitySet : EntityContainer_EntitySetArray read FEntitySet write FEntitySet stored wstHas_EntitySet;
|
|
property AssociationSet : EntityContainer_AssociationSetArray read FAssociationSet write FAssociationSet stored wstHas_AssociationSet;
|
|
property ValueAnnotation : EntityContainer_ValueAnnotationArray read FValueAnnotation write FValueAnnotation stored wstHas_ValueAnnotation;
|
|
property TypeAnnotation : EntityContainer_TypeAnnotationArray read FTypeAnnotation write FTypeAnnotation stored wstHas_TypeAnnotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property Extends : TSimpleIdentifier read FExtends write FExtends stored wstHas_Extends;
|
|
property TypeAccess : TypeAccess_Type read FTypeAccess write FTypeAccess stored wstHas_TypeAccess;
|
|
property LazyLoadingEnabled : LazyLoadingEnabled_Type read FLazyLoadingEnabled write FLazyLoadingEnabled stored wstHas_LazyLoadingEnabled;
|
|
end;
|
|
|
|
GSchemaBodyElements_UsingArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TUsing;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TUsing Read GetItem;Default;
|
|
end;
|
|
|
|
GSchemaBodyElements_AssociationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TAssociation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TAssociation Read GetItem;Default;
|
|
end;
|
|
|
|
GSchemaBodyElements_ComplexTypeArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TComplexType;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TComplexType Read GetItem;Default;
|
|
end;
|
|
|
|
GSchemaBodyElements_EntityTypeArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEntityType;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TEntityType Read GetItem;Default;
|
|
end;
|
|
|
|
GSchemaBodyElements_EnumTypeArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEnumType;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TEnumType Read GetItem;Default;
|
|
end;
|
|
|
|
GSchemaBodyElements_ValueTermArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueTerm;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueTerm Read GetItem;Default;
|
|
end;
|
|
|
|
GSchemaBodyElements__FunctionArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TFunction;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TFunction Read GetItem;Default;
|
|
end;
|
|
|
|
GSchemaBodyElements_AnnotationsArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TAnnotations;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TAnnotations Read GetItem;Default;
|
|
end;
|
|
|
|
TAssociation__EndArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TAssociationEnd;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TAssociationEnd Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexType__PropertyArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TComplexTypeProperty;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TComplexTypeProperty Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexType_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexType_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TReferentialConstraintRoleElement_PropertyRefArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TPropertyRef;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TPropertyRef Read GetItem;Default;
|
|
end;
|
|
|
|
TNavigationProperty_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TNavigationProperty_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityType__PropertyArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEntityProperty;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TEntityProperty Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityType_NavigationPropertyArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TNavigationProperty;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TNavigationProperty Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityType_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityType_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TEnumType_MemberArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEnumTypeMember;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TEnumTypeMember Read GetItem;Default;
|
|
end;
|
|
|
|
TEnumType_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TEnumType_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TFunction_ParameterArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TFunctionParameter;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TFunctionParameter Read GetItem;Default;
|
|
end;
|
|
|
|
TFunction_DefiningExpressionArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of TCommandText;
|
|
private
|
|
function GetItem(AIndex: Integer): TCommandText;
|
|
procedure SetItem(AIndex: Integer; const AValue: TCommandText);
|
|
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] : TCommandText read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TFunction_ReturnTypeArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TFunctionReturnType;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TFunctionReturnType Read GetItem;Default;
|
|
end;
|
|
|
|
TFunction_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TFunction_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TFunctionParameter_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TFunctionParameter_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TRowType = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TRowProperty;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TRowProperty Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityKeyElement = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TPropertyRef;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TPropertyRef Read GetItem;Default;
|
|
end;
|
|
|
|
TAnnotations_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TAnnotations_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TTypeAnnotation_PropertyValueArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TPropertyValue;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TPropertyValue Read GetItem;Default;
|
|
end;
|
|
|
|
TRecordExpression_PropertyValueArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TPropertyValue;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TPropertyValue Read GetItem;Default;
|
|
end;
|
|
|
|
TFunctionReferenceExpression_ParameterArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TFunctionReferenceExpression_Parameter_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TFunctionReferenceExpression_Parameter_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityProperty_DocumentationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TDocumentation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TDocumentation Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityProperty_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityProperty_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexTypeProperty_DocumentationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TDocumentation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TDocumentation Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexTypeProperty_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexTypeProperty_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TFunctionImportParameter_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
TFunctionImportParameter_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_FunctionImport_Type_ReturnTypeArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TFunctionImportReturnType;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TFunctionImportReturnType Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_FunctionImport_Type_ParameterArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TFunctionImportParameter;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TFunctionImportParameter Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_FunctionImport_Type_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_FunctionImport_Type_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_EntitySet_Type_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_EntitySet_Type_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_AssociationSet_Type__EndArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): EntityContainer_AssociationSet_Type_End_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : EntityContainer_AssociationSet_Type_End_Type Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_FunctionImportArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): EntityContainer_FunctionImport_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : EntityContainer_FunctionImport_Type Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_EntitySetArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): EntityContainer_EntitySet_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : EntityContainer_EntitySet_Type Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_AssociationSetArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): EntityContainer_AssociationSet_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : EntityContainer_AssociationSet_Type Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_ValueAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TValueAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TValueAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
EntityContainer_TypeAnnotationArray = class(TBaseObjectArrayRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeAnnotation;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
property Item[AIndex:Integer] : TTypeAnnotation Read GetItem;Default;
|
|
end;
|
|
|
|
Implementation
|
|
|
|
uses metadata_repository, record_rtti;
|
|
|
|
{ GSchemaBodyElements }
|
|
|
|
constructor GSchemaBodyElements.Create();
|
|
begin
|
|
inherited Create();
|
|
FUsing := GSchemaBodyElements_UsingArray.Create();
|
|
FAssociation := GSchemaBodyElements_AssociationArray.Create();
|
|
FComplexType := GSchemaBodyElements_ComplexTypeArray.Create();
|
|
FEntityType := GSchemaBodyElements_EntityTypeArray.Create();
|
|
FEnumType := GSchemaBodyElements_EnumTypeArray.Create();
|
|
FValueTerm := GSchemaBodyElements_ValueTermArray.Create();
|
|
F_Function := GSchemaBodyElements__FunctionArray.Create();
|
|
FAnnotations := GSchemaBodyElements_AnnotationsArray.Create();
|
|
FEntityContainer := CSDL.EntityContainer.Create();
|
|
end;
|
|
|
|
procedure GSchemaBodyElements.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FUsing) then
|
|
FreeAndNil(FUsing);
|
|
if Assigned(FAssociation) then
|
|
FreeAndNil(FAssociation);
|
|
if Assigned(FComplexType) then
|
|
FreeAndNil(FComplexType);
|
|
if Assigned(FEntityType) then
|
|
FreeAndNil(FEntityType);
|
|
if Assigned(FEnumType) then
|
|
FreeAndNil(FEnumType);
|
|
if Assigned(FValueTerm) then
|
|
FreeAndNil(FValueTerm);
|
|
if Assigned(F_Function) then
|
|
FreeAndNil(F_Function);
|
|
if Assigned(FAnnotations) then
|
|
FreeAndNil(FAnnotations);
|
|
if Assigned(FEntityContainer) then
|
|
FreeAndNil(FEntityContainer);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function GSchemaBodyElements.wstHas_Using() : Boolean;
|
|
begin
|
|
Result := ( FUsing <> GSchemaBodyElements_UsingArray(0) );
|
|
end;
|
|
|
|
function GSchemaBodyElements.wstHas_Association() : Boolean;
|
|
begin
|
|
Result := ( FAssociation <> GSchemaBodyElements_AssociationArray(0) );
|
|
end;
|
|
|
|
function GSchemaBodyElements.wstHas_ComplexType() : Boolean;
|
|
begin
|
|
Result := ( FComplexType <> GSchemaBodyElements_ComplexTypeArray(0) );
|
|
end;
|
|
|
|
function GSchemaBodyElements.wstHas_EntityType() : Boolean;
|
|
begin
|
|
Result := ( FEntityType <> GSchemaBodyElements_EntityTypeArray(0) );
|
|
end;
|
|
|
|
function GSchemaBodyElements.wstHas_EnumType() : Boolean;
|
|
begin
|
|
Result := ( FEnumType <> GSchemaBodyElements_EnumTypeArray(0) );
|
|
end;
|
|
|
|
function GSchemaBodyElements.wstHas_ValueTerm() : Boolean;
|
|
begin
|
|
Result := ( FValueTerm <> GSchemaBodyElements_ValueTermArray(0) );
|
|
end;
|
|
|
|
function GSchemaBodyElements.wstHas__Function() : Boolean;
|
|
begin
|
|
Result := ( F_Function <> GSchemaBodyElements__FunctionArray(0) );
|
|
end;
|
|
|
|
function GSchemaBodyElements.wstHas_Annotations() : Boolean;
|
|
begin
|
|
Result := ( FAnnotations <> GSchemaBodyElements_AnnotationsArray(0) );
|
|
end;
|
|
|
|
{ TSchema }
|
|
|
|
constructor TSchema.Create();
|
|
begin
|
|
inherited Create();
|
|
FUsing := GSchemaBodyElements_UsingArray.Create();
|
|
FAssociation := GSchemaBodyElements_AssociationArray.Create();
|
|
FComplexType := GSchemaBodyElements_ComplexTypeArray.Create();
|
|
FEntityType := GSchemaBodyElements_EntityTypeArray.Create();
|
|
FEnumType := GSchemaBodyElements_EnumTypeArray.Create();
|
|
FValueTerm := GSchemaBodyElements_ValueTermArray.Create();
|
|
F_Function := GSchemaBodyElements__FunctionArray.Create();
|
|
FAnnotations := GSchemaBodyElements_AnnotationsArray.Create();
|
|
FEntityContainer := CSDL.EntityContainer.Create();
|
|
end;
|
|
|
|
procedure TSchema.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FUsing) then
|
|
FreeAndNil(FUsing);
|
|
if Assigned(FAssociation) then
|
|
FreeAndNil(FAssociation);
|
|
if Assigned(FComplexType) then
|
|
FreeAndNil(FComplexType);
|
|
if Assigned(FEntityType) then
|
|
FreeAndNil(FEntityType);
|
|
if Assigned(FEnumType) then
|
|
FreeAndNil(FEnumType);
|
|
if Assigned(FValueTerm) then
|
|
FreeAndNil(FValueTerm);
|
|
if Assigned(F_Function) then
|
|
FreeAndNil(F_Function);
|
|
if Assigned(FAnnotations) then
|
|
FreeAndNil(FAnnotations);
|
|
if Assigned(FEntityContainer) then
|
|
FreeAndNil(FEntityContainer);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TSchema.wstHas_Namespace() : Boolean;
|
|
begin
|
|
Result := ( FNamespace <> '' );
|
|
end;
|
|
|
|
function TSchema.wstHas_Alias() : Boolean;
|
|
begin
|
|
Result := ( FAlias <> '' );
|
|
end;
|
|
|
|
function TSchema.wstHas_Using() : Boolean;
|
|
begin
|
|
Result := ( FUsing <> GSchemaBodyElements_UsingArray(0) );
|
|
end;
|
|
|
|
function TSchema.wstHas_Association() : Boolean;
|
|
begin
|
|
Result := ( FAssociation <> GSchemaBodyElements_AssociationArray(0) );
|
|
end;
|
|
|
|
function TSchema.wstHas_ComplexType() : Boolean;
|
|
begin
|
|
Result := ( FComplexType <> GSchemaBodyElements_ComplexTypeArray(0) );
|
|
end;
|
|
|
|
function TSchema.wstHas_EntityType() : Boolean;
|
|
begin
|
|
Result := ( FEntityType <> GSchemaBodyElements_EntityTypeArray(0) );
|
|
end;
|
|
|
|
function TSchema.wstHas_EnumType() : Boolean;
|
|
begin
|
|
Result := ( FEnumType <> GSchemaBodyElements_EnumTypeArray(0) );
|
|
end;
|
|
|
|
function TSchema.wstHas_ValueTerm() : Boolean;
|
|
begin
|
|
Result := ( FValueTerm <> GSchemaBodyElements_ValueTermArray(0) );
|
|
end;
|
|
|
|
function TSchema.wstHas__Function() : Boolean;
|
|
begin
|
|
Result := ( F_Function <> GSchemaBodyElements__FunctionArray(0) );
|
|
end;
|
|
|
|
function TSchema.wstHas_Annotations() : Boolean;
|
|
begin
|
|
Result := ( FAnnotations <> GSchemaBodyElements_AnnotationsArray(0) );
|
|
end;
|
|
|
|
{ TDocumentation }
|
|
|
|
constructor TDocumentation.Create();
|
|
begin
|
|
inherited Create();
|
|
FSummary := TText.Create();
|
|
FLongDescription := TText.Create();
|
|
end;
|
|
|
|
procedure TDocumentation.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FSummary) then
|
|
FreeAndNil(FSummary);
|
|
if Assigned(FLongDescription) then
|
|
FreeAndNil(FLongDescription);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TDocumentation.wstHas_Summary() : Boolean;
|
|
begin
|
|
Result := ( FSummary <> nil );
|
|
end;
|
|
|
|
function TDocumentation.wstHas_LongDescription() : Boolean;
|
|
begin
|
|
Result := ( FLongDescription <> nil );
|
|
end;
|
|
|
|
{ GEmptyElementExtensibility }
|
|
|
|
constructor GEmptyElementExtensibility.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure GEmptyElementExtensibility.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function GEmptyElementExtensibility.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TUsing }
|
|
|
|
constructor TUsing.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TUsing.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TUsing.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TAssociation }
|
|
|
|
constructor TAssociation.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
F_End := TAssociation__EndArray.Create();
|
|
FReferentialConstraint := TConstraint.Create();
|
|
end;
|
|
|
|
procedure TAssociation.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(F_End) then
|
|
FreeAndNil(F_End);
|
|
if Assigned(FReferentialConstraint) then
|
|
FreeAndNil(FReferentialConstraint);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TAssociation.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TAssociation.wstHas_ReferentialConstraint() : Boolean;
|
|
begin
|
|
Result := ( FReferentialConstraint <> nil );
|
|
end;
|
|
|
|
{ TComplexType }
|
|
|
|
constructor TComplexType.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
F_Property := TComplexType__PropertyArray.Create();
|
|
FValueAnnotation := TComplexType_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TComplexType_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TComplexType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(F_Property) then
|
|
FreeAndNil(F_Property);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TComplexType.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TComplexType.wstHas__Property() : Boolean;
|
|
begin
|
|
Result := ( F_Property <> TComplexType__PropertyArray(0) );
|
|
end;
|
|
|
|
function TComplexType.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TComplexType_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TComplexType.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TComplexType_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TComplexType.wstHas_TypeAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
{ TConstraint }
|
|
|
|
constructor TConstraint.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FPrincipal := TReferentialConstraintRoleElement.Create();
|
|
FDependent := TReferentialConstraintRoleElement.Create();
|
|
end;
|
|
|
|
procedure TConstraint.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FPrincipal) then
|
|
FreeAndNil(FPrincipal);
|
|
if Assigned(FDependent) then
|
|
FreeAndNil(FDependent);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TConstraint.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TReferentialConstraintRoleElement }
|
|
|
|
constructor TReferentialConstraintRoleElement.Create();
|
|
begin
|
|
inherited Create();
|
|
FPropertyRef := TReferentialConstraintRoleElement_PropertyRefArray.Create();
|
|
end;
|
|
|
|
procedure TReferentialConstraintRoleElement.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FPropertyRef) then
|
|
FreeAndNil(FPropertyRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
{ TNavigationProperty }
|
|
|
|
constructor TNavigationProperty.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FValueAnnotation := TNavigationProperty_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TNavigationProperty_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TNavigationProperty.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TNavigationProperty_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TNavigationProperty_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_ContainsTarget() : Boolean;
|
|
begin
|
|
Result := ( FContainsTarget <> boolean(0) );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_GetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_SetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
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();
|
|
FDocumentation := TDocumentation.Create();
|
|
FKey := TEntityKeyElement.Create();
|
|
F_Property := TEntityType__PropertyArray.Create();
|
|
FNavigationProperty := TEntityType_NavigationPropertyArray.Create();
|
|
FValueAnnotation := TEntityType_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TEntityType_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TEntityType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FKey) then
|
|
FreeAndNil(FKey);
|
|
if Assigned(F_Property) then
|
|
FreeAndNil(F_Property);
|
|
if Assigned(FNavigationProperty) then
|
|
FreeAndNil(FNavigationProperty);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEntityType.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TEntityType.wstHas_Key() : Boolean;
|
|
begin
|
|
Result := ( FKey <> TEntityKeyElement(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_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TEntityType_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TEntityType_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas_OpenType() : Boolean;
|
|
begin
|
|
Result := ( FOpenType <> boolean(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas_TypeAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TEntityType.wstHas_BaseType() : Boolean;
|
|
begin
|
|
Result := ( FBaseType <> '' );
|
|
end;
|
|
|
|
function TEntityType.wstHas__Abstract() : Boolean;
|
|
begin
|
|
Result := ( F_Abstract <> boolean(0) );
|
|
end;
|
|
|
|
{ TEnumTypeMember }
|
|
|
|
constructor TEnumTypeMember.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TEnumTypeMember.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEnumTypeMember.wstHas_Value() : Boolean;
|
|
begin
|
|
Result := ( FValue <> Int64(0) );
|
|
end;
|
|
|
|
function TEnumTypeMember.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TEnumType }
|
|
|
|
constructor TEnumType.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FMember := TEnumType_MemberArray.Create();
|
|
FValueAnnotation := TEnumType_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TEnumType_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TEnumType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FMember) then
|
|
FreeAndNil(FMember);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEnumType.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TEnumType.wstHas_Member() : Boolean;
|
|
begin
|
|
Result := ( FMember <> TEnumType_MemberArray(0) );
|
|
end;
|
|
|
|
function TEnumType.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TEnumType_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TEnumType.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TEnumType_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TEnumType.wstHas_IsFlags() : Boolean;
|
|
begin
|
|
Result := ( FIsFlags <> boolean(0) );
|
|
end;
|
|
|
|
function TEnumType.wstHas_UnderlyingType() : Boolean;
|
|
begin
|
|
Result := ( FUnderlyingType <> '' );
|
|
end;
|
|
|
|
function TEnumType.wstHas_TypeAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TFunction }
|
|
|
|
constructor TFunction.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FParameter := TFunction_ParameterArray.Create();
|
|
FDefiningExpression := TFunction_DefiningExpressionArray.Create();
|
|
FReturnType := TFunction_ReturnTypeArray.Create();
|
|
FValueAnnotation := TFunction_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TFunction_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TFunction.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FParameter) then
|
|
FreeAndNil(FParameter);
|
|
if Assigned(FDefiningExpression) then
|
|
FreeAndNil(FDefiningExpression);
|
|
if Assigned(FReturnType) then
|
|
FreeAndNil(FReturnType);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TFunction.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TFunction.wstHas_Parameter() : Boolean;
|
|
begin
|
|
Result := ( FParameter <> TFunction_ParameterArray(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_DefiningExpression() : Boolean;
|
|
begin
|
|
Result := ( FDefiningExpression <> TFunction_DefiningExpressionArray(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_ReturnType() : Boolean;
|
|
begin
|
|
Result := ( FReturnType <> TFunction_ReturnTypeArray(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TFunction_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TFunction_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_ReturnTypeAtt() : Boolean;
|
|
begin
|
|
Result := ( FReturnTypeAtt <> '' );
|
|
end;
|
|
|
|
function TFunction.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TFunction.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TFunction.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TFunction.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TFunctionParameter }
|
|
|
|
constructor TFunctionParameter.Create();
|
|
begin
|
|
inherited Create();
|
|
FCollectionType := TCollectionType.Create();
|
|
FReferenceType := TReferenceType.Create();
|
|
FRowType := TRowType.Create();
|
|
FValueAnnotation := TFunctionParameter_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TFunctionParameter_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TFunctionParameter.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FCollectionType) then
|
|
FreeAndNil(FCollectionType);
|
|
if Assigned(FReferenceType) then
|
|
FreeAndNil(FReferenceType);
|
|
if Assigned(FRowType) then
|
|
FreeAndNil(FRowType);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_CollectionType() : Boolean;
|
|
begin
|
|
Result := ( FCollectionType <> nil );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_ReferenceType() : Boolean;
|
|
begin
|
|
Result := ( FReferenceType <> nil );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_RowType() : Boolean;
|
|
begin
|
|
Result := ( FRowType <> TRowType(0) );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TFunctionParameter_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TFunctionParameter_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TFunctionParameter.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TCollectionType }
|
|
|
|
constructor TCollectionType.Create();
|
|
begin
|
|
inherited Create();
|
|
FReferenceType := TReferenceType.Create();
|
|
FRowType := TRowType.Create();
|
|
FTypeRef := TTypeRef.Create();
|
|
end;
|
|
|
|
procedure TCollectionType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FCollectionType) then
|
|
FreeAndNil(FCollectionType);
|
|
if Assigned(FReferenceType) then
|
|
FreeAndNil(FReferenceType);
|
|
if Assigned(FRowType) then
|
|
FreeAndNil(FRowType);
|
|
if Assigned(FTypeRef) then
|
|
FreeAndNil(FTypeRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TCollectionType.wstHas_CollectionType() : Boolean;
|
|
begin
|
|
Result := ( FCollectionType <> nil );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_ReferenceType() : Boolean;
|
|
begin
|
|
Result := ( FReferenceType <> nil );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_RowType() : Boolean;
|
|
begin
|
|
Result := ( FRowType <> TRowType(0) );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_TypeRef() : Boolean;
|
|
begin
|
|
Result := ( FTypeRef <> nil );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_ElementType() : Boolean;
|
|
begin
|
|
Result := ( FElementType <> '' );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TCollectionType.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TTypeRef }
|
|
|
|
constructor TTypeRef.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TTypeRef.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TTypeRef.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TTypeRef.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TReferenceType }
|
|
|
|
constructor TReferenceType.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TReferenceType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TReferenceType.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TRowProperty }
|
|
|
|
constructor TRowProperty.Create();
|
|
begin
|
|
inherited Create();
|
|
FCollectionType := TCollectionType.Create();
|
|
FReferenceType := TReferenceType.Create();
|
|
FRowType := TRowType.Create();
|
|
end;
|
|
|
|
procedure TRowProperty.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FCollectionType) then
|
|
FreeAndNil(FCollectionType);
|
|
if Assigned(FReferenceType) then
|
|
FreeAndNil(FReferenceType);
|
|
if Assigned(FRowType) then
|
|
FreeAndNil(FRowType);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TRowProperty.wstHas_CollectionType() : Boolean;
|
|
begin
|
|
Result := ( FCollectionType <> nil );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_ReferenceType() : Boolean;
|
|
begin
|
|
Result := ( FReferenceType <> nil );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_RowType() : Boolean;
|
|
begin
|
|
Result := ( FRowType <> TRowType(0) );
|
|
end;
|
|
|
|
function TRowProperty.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TRowProperty.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TFunctionReturnType }
|
|
|
|
constructor TFunctionReturnType.Create();
|
|
begin
|
|
inherited Create();
|
|
FCollectionType := TCollectionType.Create();
|
|
FReferenceType := TReferenceType.Create();
|
|
FRowType := TRowType.Create();
|
|
end;
|
|
|
|
procedure TFunctionReturnType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FCollectionType) then
|
|
FreeAndNil(FCollectionType);
|
|
if Assigned(FReferenceType) then
|
|
FreeAndNil(FReferenceType);
|
|
if Assigned(FRowType) then
|
|
FreeAndNil(FRowType);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_CollectionType() : Boolean;
|
|
begin
|
|
Result := ( FCollectionType <> nil );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_ReferenceType() : Boolean;
|
|
begin
|
|
Result := ( FReferenceType <> nil );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_RowType() : Boolean;
|
|
begin
|
|
Result := ( FRowType <> TRowType(0) );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TFunctionReturnType.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TFunctionImportReturnType.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
function TFunctionImportReturnType.wstHas_EntitySet() : Boolean;
|
|
begin
|
|
Result := ( FEntitySet <> '' );
|
|
end;
|
|
|
|
function TFunctionImportReturnType.wstHas_EntitySetPath() : Boolean;
|
|
begin
|
|
Result := ( FEntitySetPath <> '' );
|
|
end;
|
|
|
|
{ TAnnotations }
|
|
|
|
constructor TAnnotations.Create();
|
|
begin
|
|
inherited Create();
|
|
FValueAnnotation := TAnnotations_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TAnnotations_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TAnnotations.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TAnnotations.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TAnnotations_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TAnnotations.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TAnnotations_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TAnnotations.wstHas_Qualifier() : Boolean;
|
|
begin
|
|
Result := ( FQualifier <> '' );
|
|
end;
|
|
|
|
{ GInlineExpressions }
|
|
|
|
constructor GInlineExpressions.Create();
|
|
begin
|
|
inherited Create();
|
|
FBinary := TBase16StringRemotable.Create();
|
|
FTime := TTimeRemotable.Create();
|
|
FDateTime := TDateTimeRemotable.Create();
|
|
FDateTimeOffset := TDateTimeRemotable.Create();
|
|
end;
|
|
|
|
procedure GInlineExpressions.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FTime) then
|
|
FreeAndNil(FTime);
|
|
if Assigned(FDateTime) then
|
|
FreeAndNil(FDateTime);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> integer(0) );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> 0 );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> 0 );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> boolean(0) );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Time() : Boolean;
|
|
begin
|
|
Result := ( FTime <> nil );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_DateTime() : Boolean;
|
|
begin
|
|
Result := ( FDateTime <> nil );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> '' );
|
|
end;
|
|
|
|
{ TValueAnnotation }
|
|
|
|
constructor TValueAnnotation.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FBinary := TBase16StringRemotable.Create();
|
|
FTime := TTimeRemotable.Create();
|
|
FDateTime := TDateTimeRemotable.Create();
|
|
FDateTimeOffset := TDateTimeRemotable.Create();
|
|
end;
|
|
|
|
procedure TValueAnnotation.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FTime) then
|
|
FreeAndNil(FTime);
|
|
if Assigned(FDateTime) then
|
|
FreeAndNil(FDateTime);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Qualifier() : Boolean;
|
|
begin
|
|
Result := ( FQualifier <> '' );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> '' );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> integer(0) );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> 0 );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> '' );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> 0 );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> boolean(0) );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Time() : Boolean;
|
|
begin
|
|
Result := ( FTime <> nil );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_DateTime() : Boolean;
|
|
begin
|
|
Result := ( FDateTime <> nil );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TValueAnnotation.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> '' );
|
|
end;
|
|
|
|
{ TTypeAnnotation }
|
|
|
|
constructor TTypeAnnotation.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FPropertyValue := TTypeAnnotation_PropertyValueArray.Create();
|
|
FBinary := TBase16StringRemotable.Create();
|
|
FTime := TTimeRemotable.Create();
|
|
FDateTime := TDateTimeRemotable.Create();
|
|
FDateTimeOffset := TDateTimeRemotable.Create();
|
|
end;
|
|
|
|
procedure TTypeAnnotation.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FPropertyValue) then
|
|
FreeAndNil(FPropertyValue);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FTime) then
|
|
FreeAndNil(FTime);
|
|
if Assigned(FDateTime) then
|
|
FreeAndNil(FDateTime);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_PropertyValue() : Boolean;
|
|
begin
|
|
Result := ( FPropertyValue <> TTypeAnnotation_PropertyValueArray(0) );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Qualifier() : Boolean;
|
|
begin
|
|
Result := ( FQualifier <> '' );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> '' );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> integer(0) );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> 0 );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> '' );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> 0 );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> boolean(0) );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Time() : Boolean;
|
|
begin
|
|
Result := ( FTime <> nil );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_DateTime() : Boolean;
|
|
begin
|
|
Result := ( FDateTime <> nil );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TTypeAnnotation.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> '' );
|
|
end;
|
|
|
|
{ TNullExpression }
|
|
|
|
constructor TNullExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TNullExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TNullExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TIfExpression }
|
|
|
|
constructor TIfExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TIfExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TRecordExpression }
|
|
|
|
constructor TRecordExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FPropertyValue := TRecordExpression_PropertyValueArray.Create();
|
|
end;
|
|
|
|
procedure TRecordExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FPropertyValue) then
|
|
FreeAndNil(FPropertyValue);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TRecordExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TRecordExpression.wstHas_PropertyValue() : Boolean;
|
|
begin
|
|
Result := ( FPropertyValue <> TRecordExpression_PropertyValueArray(0) );
|
|
end;
|
|
|
|
function TRecordExpression.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
{ TPropertyValue }
|
|
|
|
constructor TPropertyValue.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FBinary := TBase16StringRemotable.Create();
|
|
FTime := TTimeRemotable.Create();
|
|
FDateTime := TDateTimeRemotable.Create();
|
|
FDateTimeOffset := TDateTimeRemotable.Create();
|
|
end;
|
|
|
|
procedure TPropertyValue.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FTime) then
|
|
FreeAndNil(FTime);
|
|
if Assigned(FDateTime) then
|
|
FreeAndNil(FDateTime);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> integer(0) );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> 0 );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> 0 );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> boolean(0) );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Time() : Boolean;
|
|
begin
|
|
Result := ( FTime <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_DateTime() : Boolean;
|
|
begin
|
|
Result := ( FDateTime <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> '' );
|
|
end;
|
|
|
|
{ TCollectionExpression }
|
|
|
|
constructor TCollectionExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TCollectionExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TAssertTypeExpression }
|
|
|
|
constructor TAssertTypeExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FCollectionType := TCollectionType.Create();
|
|
FReferenceType := TReferenceType.Create();
|
|
FRowType := TRowType.Create();
|
|
end;
|
|
|
|
procedure TAssertTypeExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FCollectionType) then
|
|
FreeAndNil(FCollectionType);
|
|
if Assigned(FReferenceType) then
|
|
FreeAndNil(FReferenceType);
|
|
if Assigned(FRowType) then
|
|
FreeAndNil(FRowType);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_CollectionType() : Boolean;
|
|
begin
|
|
Result := ( FCollectionType <> nil );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_ReferenceType() : Boolean;
|
|
begin
|
|
Result := ( FReferenceType <> nil );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_RowType() : Boolean;
|
|
begin
|
|
Result := ( FRowType <> TRowType(0) );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TAssertTypeExpression.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TIsTypeExpression }
|
|
|
|
constructor TIsTypeExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FCollectionType := TCollectionType.Create();
|
|
FReferenceType := TReferenceType.Create();
|
|
FRowType := TRowType.Create();
|
|
end;
|
|
|
|
procedure TIsTypeExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FCollectionType) then
|
|
FreeAndNil(FCollectionType);
|
|
if Assigned(FReferenceType) then
|
|
FreeAndNil(FReferenceType);
|
|
if Assigned(FRowType) then
|
|
FreeAndNil(FRowType);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_CollectionType() : Boolean;
|
|
begin
|
|
Result := ( FCollectionType <> nil );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_ReferenceType() : Boolean;
|
|
begin
|
|
Result := ( FReferenceType <> nil );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_RowType() : Boolean;
|
|
begin
|
|
Result := ( FRowType <> TRowType(0) );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TIsTypeExpression.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TFunctionReferenceExpression_Parameter_Type }
|
|
|
|
constructor TFunctionReferenceExpression_Parameter_Type.Create();
|
|
begin
|
|
inherited Create();
|
|
FCollectionType := TCollectionType.Create();
|
|
FReferenceType := TReferenceType.Create();
|
|
FRowType := TRowType.Create();
|
|
end;
|
|
|
|
procedure TFunctionReferenceExpression_Parameter_Type.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FCollectionType) then
|
|
FreeAndNil(FCollectionType);
|
|
if Assigned(FReferenceType) then
|
|
FreeAndNil(FReferenceType);
|
|
if Assigned(FRowType) then
|
|
FreeAndNil(FRowType);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TFunctionReferenceExpression_Parameter_Type.wstHas_CollectionType() : Boolean;
|
|
begin
|
|
Result := ( FCollectionType <> nil );
|
|
end;
|
|
|
|
function TFunctionReferenceExpression_Parameter_Type.wstHas_ReferenceType() : Boolean;
|
|
begin
|
|
Result := ( FReferenceType <> nil );
|
|
end;
|
|
|
|
function TFunctionReferenceExpression_Parameter_Type.wstHas_RowType() : Boolean;
|
|
begin
|
|
Result := ( FRowType <> TRowType(0) );
|
|
end;
|
|
|
|
function TFunctionReferenceExpression_Parameter_Type.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
{ TFunctionReferenceExpression }
|
|
|
|
constructor TFunctionReferenceExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FParameter := TFunctionReferenceExpression_ParameterArray.Create();
|
|
end;
|
|
|
|
procedure TFunctionReferenceExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FParameter) then
|
|
FreeAndNil(FParameter);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TFunctionReferenceExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TFunctionReferenceExpression.wstHas_Parameter() : Boolean;
|
|
begin
|
|
Result := ( FParameter <> TFunctionReferenceExpression_ParameterArray(0) );
|
|
end;
|
|
|
|
{ TApplyExpression }
|
|
|
|
constructor TApplyExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TApplyExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas__Function() : Boolean;
|
|
begin
|
|
Result := ( F_Function <> '' );
|
|
end;
|
|
|
|
{ TPropertyReferenceExpression }
|
|
|
|
constructor TPropertyReferenceExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TPropertyReferenceExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TPropertyReferenceExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TValueTermReferenceExpression }
|
|
|
|
constructor TValueTermReferenceExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TValueTermReferenceExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TValueTermReferenceExpression.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TValueTermReferenceExpression.wstHas_Qualifier() : Boolean;
|
|
begin
|
|
Result := ( FQualifier <> '' );
|
|
end;
|
|
|
|
{ TLabeledElement }
|
|
|
|
constructor TLabeledElement.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TLabeledElement.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TLabeledElement.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ TOperations }
|
|
|
|
constructor TOperations.Create();
|
|
begin
|
|
inherited Create();
|
|
FOnDelete := TOnAction.Create();
|
|
end;
|
|
|
|
procedure TOperations.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FOnDelete) then
|
|
FreeAndNil(FOnDelete);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TOperations.wstHas_OnDelete() : Boolean;
|
|
begin
|
|
Result := ( FOnDelete <> nil );
|
|
end;
|
|
|
|
{ TAssociationEnd }
|
|
|
|
constructor TAssociationEnd.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FOnDelete := TOnAction.Create();
|
|
end;
|
|
|
|
procedure TAssociationEnd.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FOnDelete) then
|
|
FreeAndNil(FOnDelete);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TAssociationEnd.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TAssociationEnd.wstHas_Role() : Boolean;
|
|
begin
|
|
Result := ( FRole <> '' );
|
|
end;
|
|
|
|
function TAssociationEnd.wstHas_Multiplicity() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TAssociationEnd.wstHas_OnDelete() : Boolean;
|
|
begin
|
|
Result := ( FOnDelete <> nil );
|
|
end;
|
|
|
|
{ TOnAction }
|
|
|
|
constructor TOnAction.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure TOnAction.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TOnAction.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
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_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_ConcurrencyMode() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_SetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_GetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
{ TEntityProperty }
|
|
|
|
constructor TEntityProperty.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TEntityProperty_DocumentationArray.Create();
|
|
FValueAnnotation := TEntityProperty_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TEntityProperty_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TEntityProperty.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> TEntityProperty_DocumentationArray(0) );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TEntityProperty_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TEntityProperty_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_StoreGeneratedPattern() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_ConcurrencyMode() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_SetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TEntityProperty.wstHas_GetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
{ TComplexTypeProperty }
|
|
|
|
constructor TComplexTypeProperty.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TComplexTypeProperty_DocumentationArray.Create();
|
|
FValueAnnotation := TComplexTypeProperty_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TComplexTypeProperty_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TComplexTypeProperty.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> TComplexTypeProperty_DocumentationArray(0) );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TComplexTypeProperty_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TComplexTypeProperty_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_ConcurrencyMode() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_SetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TComplexTypeProperty.wstHas_GetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
{ TValueTerm }
|
|
|
|
constructor TValueTerm.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FCollectionType := TCollectionType.Create();
|
|
FReferenceType := TReferenceType.Create();
|
|
FRowType := TRowType.Create();
|
|
end;
|
|
|
|
procedure TValueTerm.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FCollectionType) then
|
|
FreeAndNil(FCollectionType);
|
|
if Assigned(FReferenceType) then
|
|
FreeAndNil(FReferenceType);
|
|
if Assigned(FRowType) then
|
|
FreeAndNil(FRowType);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TValueTerm.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_CollectionType() : Boolean;
|
|
begin
|
|
Result := ( FCollectionType <> nil );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_ReferenceType() : Boolean;
|
|
begin
|
|
Result := ( FReferenceType <> nil );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_RowType() : Boolean;
|
|
begin
|
|
Result := ( FRowType <> TRowType(0) );
|
|
end;
|
|
|
|
function TValueTerm.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_FixedLength() : Boolean;
|
|
begin
|
|
Result := ( FFixedLength <> TIsFixedLengthFacet(0) );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TIsUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_Collation() : Boolean;
|
|
begin
|
|
Result := ( FCollation <> '' );
|
|
end;
|
|
|
|
function TValueTerm.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TFunctionImportParameterAttributes.wstHas_Mode() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TFunctionImportParameterAttributes.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionImportParameterAttributes.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TFunctionImportParameterAttributes.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TFunctionImportParameterAttributes.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TFunctionImportParameterAttributes.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TFunctionImportParameter }
|
|
|
|
constructor TFunctionImportParameter.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FValueAnnotation := TFunctionImportParameter_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := TFunctionImportParameter_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TFunctionImportParameter.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> TFunctionImportParameter_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> TFunctionImportParameter_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_Mode() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> TScaleFacet(0) );
|
|
end;
|
|
|
|
function TFunctionImportParameter.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TFunctionImportAttributes.wstHas_ReturnType() : Boolean;
|
|
begin
|
|
Result := ( FReturnType <> '' );
|
|
end;
|
|
|
|
function TFunctionImportAttributes.wstHas_EntitySet() : Boolean;
|
|
begin
|
|
Result := ( FEntitySet <> '' );
|
|
end;
|
|
|
|
function TFunctionImportAttributes.wstHas_EntitySetPath() : Boolean;
|
|
begin
|
|
Result := ( FEntitySetPath <> '' );
|
|
end;
|
|
|
|
function TFunctionImportAttributes.wstHas_IsComposable() : Boolean;
|
|
begin
|
|
Result := ( FIsComposable <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionImportAttributes.wstHas_IsSideEffecting() : Boolean;
|
|
begin
|
|
Result := ( FIsSideEffecting <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionImportAttributes.wstHas_IsBindable() : Boolean;
|
|
begin
|
|
Result := ( FIsBindable <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionImportAttributes.wstHas_MethodAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function TEntitySetAttributes.wstHas_GetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
{ EntityContainer_FunctionImport_Type }
|
|
|
|
constructor EntityContainer_FunctionImport_Type.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FReturnType := EntityContainer_FunctionImport_Type_ReturnTypeArray.Create();
|
|
FParameter := EntityContainer_FunctionImport_Type_ParameterArray.Create();
|
|
FValueAnnotation := EntityContainer_FunctionImport_Type_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := EntityContainer_FunctionImport_Type_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure EntityContainer_FunctionImport_Type.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FReturnType) then
|
|
FreeAndNil(FReturnType);
|
|
if Assigned(FParameter) then
|
|
FreeAndNil(FParameter);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_ReturnType() : Boolean;
|
|
begin
|
|
Result := ( FReturnType <> EntityContainer_FunctionImport_Type_ReturnTypeArray(0) );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_Parameter() : Boolean;
|
|
begin
|
|
Result := ( FParameter <> EntityContainer_FunctionImport_Type_ParameterArray(0) );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> EntityContainer_FunctionImport_Type_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> EntityContainer_FunctionImport_Type_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_ReturnTypeAtt() : Boolean;
|
|
begin
|
|
Result := ( FReturnTypeAtt <> '' );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_EntitySet() : Boolean;
|
|
begin
|
|
Result := ( FEntitySet <> '' );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_EntitySetPath() : Boolean;
|
|
begin
|
|
Result := ( FEntitySetPath <> '' );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_IsComposable() : Boolean;
|
|
begin
|
|
Result := ( FIsComposable <> boolean(0) );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_IsSideEffecting() : Boolean;
|
|
begin
|
|
Result := ( FIsSideEffecting <> boolean(0) );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_IsBindable() : Boolean;
|
|
begin
|
|
Result := ( FIsBindable <> boolean(0) );
|
|
end;
|
|
|
|
function EntityContainer_FunctionImport_Type.wstHas_MethodAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
{ EntityContainer_EntitySet_Type }
|
|
|
|
constructor EntityContainer_EntitySet_Type.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FValueAnnotation := EntityContainer_EntitySet_Type_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := EntityContainer_EntitySet_Type_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure EntityContainer_EntitySet_Type.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function EntityContainer_EntitySet_Type.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function EntityContainer_EntitySet_Type.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> EntityContainer_EntitySet_Type_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function EntityContainer_EntitySet_Type.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> EntityContainer_EntitySet_Type_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function EntityContainer_EntitySet_Type.wstHas_GetterAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
{ EntityContainer_AssociationSet_Type_End_Type }
|
|
|
|
constructor EntityContainer_AssociationSet_Type_End_Type.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
end;
|
|
|
|
procedure EntityContainer_AssociationSet_Type_End_Type.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function EntityContainer_AssociationSet_Type_End_Type.wstHas_Role() : Boolean;
|
|
begin
|
|
Result := ( FRole <> '' );
|
|
end;
|
|
|
|
function EntityContainer_AssociationSet_Type_End_Type.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
{ EntityContainer_AssociationSet_Type }
|
|
|
|
constructor EntityContainer_AssociationSet_Type.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
F_End := EntityContainer_AssociationSet_Type__EndArray.Create();
|
|
end;
|
|
|
|
procedure EntityContainer_AssociationSet_Type.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(F_End) then
|
|
FreeAndNil(F_End);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function EntityContainer_AssociationSet_Type.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function EntityContainer_AssociationSet_Type.wstHas__End() : Boolean;
|
|
begin
|
|
Result := ( F_End <> EntityContainer_AssociationSet_Type__EndArray(0) );
|
|
end;
|
|
|
|
{ EntityContainer }
|
|
|
|
constructor EntityContainer.Create();
|
|
begin
|
|
inherited Create();
|
|
FDocumentation := TDocumentation.Create();
|
|
FFunctionImport := EntityContainer_FunctionImportArray.Create();
|
|
FEntitySet := EntityContainer_EntitySetArray.Create();
|
|
FAssociationSet := EntityContainer_AssociationSetArray.Create();
|
|
FValueAnnotation := EntityContainer_ValueAnnotationArray.Create();
|
|
FTypeAnnotation := EntityContainer_TypeAnnotationArray.Create();
|
|
end;
|
|
|
|
procedure EntityContainer.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDocumentation) then
|
|
FreeAndNil(FDocumentation);
|
|
if Assigned(FFunctionImport) then
|
|
FreeAndNil(FFunctionImport);
|
|
if Assigned(FEntitySet) then
|
|
FreeAndNil(FEntitySet);
|
|
if Assigned(FAssociationSet) then
|
|
FreeAndNil(FAssociationSet);
|
|
if Assigned(FValueAnnotation) then
|
|
FreeAndNil(FValueAnnotation);
|
|
if Assigned(FTypeAnnotation) then
|
|
FreeAndNil(FTypeAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function EntityContainer.wstHas_Documentation() : Boolean;
|
|
begin
|
|
Result := ( FDocumentation <> nil );
|
|
end;
|
|
|
|
function EntityContainer.wstHas_FunctionImport() : Boolean;
|
|
begin
|
|
Result := ( FFunctionImport <> EntityContainer_FunctionImportArray(0) );
|
|
end;
|
|
|
|
function EntityContainer.wstHas_EntitySet() : Boolean;
|
|
begin
|
|
Result := ( FEntitySet <> EntityContainer_EntitySetArray(0) );
|
|
end;
|
|
|
|
function EntityContainer.wstHas_AssociationSet() : Boolean;
|
|
begin
|
|
Result := ( FAssociationSet <> EntityContainer_AssociationSetArray(0) );
|
|
end;
|
|
|
|
function EntityContainer.wstHas_ValueAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FValueAnnotation <> EntityContainer_ValueAnnotationArray(0) );
|
|
end;
|
|
|
|
function EntityContainer.wstHas_TypeAnnotation() : Boolean;
|
|
begin
|
|
Result := ( FTypeAnnotation <> EntityContainer_TypeAnnotationArray(0) );
|
|
end;
|
|
|
|
function EntityContainer.wstHas_Extends() : Boolean;
|
|
begin
|
|
Result := ( FExtends <> '' );
|
|
end;
|
|
|
|
function EntityContainer.wstHas_TypeAccess() : Boolean;
|
|
begin
|
|
Result := True;
|
|
end;
|
|
|
|
function EntityContainer.wstHas_LazyLoadingEnabled() : Boolean;
|
|
begin
|
|
Result := ( FLazyLoadingEnabled <> LazyLoadingEnabled_Type(0) );
|
|
end;
|
|
|
|
{ GSchemaBodyElements_UsingArray }
|
|
|
|
function GSchemaBodyElements_UsingArray.GetItem(AIndex: Integer): TUsing;
|
|
begin
|
|
Result := TUsing(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function GSchemaBodyElements_UsingArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TUsing;
|
|
end;
|
|
|
|
{ GSchemaBodyElements_AssociationArray }
|
|
|
|
function GSchemaBodyElements_AssociationArray.GetItem(AIndex: Integer): TAssociation;
|
|
begin
|
|
Result := TAssociation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function GSchemaBodyElements_AssociationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TAssociation;
|
|
end;
|
|
|
|
{ GSchemaBodyElements_ComplexTypeArray }
|
|
|
|
function GSchemaBodyElements_ComplexTypeArray.GetItem(AIndex: Integer): TComplexType;
|
|
begin
|
|
Result := TComplexType(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function GSchemaBodyElements_ComplexTypeArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TComplexType;
|
|
end;
|
|
|
|
{ GSchemaBodyElements_EntityTypeArray }
|
|
|
|
function GSchemaBodyElements_EntityTypeArray.GetItem(AIndex: Integer): TEntityType;
|
|
begin
|
|
Result := TEntityType(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function GSchemaBodyElements_EntityTypeArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEntityType;
|
|
end;
|
|
|
|
{ GSchemaBodyElements_EnumTypeArray }
|
|
|
|
function GSchemaBodyElements_EnumTypeArray.GetItem(AIndex: Integer): TEnumType;
|
|
begin
|
|
Result := TEnumType(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function GSchemaBodyElements_EnumTypeArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEnumType;
|
|
end;
|
|
|
|
{ GSchemaBodyElements_ValueTermArray }
|
|
|
|
function GSchemaBodyElements_ValueTermArray.GetItem(AIndex: Integer): TValueTerm;
|
|
begin
|
|
Result := TValueTerm(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function GSchemaBodyElements_ValueTermArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueTerm;
|
|
end;
|
|
|
|
{ GSchemaBodyElements__FunctionArray }
|
|
|
|
function GSchemaBodyElements__FunctionArray.GetItem(AIndex: Integer): TFunction;
|
|
begin
|
|
Result := TFunction(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function GSchemaBodyElements__FunctionArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TFunction;
|
|
end;
|
|
|
|
{ GSchemaBodyElements_AnnotationsArray }
|
|
|
|
function GSchemaBodyElements_AnnotationsArray.GetItem(AIndex: Integer): TAnnotations;
|
|
begin
|
|
Result := TAnnotations(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function GSchemaBodyElements_AnnotationsArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TAnnotations;
|
|
end;
|
|
|
|
{ TAssociation__EndArray }
|
|
|
|
function TAssociation__EndArray.GetItem(AIndex: Integer): TAssociationEnd;
|
|
begin
|
|
Result := TAssociationEnd(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TAssociation__EndArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TAssociationEnd;
|
|
end;
|
|
|
|
{ TComplexType__PropertyArray }
|
|
|
|
function TComplexType__PropertyArray.GetItem(AIndex: Integer): TComplexTypeProperty;
|
|
begin
|
|
Result := TComplexTypeProperty(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TComplexType__PropertyArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TComplexTypeProperty;
|
|
end;
|
|
|
|
{ TComplexType_ValueAnnotationArray }
|
|
|
|
function TComplexType_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TComplexType_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TComplexType_TypeAnnotationArray }
|
|
|
|
function TComplexType_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TComplexType_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ TReferentialConstraintRoleElement_PropertyRefArray }
|
|
|
|
function TReferentialConstraintRoleElement_PropertyRefArray.GetItem(AIndex: Integer): TPropertyRef;
|
|
begin
|
|
Result := TPropertyRef(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TReferentialConstraintRoleElement_PropertyRefArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TPropertyRef;
|
|
end;
|
|
|
|
{ TNavigationProperty_ValueAnnotationArray }
|
|
|
|
function TNavigationProperty_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TNavigationProperty_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TNavigationProperty_TypeAnnotationArray }
|
|
|
|
function TNavigationProperty_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TNavigationProperty_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ TEntityType__PropertyArray }
|
|
|
|
function TEntityType__PropertyArray.GetItem(AIndex: Integer): TEntityProperty;
|
|
begin
|
|
Result := TEntityProperty(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityType__PropertyArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEntityProperty;
|
|
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;
|
|
|
|
{ TEntityType_ValueAnnotationArray }
|
|
|
|
function TEntityType_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityType_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TEntityType_TypeAnnotationArray }
|
|
|
|
function TEntityType_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityType_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
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;
|
|
|
|
{ TEnumType_ValueAnnotationArray }
|
|
|
|
function TEnumType_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEnumType_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TEnumType_TypeAnnotationArray }
|
|
|
|
function TEnumType_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEnumType_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ TFunction_ParameterArray }
|
|
|
|
function TFunction_ParameterArray.GetItem(AIndex: Integer): TFunctionParameter;
|
|
begin
|
|
Result := TFunctionParameter(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunction_ParameterArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TFunctionParameter;
|
|
end;
|
|
|
|
{ TFunction_DefiningExpressionArray }
|
|
|
|
function TFunction_DefiningExpressionArray.GetItem(AIndex: Integer): TCommandText;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TFunction_DefiningExpressionArray.SetItem(AIndex: Integer;const AValue: TCommandText);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TFunction_DefiningExpressionArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TFunction_DefiningExpressionArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('DefiningExpression',TypeInfo(TCommandText),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TFunction_DefiningExpressionArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'DefiningExpression';
|
|
AStore.Get(TypeInfo(TCommandText),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TFunction_DefiningExpressionArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(TCommandText);
|
|
end;
|
|
|
|
procedure TFunction_DefiningExpressionArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TFunction_DefiningExpressionArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TFunction_DefiningExpressionArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TFunction_DefiningExpressionArray) then begin
|
|
src := TFunction_DefiningExpressionArray(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_ReturnTypeArray }
|
|
|
|
function TFunction_ReturnTypeArray.GetItem(AIndex: Integer): TFunctionReturnType;
|
|
begin
|
|
Result := TFunctionReturnType(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunction_ReturnTypeArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TFunctionReturnType;
|
|
end;
|
|
|
|
{ TFunction_ValueAnnotationArray }
|
|
|
|
function TFunction_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunction_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TFunction_TypeAnnotationArray }
|
|
|
|
function TFunction_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunction_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ TFunctionParameter_ValueAnnotationArray }
|
|
|
|
function TFunctionParameter_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunctionParameter_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TFunctionParameter_TypeAnnotationArray }
|
|
|
|
function TFunctionParameter_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunctionParameter_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ TRowType }
|
|
|
|
function TRowType.GetItem(AIndex: Integer): TRowProperty;
|
|
begin
|
|
Result := TRowProperty(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TRowType.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TRowProperty;
|
|
end;
|
|
|
|
{ TEntityKeyElement }
|
|
|
|
function TEntityKeyElement.GetItem(AIndex: Integer): TPropertyRef;
|
|
begin
|
|
Result := TPropertyRef(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityKeyElement.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TPropertyRef;
|
|
end;
|
|
|
|
{ TAnnotations_ValueAnnotationArray }
|
|
|
|
function TAnnotations_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TAnnotations_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TAnnotations_TypeAnnotationArray }
|
|
|
|
function TAnnotations_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TAnnotations_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ TTypeAnnotation_PropertyValueArray }
|
|
|
|
function TTypeAnnotation_PropertyValueArray.GetItem(AIndex: Integer): TPropertyValue;
|
|
begin
|
|
Result := TPropertyValue(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TTypeAnnotation_PropertyValueArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TPropertyValue;
|
|
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;
|
|
|
|
{ TFunctionReferenceExpression_ParameterArray }
|
|
|
|
function TFunctionReferenceExpression_ParameterArray.GetItem(AIndex: Integer): TFunctionReferenceExpression_Parameter_Type;
|
|
begin
|
|
Result := TFunctionReferenceExpression_Parameter_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunctionReferenceExpression_ParameterArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TFunctionReferenceExpression_Parameter_Type;
|
|
end;
|
|
|
|
{ TEntityProperty_DocumentationArray }
|
|
|
|
function TEntityProperty_DocumentationArray.GetItem(AIndex: Integer): TDocumentation;
|
|
begin
|
|
Result := TDocumentation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityProperty_DocumentationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TDocumentation;
|
|
end;
|
|
|
|
{ TEntityProperty_ValueAnnotationArray }
|
|
|
|
function TEntityProperty_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityProperty_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TEntityProperty_TypeAnnotationArray }
|
|
|
|
function TEntityProperty_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityProperty_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ TComplexTypeProperty_DocumentationArray }
|
|
|
|
function TComplexTypeProperty_DocumentationArray.GetItem(AIndex: Integer): TDocumentation;
|
|
begin
|
|
Result := TDocumentation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TComplexTypeProperty_DocumentationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TDocumentation;
|
|
end;
|
|
|
|
{ TComplexTypeProperty_ValueAnnotationArray }
|
|
|
|
function TComplexTypeProperty_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TComplexTypeProperty_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TComplexTypeProperty_TypeAnnotationArray }
|
|
|
|
function TComplexTypeProperty_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TComplexTypeProperty_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ TFunctionImportParameter_ValueAnnotationArray }
|
|
|
|
function TFunctionImportParameter_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunctionImportParameter_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ TFunctionImportParameter_TypeAnnotationArray }
|
|
|
|
function TFunctionImportParameter_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunctionImportParameter_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ EntityContainer_FunctionImport_Type_ReturnTypeArray }
|
|
|
|
function EntityContainer_FunctionImport_Type_ReturnTypeArray.GetItem(AIndex: Integer): TFunctionImportReturnType;
|
|
begin
|
|
Result := TFunctionImportReturnType(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_FunctionImport_Type_ReturnTypeArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TFunctionImportReturnType;
|
|
end;
|
|
|
|
{ EntityContainer_FunctionImport_Type_ParameterArray }
|
|
|
|
function EntityContainer_FunctionImport_Type_ParameterArray.GetItem(AIndex: Integer): TFunctionImportParameter;
|
|
begin
|
|
Result := TFunctionImportParameter(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_FunctionImport_Type_ParameterArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TFunctionImportParameter;
|
|
end;
|
|
|
|
{ EntityContainer_FunctionImport_Type_ValueAnnotationArray }
|
|
|
|
function EntityContainer_FunctionImport_Type_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_FunctionImport_Type_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ EntityContainer_FunctionImport_Type_TypeAnnotationArray }
|
|
|
|
function EntityContainer_FunctionImport_Type_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_FunctionImport_Type_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ EntityContainer_EntitySet_Type_ValueAnnotationArray }
|
|
|
|
function EntityContainer_EntitySet_Type_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_EntitySet_Type_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ EntityContainer_EntitySet_Type_TypeAnnotationArray }
|
|
|
|
function EntityContainer_EntitySet_Type_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_EntitySet_Type_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
{ EntityContainer_AssociationSet_Type__EndArray }
|
|
|
|
function EntityContainer_AssociationSet_Type__EndArray.GetItem(AIndex: Integer): EntityContainer_AssociationSet_Type_End_Type;
|
|
begin
|
|
Result := EntityContainer_AssociationSet_Type_End_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_AssociationSet_Type__EndArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= EntityContainer_AssociationSet_Type_End_Type;
|
|
end;
|
|
|
|
{ EntityContainer_FunctionImportArray }
|
|
|
|
function EntityContainer_FunctionImportArray.GetItem(AIndex: Integer): EntityContainer_FunctionImport_Type;
|
|
begin
|
|
Result := EntityContainer_FunctionImport_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_FunctionImportArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= EntityContainer_FunctionImport_Type;
|
|
end;
|
|
|
|
{ EntityContainer_EntitySetArray }
|
|
|
|
function EntityContainer_EntitySetArray.GetItem(AIndex: Integer): EntityContainer_EntitySet_Type;
|
|
begin
|
|
Result := EntityContainer_EntitySet_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_EntitySetArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= EntityContainer_EntitySet_Type;
|
|
end;
|
|
|
|
{ EntityContainer_AssociationSetArray }
|
|
|
|
function EntityContainer_AssociationSetArray.GetItem(AIndex: Integer): EntityContainer_AssociationSet_Type;
|
|
begin
|
|
Result := EntityContainer_AssociationSet_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_AssociationSetArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= EntityContainer_AssociationSet_Type;
|
|
end;
|
|
|
|
{ EntityContainer_ValueAnnotationArray }
|
|
|
|
function EntityContainer_ValueAnnotationArray.GetItem(AIndex: Integer): TValueAnnotation;
|
|
begin
|
|
Result := TValueAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_ValueAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TValueAnnotation;
|
|
end;
|
|
|
|
{ EntityContainer_TypeAnnotationArray }
|
|
|
|
function EntityContainer_TypeAnnotationArray.GetItem(AIndex: Integer): TTypeAnnotation;
|
|
begin
|
|
Result := TTypeAnnotation(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function EntityContainer_TypeAnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeAnnotation;
|
|
end;
|
|
|
|
|
|
var
|
|
typeRegistryInstance : TTypeRegistry = nil;
|
|
initialization
|
|
typeRegistryInstance := GetTypeRegistry();
|
|
TSchema.RegisterAttributeProperty('Namespace');
|
|
TSchema.RegisterAttributeProperty('Alias');
|
|
TUsing.RegisterAttributeProperty('Namespace');
|
|
TUsing.RegisterAttributeProperty('Alias');
|
|
TAssociation.RegisterAttributeProperty('Name');
|
|
TTypeAttributes.RegisterAttributeProperty('Name');
|
|
TComplexType.RegisterAttributeProperty('TypeAccess');
|
|
TComplexType.RegisterAttributeProperty('Name');
|
|
TReferentialConstraintRoleElement.RegisterAttributeProperty('Role');
|
|
TNavigationProperty.RegisterAttributeProperty('Name');
|
|
TNavigationProperty.RegisterAttributeProperty('Relationship');
|
|
TNavigationProperty.RegisterAttributeProperty('ToRole');
|
|
TNavigationProperty.RegisterAttributeProperty('FromRole');
|
|
TNavigationProperty.RegisterAttributeProperty('ContainsTarget');
|
|
TNavigationProperty.RegisterAttributeProperty('GetterAccess');
|
|
TNavigationProperty.RegisterAttributeProperty('SetterAccess');
|
|
TDerivableTypeAttributes.RegisterAttributeProperty('BaseType');
|
|
TDerivableTypeAttributes.RegisterAttributeProperty('_Abstract');
|
|
TDerivableTypeAttributes.RegisterAttributeProperty('Name');
|
|
TEntityType.RegisterAttributeProperty('OpenType');
|
|
TEntityType.RegisterAttributeProperty('TypeAccess');
|
|
TEntityType.RegisterAttributeProperty('BaseType');
|
|
TEntityType.RegisterAttributeProperty('_Abstract');
|
|
TEntityType.RegisterAttributeProperty('Name');
|
|
TEnumTypeMember.RegisterAttributeProperty('Name');
|
|
TEnumTypeMember.RegisterAttributeProperty('Value');
|
|
TEnumType.RegisterAttributeProperty('IsFlags');
|
|
TEnumType.RegisterAttributeProperty('UnderlyingType');
|
|
TEnumType.RegisterAttributeProperty('TypeAccess');
|
|
TEnumType.RegisterAttributeProperty('Name');
|
|
TFacetAttributes.RegisterAttributeProperty('Nullable');
|
|
TFacetAttributes.RegisterAttributeProperty('DefaultValue');
|
|
TFacetAttributes.RegisterAttributeProperty('MaxLength');
|
|
TFacetAttributes.RegisterAttributeProperty('FixedLength');
|
|
TFacetAttributes.RegisterAttributeProperty('Precision');
|
|
TFacetAttributes.RegisterAttributeProperty('Scale');
|
|
TFacetAttributes.RegisterAttributeProperty('Unicode');
|
|
TFacetAttributes.RegisterAttributeProperty('Collation');
|
|
TFacetAttributes.RegisterAttributeProperty('SRID');
|
|
TFunction.RegisterAttributeProperty('Name');
|
|
TFunction.RegisterAttributeProperty('ReturnTypeAtt');
|
|
TFunction.RegisterAttributeProperty('Nullable');
|
|
TFunction.RegisterAttributeProperty('DefaultValue');
|
|
TFunction.RegisterAttributeProperty('MaxLength');
|
|
TFunction.RegisterAttributeProperty('FixedLength');
|
|
TFunction.RegisterAttributeProperty('Precision');
|
|
TFunction.RegisterAttributeProperty('Scale');
|
|
TFunction.RegisterAttributeProperty('Unicode');
|
|
TFunction.RegisterAttributeProperty('Collation');
|
|
TFunction.RegisterAttributeProperty('SRID');
|
|
TFunctionParameter.RegisterAttributeProperty('Name');
|
|
TFunctionParameter.RegisterAttributeProperty('_Type');
|
|
TFunctionParameter.RegisterAttributeProperty('Nullable');
|
|
TFunctionParameter.RegisterAttributeProperty('DefaultValue');
|
|
TFunctionParameter.RegisterAttributeProperty('MaxLength');
|
|
TFunctionParameter.RegisterAttributeProperty('FixedLength');
|
|
TFunctionParameter.RegisterAttributeProperty('Precision');
|
|
TFunctionParameter.RegisterAttributeProperty('Scale');
|
|
TFunctionParameter.RegisterAttributeProperty('Unicode');
|
|
TFunctionParameter.RegisterAttributeProperty('Collation');
|
|
TFunctionParameter.RegisterAttributeProperty('SRID');
|
|
TCollectionType.RegisterAttributeProperty('ElementType');
|
|
TCollectionType.RegisterAttributeProperty('Nullable');
|
|
TCollectionType.RegisterAttributeProperty('DefaultValue');
|
|
TCollectionType.RegisterAttributeProperty('MaxLength');
|
|
TCollectionType.RegisterAttributeProperty('FixedLength');
|
|
TCollectionType.RegisterAttributeProperty('Precision');
|
|
TCollectionType.RegisterAttributeProperty('Scale');
|
|
TCollectionType.RegisterAttributeProperty('Unicode');
|
|
TCollectionType.RegisterAttributeProperty('Collation');
|
|
TCollectionType.RegisterAttributeProperty('SRID');
|
|
TTypeRef.RegisterAttributeProperty('_Type');
|
|
TTypeRef.RegisterAttributeProperty('Nullable');
|
|
TTypeRef.RegisterAttributeProperty('DefaultValue');
|
|
TTypeRef.RegisterAttributeProperty('MaxLength');
|
|
TTypeRef.RegisterAttributeProperty('FixedLength');
|
|
TTypeRef.RegisterAttributeProperty('Precision');
|
|
TTypeRef.RegisterAttributeProperty('Scale');
|
|
TTypeRef.RegisterAttributeProperty('Unicode');
|
|
TTypeRef.RegisterAttributeProperty('Collation');
|
|
TTypeRef.RegisterAttributeProperty('SRID');
|
|
TReferenceType.RegisterAttributeProperty('_Type');
|
|
TRowProperty.RegisterAttributeProperty('Name');
|
|
TRowProperty.RegisterAttributeProperty('_Type');
|
|
TRowProperty.RegisterAttributeProperty('Nullable');
|
|
TRowProperty.RegisterAttributeProperty('DefaultValue');
|
|
TRowProperty.RegisterAttributeProperty('MaxLength');
|
|
TRowProperty.RegisterAttributeProperty('FixedLength');
|
|
TRowProperty.RegisterAttributeProperty('Precision');
|
|
TRowProperty.RegisterAttributeProperty('Scale');
|
|
TRowProperty.RegisterAttributeProperty('Unicode');
|
|
TRowProperty.RegisterAttributeProperty('Collation');
|
|
TRowProperty.RegisterAttributeProperty('SRID');
|
|
TFunctionReturnType.RegisterAttributeProperty('_Type');
|
|
TFunctionReturnType.RegisterAttributeProperty('Nullable');
|
|
TFunctionReturnType.RegisterAttributeProperty('DefaultValue');
|
|
TFunctionReturnType.RegisterAttributeProperty('MaxLength');
|
|
TFunctionReturnType.RegisterAttributeProperty('FixedLength');
|
|
TFunctionReturnType.RegisterAttributeProperty('Precision');
|
|
TFunctionReturnType.RegisterAttributeProperty('Scale');
|
|
TFunctionReturnType.RegisterAttributeProperty('Unicode');
|
|
TFunctionReturnType.RegisterAttributeProperty('Collation');
|
|
TFunctionReturnType.RegisterAttributeProperty('SRID');
|
|
TFunctionImportReturnType.RegisterAttributeProperty('_Type');
|
|
TFunctionImportReturnType.RegisterAttributeProperty('EntitySet');
|
|
TFunctionImportReturnType.RegisterAttributeProperty('EntitySetPath');
|
|
TPropertyRef.RegisterAttributeProperty('Name');
|
|
TAnnotations.RegisterAttributeProperty('Target');
|
|
TAnnotations.RegisterAttributeProperty('Qualifier');
|
|
GInlineExpressions.RegisterAttributeProperty('_String');
|
|
GInlineExpressions.RegisterAttributeProperty('Binary');
|
|
GInlineExpressions.RegisterAttributeProperty('Int');
|
|
GInlineExpressions.RegisterAttributeProperty('Float');
|
|
GInlineExpressions.RegisterAttributeProperty('Guid');
|
|
GInlineExpressions.RegisterAttributeProperty('Decimal');
|
|
GInlineExpressions.RegisterAttributeProperty('Bool');
|
|
GInlineExpressions.RegisterAttributeProperty('Time');
|
|
GInlineExpressions.RegisterAttributeProperty('DateTime');
|
|
GInlineExpressions.RegisterAttributeProperty('DateTimeOffset');
|
|
GInlineExpressions.RegisterAttributeProperty('Path');
|
|
TValueAnnotation.RegisterAttributeProperty('Term');
|
|
TValueAnnotation.RegisterAttributeProperty('Qualifier');
|
|
TValueAnnotation.RegisterAttributeProperty('_String');
|
|
TValueAnnotation.RegisterAttributeProperty('Binary');
|
|
TValueAnnotation.RegisterAttributeProperty('Int');
|
|
TValueAnnotation.RegisterAttributeProperty('Float');
|
|
TValueAnnotation.RegisterAttributeProperty('Guid');
|
|
TValueAnnotation.RegisterAttributeProperty('Decimal');
|
|
TValueAnnotation.RegisterAttributeProperty('Bool');
|
|
TValueAnnotation.RegisterAttributeProperty('Time');
|
|
TValueAnnotation.RegisterAttributeProperty('DateTime');
|
|
TValueAnnotation.RegisterAttributeProperty('DateTimeOffset');
|
|
TValueAnnotation.RegisterAttributeProperty('Path');
|
|
TTypeAnnotation.RegisterAttributeProperty('Term');
|
|
TTypeAnnotation.RegisterAttributeProperty('Qualifier');
|
|
TTypeAnnotation.RegisterAttributeProperty('_String');
|
|
TTypeAnnotation.RegisterAttributeProperty('Binary');
|
|
TTypeAnnotation.RegisterAttributeProperty('Int');
|
|
TTypeAnnotation.RegisterAttributeProperty('Float');
|
|
TTypeAnnotation.RegisterAttributeProperty('Guid');
|
|
TTypeAnnotation.RegisterAttributeProperty('Decimal');
|
|
TTypeAnnotation.RegisterAttributeProperty('Bool');
|
|
TTypeAnnotation.RegisterAttributeProperty('Time');
|
|
TTypeAnnotation.RegisterAttributeProperty('DateTime');
|
|
TTypeAnnotation.RegisterAttributeProperty('DateTimeOffset');
|
|
TTypeAnnotation.RegisterAttributeProperty('Path');
|
|
TRecordExpression.RegisterAttributeProperty('_Type');
|
|
TPropertyValue.RegisterAttributeProperty('_Property');
|
|
TPropertyValue.RegisterAttributeProperty('_String');
|
|
TPropertyValue.RegisterAttributeProperty('Binary');
|
|
TPropertyValue.RegisterAttributeProperty('Int');
|
|
TPropertyValue.RegisterAttributeProperty('Float');
|
|
TPropertyValue.RegisterAttributeProperty('Guid');
|
|
TPropertyValue.RegisterAttributeProperty('Decimal');
|
|
TPropertyValue.RegisterAttributeProperty('Bool');
|
|
TPropertyValue.RegisterAttributeProperty('Time');
|
|
TPropertyValue.RegisterAttributeProperty('DateTime');
|
|
TPropertyValue.RegisterAttributeProperty('DateTimeOffset');
|
|
TPropertyValue.RegisterAttributeProperty('Path');
|
|
TAssertTypeExpression.RegisterAttributeProperty('_Type');
|
|
TAssertTypeExpression.RegisterAttributeProperty('Nullable');
|
|
TAssertTypeExpression.RegisterAttributeProperty('DefaultValue');
|
|
TAssertTypeExpression.RegisterAttributeProperty('MaxLength');
|
|
TAssertTypeExpression.RegisterAttributeProperty('FixedLength');
|
|
TAssertTypeExpression.RegisterAttributeProperty('Precision');
|
|
TAssertTypeExpression.RegisterAttributeProperty('Scale');
|
|
TAssertTypeExpression.RegisterAttributeProperty('Unicode');
|
|
TAssertTypeExpression.RegisterAttributeProperty('Collation');
|
|
TAssertTypeExpression.RegisterAttributeProperty('SRID');
|
|
TIsTypeExpression.RegisterAttributeProperty('_Type');
|
|
TIsTypeExpression.RegisterAttributeProperty('Nullable');
|
|
TIsTypeExpression.RegisterAttributeProperty('DefaultValue');
|
|
TIsTypeExpression.RegisterAttributeProperty('MaxLength');
|
|
TIsTypeExpression.RegisterAttributeProperty('FixedLength');
|
|
TIsTypeExpression.RegisterAttributeProperty('Precision');
|
|
TIsTypeExpression.RegisterAttributeProperty('Scale');
|
|
TIsTypeExpression.RegisterAttributeProperty('Unicode');
|
|
TIsTypeExpression.RegisterAttributeProperty('Collation');
|
|
TIsTypeExpression.RegisterAttributeProperty('SRID');
|
|
TFunctionReferenceExpression_Parameter_Type.RegisterAttributeProperty('_Type');
|
|
TFunctionReferenceExpression.RegisterAttributeProperty('_Function');
|
|
TApplyExpression.RegisterAttributeProperty('_Function');
|
|
TPropertyReferenceExpression.RegisterAttributeProperty('_Property');
|
|
TValueTermReferenceExpression.RegisterAttributeProperty('Term');
|
|
TValueTermReferenceExpression.RegisterAttributeProperty('Qualifier');
|
|
TLabeledElement.RegisterAttributeProperty('Name');
|
|
TAssociationEnd.RegisterAttributeProperty('_Type');
|
|
TAssociationEnd.RegisterAttributeProperty('Role');
|
|
TAssociationEnd.RegisterAttributeProperty('Multiplicity');
|
|
TOnAction.RegisterAttributeProperty('Action');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Name');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('_Type');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Nullable');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('DefaultValue');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('MaxLength');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('FixedLength');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Precision');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Scale');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Unicode');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Collation');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('SRID');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('ConcurrencyMode');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('SetterAccess');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('GetterAccess');
|
|
TEntityProperty.RegisterAttributeProperty('StoreGeneratedPattern');
|
|
TEntityProperty.RegisterAttributeProperty('Name');
|
|
TEntityProperty.RegisterAttributeProperty('_Type');
|
|
TEntityProperty.RegisterAttributeProperty('Nullable');
|
|
TEntityProperty.RegisterAttributeProperty('DefaultValue');
|
|
TEntityProperty.RegisterAttributeProperty('MaxLength');
|
|
TEntityProperty.RegisterAttributeProperty('FixedLength');
|
|
TEntityProperty.RegisterAttributeProperty('Precision');
|
|
TEntityProperty.RegisterAttributeProperty('Scale');
|
|
TEntityProperty.RegisterAttributeProperty('Unicode');
|
|
TEntityProperty.RegisterAttributeProperty('Collation');
|
|
TEntityProperty.RegisterAttributeProperty('SRID');
|
|
TEntityProperty.RegisterAttributeProperty('ConcurrencyMode');
|
|
TEntityProperty.RegisterAttributeProperty('SetterAccess');
|
|
TEntityProperty.RegisterAttributeProperty('GetterAccess');
|
|
TComplexTypeProperty.RegisterAttributeProperty('Name');
|
|
TComplexTypeProperty.RegisterAttributeProperty('_Type');
|
|
TComplexTypeProperty.RegisterAttributeProperty('Nullable');
|
|
TComplexTypeProperty.RegisterAttributeProperty('DefaultValue');
|
|
TComplexTypeProperty.RegisterAttributeProperty('MaxLength');
|
|
TComplexTypeProperty.RegisterAttributeProperty('FixedLength');
|
|
TComplexTypeProperty.RegisterAttributeProperty('Precision');
|
|
TComplexTypeProperty.RegisterAttributeProperty('Scale');
|
|
TComplexTypeProperty.RegisterAttributeProperty('Unicode');
|
|
TComplexTypeProperty.RegisterAttributeProperty('Collation');
|
|
TComplexTypeProperty.RegisterAttributeProperty('SRID');
|
|
TComplexTypeProperty.RegisterAttributeProperty('ConcurrencyMode');
|
|
TComplexTypeProperty.RegisterAttributeProperty('SetterAccess');
|
|
TComplexTypeProperty.RegisterAttributeProperty('GetterAccess');
|
|
TValueTerm.RegisterAttributeProperty('Name');
|
|
TValueTerm.RegisterAttributeProperty('_Type');
|
|
TValueTerm.RegisterAttributeProperty('Nullable');
|
|
TValueTerm.RegisterAttributeProperty('DefaultValue');
|
|
TValueTerm.RegisterAttributeProperty('MaxLength');
|
|
TValueTerm.RegisterAttributeProperty('FixedLength');
|
|
TValueTerm.RegisterAttributeProperty('Precision');
|
|
TValueTerm.RegisterAttributeProperty('Scale');
|
|
TValueTerm.RegisterAttributeProperty('Unicode');
|
|
TValueTerm.RegisterAttributeProperty('Collation');
|
|
TValueTerm.RegisterAttributeProperty('SRID');
|
|
TFunctionImportParameterAttributes.RegisterAttributeProperty('Name');
|
|
TFunctionImportParameterAttributes.RegisterAttributeProperty('_Type');
|
|
TFunctionImportParameterAttributes.RegisterAttributeProperty('Mode');
|
|
TFunctionImportParameterAttributes.RegisterAttributeProperty('Nullable');
|
|
TFunctionImportParameterAttributes.RegisterAttributeProperty('MaxLength');
|
|
TFunctionImportParameterAttributes.RegisterAttributeProperty('Precision');
|
|
TFunctionImportParameterAttributes.RegisterAttributeProperty('Scale');
|
|
TFunctionImportParameterAttributes.RegisterAttributeProperty('SRID');
|
|
TFunctionImportParameter.RegisterAttributeProperty('Name');
|
|
TFunctionImportParameter.RegisterAttributeProperty('_Type');
|
|
TFunctionImportParameter.RegisterAttributeProperty('Mode');
|
|
TFunctionImportParameter.RegisterAttributeProperty('Nullable');
|
|
TFunctionImportParameter.RegisterAttributeProperty('MaxLength');
|
|
TFunctionImportParameter.RegisterAttributeProperty('Precision');
|
|
TFunctionImportParameter.RegisterAttributeProperty('Scale');
|
|
TFunctionImportParameter.RegisterAttributeProperty('SRID');
|
|
TFunctionImportAttributes.RegisterAttributeProperty('Name');
|
|
TFunctionImportAttributes.RegisterAttributeProperty('ReturnType');
|
|
TFunctionImportAttributes.RegisterAttributeProperty('EntitySet');
|
|
TFunctionImportAttributes.RegisterAttributeProperty('EntitySetPath');
|
|
TFunctionImportAttributes.RegisterAttributeProperty('IsComposable');
|
|
TFunctionImportAttributes.RegisterAttributeProperty('IsSideEffecting');
|
|
TFunctionImportAttributes.RegisterAttributeProperty('IsBindable');
|
|
TFunctionImportAttributes.RegisterAttributeProperty('MethodAccess');
|
|
TEntitySetAttributes.RegisterAttributeProperty('Name');
|
|
TEntitySetAttributes.RegisterAttributeProperty('EntityType');
|
|
TEntitySetAttributes.RegisterAttributeProperty('GetterAccess');
|
|
EntityContainer_FunctionImport_Type.RegisterAttributeProperty('Name');
|
|
EntityContainer_FunctionImport_Type.RegisterAttributeProperty('ReturnTypeAtt');
|
|
EntityContainer_FunctionImport_Type.RegisterAttributeProperty('EntitySet');
|
|
EntityContainer_FunctionImport_Type.RegisterAttributeProperty('EntitySetPath');
|
|
EntityContainer_FunctionImport_Type.RegisterAttributeProperty('IsComposable');
|
|
EntityContainer_FunctionImport_Type.RegisterAttributeProperty('IsSideEffecting');
|
|
EntityContainer_FunctionImport_Type.RegisterAttributeProperty('IsBindable');
|
|
EntityContainer_FunctionImport_Type.RegisterAttributeProperty('MethodAccess');
|
|
EntityContainer_EntitySet_Type.RegisterAttributeProperty('Name');
|
|
EntityContainer_EntitySet_Type.RegisterAttributeProperty('EntityType');
|
|
EntityContainer_EntitySet_Type.RegisterAttributeProperty('GetterAccess');
|
|
EntityContainer_AssociationSet_Type_End_Type.RegisterAttributeProperty('Role');
|
|
EntityContainer_AssociationSet_Type_End_Type.RegisterAttributeProperty('EntitySet');
|
|
EntityContainer_AssociationSet_Type.RegisterAttributeProperty('Name');
|
|
EntityContainer_AssociationSet_Type.RegisterAttributeProperty('Association');
|
|
EntityContainer.RegisterAttributeProperty('Name');
|
|
EntityContainer.RegisterAttributeProperty('Extends');
|
|
EntityContainer.RegisterAttributeProperty('TypeAccess');
|
|
EntityContainer.RegisterAttributeProperty('LazyLoadingEnabled');
|
|
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EDMSimpleType),'EDMSimpleType');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EDMSimpleType)].RegisterExternalPropertyName('EDMSimpleType_Boolean','Boolean');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EDMSimpleType)].RegisterExternalPropertyName('EDMSimpleType_Byte','Byte');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EDMSimpleType)].RegisterExternalPropertyName('EDMSimpleType_Double','Double');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EDMSimpleType)].RegisterExternalPropertyName('EDMSimpleType_Single','Single');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EDMSimpleType)].RegisterExternalPropertyName('EDMSimpleType_Int64','Int64');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EDMSimpleType)].RegisterExternalPropertyName('EDMSimpleType_String','String');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TMax),'TMax');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TVariable),'TVariable');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TParameterMode),'TParameterMode');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TParameterMode)].RegisterExternalPropertyName('TParameterMode_In','In');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TParameterMode)].RegisterExternalPropertyName('TParameterMode_Out','Out');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAction),'TAction');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TMultiplicity),'TMultiplicity');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TMultiplicity)].RegisterExternalPropertyName('TMultiplicity__0_1','0..1');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TMultiplicity)].RegisterExternalPropertyName('TMultiplicity__1','1');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TMultiplicity)].RegisterExternalPropertyName('TMultiplicity__','*');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TConcurrencyMode),'TConcurrencyMode');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TConcurrencyMode)].RegisterExternalPropertyName('TConcurrencyMode_None','None');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements),'GSchemaBodyElements',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TSchema),'TSchema',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDocumentation),'TDocumentation',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TText),'TText',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TXmlOrText),'TXmlOrText',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GEmptyElementExtensibility),'GEmptyElementExtensibility',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TUsing),'TUsing',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAssociation),'TAssociation',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeAttributes),'TTypeAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType),'TComplexType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TConstraint),'TConstraint',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TReferentialConstraintRoleElement),'TReferentialConstraintRoleElement',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty),'TNavigationProperty',[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(TEnumTypeMember),'TEnumTypeMember',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumType),'TEnumType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFacetAttributes),'TFacetAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction),'TFunction',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionParameter),'TFunctionParameter',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCollectionType),'TCollectionType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeRef),'TTypeRef',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TReferenceType),'TReferenceType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRowProperty),'TRowProperty',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionReturnType),'TFunctionReturnType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImportReturnType),'TFunctionImportReturnType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyRef),'TPropertyRef',[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(TValueAnnotation),'TValueAnnotation',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeAnnotation),'TTypeAnnotation',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TStringConstantExpression),'TStringConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TBinaryConstantExpression),'TBinaryConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIntConstantExpression),'TIntConstantExpression',[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(TDecimalConstantExpression),'TDecimalConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TBoolConstantExpression),'TBoolConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTimeConstantExpression),'TTimeConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDateTimeConstantExpression),'TDateTimeConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDateTimeOffsetConstantExpression),'TDateTimeOffsetConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumMemberReferenceExpression),'TEnumMemberReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNullExpression),'TNullExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPathExpression),'TPathExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIfExpression),'TIfExpression',[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(TCollectionExpression),'TCollectionExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAssertTypeExpression),'TAssertTypeExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIsTypeExpression),'TIsTypeExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionReferenceExpression_Parameter_Type),'TFunctionReferenceExpression_Parameter_Type',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionReferenceExpression),'TFunctionReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySetReferenceExpression),'TEntitySetReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TParameterReferenceExpression),'TParameterReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TApplyExpression),'TApplyExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyReferenceExpression),'TPropertyReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TValueTermReferenceExpression),'TValueTermReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TLabeledElement),'TLabeledElement',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TLabeledElementReferenceExpression),'TLabeledElementReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOperations),'TOperations',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAssociationEnd),'TAssociationEnd',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOnAction),'TOnAction',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCommonPropertyAttributes),'TCommonPropertyAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityProperty),'TEntityProperty',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexTypeProperty),'TComplexTypeProperty',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TValueTerm),'TValueTerm',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImportParameterAttributes),'TFunctionImportParameterAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImportParameter),'TFunctionImportParameter',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImportAttributes),'TFunctionImportAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySetAttributes),'TEntitySetAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_FunctionImport_Type),'EntityContainer_FunctionImport_Type',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_EntitySet_Type),'EntityContainer_EntitySet_Type',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_AssociationSet_Type_End_Type),'EntityContainer_AssociationSet_Type_End_Type',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_AssociationSet_Type),'EntityContainer_AssociationSet_Type',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer),'EntityContainer',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements_UsingArray),'GSchemaBodyElements_UsingArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements_UsingArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements_AssociationArray),'GSchemaBodyElements_AssociationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements_AssociationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements_ComplexTypeArray),'GSchemaBodyElements_ComplexTypeArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements_ComplexTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements_EntityTypeArray),'GSchemaBodyElements_EntityTypeArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements_EntityTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements_EnumTypeArray),'GSchemaBodyElements_EnumTypeArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements_EnumTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements_ValueTermArray),'GSchemaBodyElements_ValueTermArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements_ValueTermArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements__FunctionArray),'GSchemaBodyElements__FunctionArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements__FunctionArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GSchemaBodyElements_AnnotationsArray),'GSchemaBodyElements_AnnotationsArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements_AnnotationsArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAssociation__EndArray),'TAssociation__EndArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAssociation__EndArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType__PropertyArray),'TComplexType__PropertyArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType__PropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType_ValueAnnotationArray),'TComplexType_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType_TypeAnnotationArray),'TComplexType_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TReferentialConstraintRoleElement_PropertyRefArray),'TReferentialConstraintRoleElement_PropertyRefArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TReferentialConstraintRoleElement_PropertyRefArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty_ValueAnnotationArray),'TNavigationProperty_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty_TypeAnnotationArray),'TNavigationProperty_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty_TypeAnnotationArray)].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_ValueAnnotationArray),'TEntityType_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType_TypeAnnotationArray),'TEntityType_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType_TypeAnnotationArray)].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_ValueAnnotationArray),'TEnumType_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEnumType_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumType_TypeAnnotationArray),'TEnumType_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEnumType_TypeAnnotationArray)].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_DefiningExpressionArray),'TFunction_DefiningExpressionArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction_DefiningExpressionArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction_ReturnTypeArray),'TFunction_ReturnTypeArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction_ReturnTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction_ValueAnnotationArray),'TFunction_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction_TypeAnnotationArray),'TFunction_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionParameter_ValueAnnotationArray),'TFunctionParameter_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionParameter_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionParameter_TypeAnnotationArray),'TFunctionParameter_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionParameter_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRowType),'TRowType');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRowType)].RegisterExternalPropertyName(sARRAY_ITEM,'Property');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityKeyElement),'TEntityKeyElement');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityKeyElement)].RegisterExternalPropertyName(sARRAY_ITEM,'PropertyRef');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAnnotations_ValueAnnotationArray),'TAnnotations_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAnnotations_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAnnotations_TypeAnnotationArray),'TAnnotations_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAnnotations_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeAnnotation_PropertyValueArray),'TTypeAnnotation_PropertyValueArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTypeAnnotation_PropertyValueArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRecordExpression_PropertyValueArray),'TRecordExpression_PropertyValueArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRecordExpression_PropertyValueArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionReferenceExpression_ParameterArray),'TFunctionReferenceExpression_ParameterArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionReferenceExpression_ParameterArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityProperty_DocumentationArray),'TEntityProperty_DocumentationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityProperty_DocumentationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityProperty_ValueAnnotationArray),'TEntityProperty_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityProperty_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityProperty_TypeAnnotationArray),'TEntityProperty_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityProperty_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexTypeProperty_DocumentationArray),'TComplexTypeProperty_DocumentationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexTypeProperty_DocumentationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexTypeProperty_ValueAnnotationArray),'TComplexTypeProperty_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexTypeProperty_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexTypeProperty_TypeAnnotationArray),'TComplexTypeProperty_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexTypeProperty_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImportParameter_ValueAnnotationArray),'TFunctionImportParameter_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImportParameter_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImportParameter_TypeAnnotationArray),'TFunctionImportParameter_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImportParameter_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_FunctionImport_Type_ReturnTypeArray),'EntityContainer_FunctionImport_Type_ReturnTypeArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_FunctionImport_Type_ReturnTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_FunctionImport_Type_ParameterArray),'EntityContainer_FunctionImport_Type_ParameterArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_FunctionImport_Type_ParameterArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_FunctionImport_Type_ValueAnnotationArray),'EntityContainer_FunctionImport_Type_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_FunctionImport_Type_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_FunctionImport_Type_TypeAnnotationArray),'EntityContainer_FunctionImport_Type_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_FunctionImport_Type_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_EntitySet_Type_ValueAnnotationArray),'EntityContainer_EntitySet_Type_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_EntitySet_Type_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_EntitySet_Type_TypeAnnotationArray),'EntityContainer_EntitySet_Type_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_EntitySet_Type_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_AssociationSet_Type__EndArray),'EntityContainer_AssociationSet_Type__EndArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_AssociationSet_Type__EndArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_FunctionImportArray),'EntityContainer_FunctionImportArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_FunctionImportArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_EntitySetArray),'EntityContainer_EntitySetArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_EntitySetArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_AssociationSetArray),'EntityContainer_AssociationSetArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_AssociationSetArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_ValueAnnotationArray),'EntityContainer_ValueAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_ValueAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EntityContainer_TypeAnnotationArray),'EntityContainer_TypeAnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_TypeAnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GSchemaBodyElements)].RegisterExternalPropertyName('_Function','Function');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TSchema)].RegisterExternalPropertyName('_Function','Function');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAssociation)].RegisterExternalPropertyName('_End','End');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType)].RegisterExternalPropertyName('_Property','Property');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TDerivableTypeAttributes)].RegisterExternalPropertyName('_Abstract','Abstract');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType)].RegisterExternalPropertyName('_Property','Property');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType)].RegisterExternalPropertyName('_Abstract','Abstract');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction)].RegisterExternalPropertyName('ReturnTypeAtt','ReturnType');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionParameter)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTypeRef)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TReferenceType)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRowProperty)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionReturnType)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImportReturnType)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GInlineExpressions)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TValueAnnotation)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTypeAnnotation)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRecordExpression)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Property','Property');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAssertTypeExpression)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIsTypeExpression)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionReferenceExpression_Parameter_Type)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionReferenceExpression)].RegisterExternalPropertyName('_Function','Function');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Function','Function');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyReferenceExpression)].RegisterExternalPropertyName('_Property','Property');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAssociationEnd)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCommonPropertyAttributes)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityProperty)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexTypeProperty)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TValueTerm)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImportParameterAttributes)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImportParameter)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_FunctionImport_Type)].RegisterExternalPropertyName('ReturnTypeAtt','ReturnType');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(EntityContainer_AssociationSet_Type)].RegisterExternalPropertyName('_End','End');
|
|
|
|
|
|
End.
|