mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 18:49:24 +02:00
9846 lines
344 KiB
ObjectPascal
9846 lines
344 KiB
ObjectPascal
{
|
|
This unit has been produced by ws_helper.
|
|
Input unit name : "edm".
|
|
This unit name : "edm".
|
|
Date : "27-5-16 21:52:37".
|
|
}
|
|
unit edm;
|
|
{$IFDEF FPC}
|
|
{$mode objfpc} {$H+}
|
|
{$ENDIF}
|
|
{$DEFINE WST_RECORD_RTTI}
|
|
interface
|
|
|
|
uses SysUtils, Classes, TypInfo, base_service_intf, service_intf;
|
|
|
|
const
|
|
sNAME_SPACE = 'http://docs.oasis-open.org/odata/ns/edm';
|
|
sUNIT_NAME = 'edm';
|
|
|
|
type
|
|
|
|
Schema_ComplexTypeArray = class;
|
|
Schema_EntityTypeArray = class;
|
|
Schema_TypeDefinitionArray = class;
|
|
Schema_EnumTypeArray = class;
|
|
Schema_ActionArray = class;
|
|
Schema__FunctionArray = class;
|
|
Schema_TermArray = class;
|
|
Schema_AnnotationsArray = class;
|
|
Schema_EntityContainerArray = class;
|
|
Schema_AnnotationArray = class;
|
|
Schema = class;
|
|
TTypeAttributes = class;
|
|
TDerivableTypeAttributes = class;
|
|
TEntityType_KeyArray = class;
|
|
TEntityType__PropertyArray = class;
|
|
TEntityType_NavigationPropertyArray = class;
|
|
TEntityType_AnnotationArray = class;
|
|
TEntityType = class;
|
|
TEntityKeyElement = class;
|
|
TPropertyRef = class;
|
|
TComplexType__PropertyArray = class;
|
|
TComplexType_NavigationPropertyArray = class;
|
|
TComplexType_AnnotationArray = class;
|
|
TComplexType = class;
|
|
TFacetAttributes = class;
|
|
TPropertyFacetAttributes = class;
|
|
TCommonPropertyAttributes = class;
|
|
TProperty_AnnotationArray = class;
|
|
TProperty = class;
|
|
TTypeDefinition_AnnotationArray = class;
|
|
TTypeDefinition = class;
|
|
TNavigationProperty_ReferentialConstraintArray = class;
|
|
TNavigationProperty_OnDeleteArray = class;
|
|
TNavigationProperty_AnnotationArray = class;
|
|
TNavigationProperty = class;
|
|
TReferentialConstraint_AnnotationArray = class;
|
|
TReferentialConstraint = class;
|
|
TOnDelete_AnnotationArray = class;
|
|
TOnDelete = class;
|
|
TEnumType_MemberArray = class;
|
|
TEnumType_AnnotationArray = class;
|
|
TEnumType = class;
|
|
TEnumTypeMember_AnnotationArray = class;
|
|
TEnumTypeMember = class;
|
|
TActionFunctionReturnType_AnnotationArray = class;
|
|
TActionFunctionReturnType = class;
|
|
TActionAttributes = class;
|
|
TAction_ParameterArray = class;
|
|
TAction_AnnotationArray = class;
|
|
TAction = class;
|
|
TFunctionAttributes = class;
|
|
TFunction_ParameterArray = class;
|
|
TFunction_AnnotationArray = class;
|
|
TFunction = class;
|
|
TActionFunctionParameterAttributes = class;
|
|
TActionFunctionParameter_AnnotationArray = class;
|
|
TActionFunctionParameter = class;
|
|
TTerm_AnnotationArray = class;
|
|
TTerm = class;
|
|
TAnnotations_AnnotationArray = class;
|
|
TAnnotations = class;
|
|
GExpression = class;
|
|
GInlineExpressions = class;
|
|
Annotation_AnnotationArray = class;
|
|
Annotation_Type = class;
|
|
TBinaryConstantExpression = class;
|
|
TBoolConstantExpression = class;
|
|
TDateConstantExpression = class;
|
|
TDateTimeOffsetConstantExpression = class;
|
|
TDecimalConstantExpression = class;
|
|
TDurationConstantExpression = class;
|
|
TFloatConstantExpression = class;
|
|
TGuidConstantExpression = class;
|
|
TIntConstantExpression = class;
|
|
TStringConstantExpression = class;
|
|
TTimeOfDayConstantExpression = class;
|
|
TApplyExpression_AnnotationArray = class;
|
|
TApplyExpression = class;
|
|
TCastOrIsOfExpression_AnnotationArray = class;
|
|
TCastOrIsOfExpression = class;
|
|
TCollectionExpression = class;
|
|
TIfExpression_AnnotationArray = class;
|
|
TIfExpression = class;
|
|
TOneChildExpression_AnnotationArray = class;
|
|
TOneChildExpression = class;
|
|
TTwoChildrenExpression_AnnotationArray = class;
|
|
TTwoChildrenExpression = class;
|
|
TLabeledElementExpression_AnnotationArray = class;
|
|
TLabeledElementExpression = class;
|
|
TLabeledElementReferenceExpression = class;
|
|
TNullExpression = class;
|
|
TPathExpression = class;
|
|
TRecordExpression_PropertyValueArray = class;
|
|
TRecordExpression_AnnotationArray = class;
|
|
TRecordExpression = class;
|
|
TPropertyValue_AnnotationArray = class;
|
|
TPropertyValue = class;
|
|
TEntityContainer_EntitySetArray = class;
|
|
TEntityContainer_ActionImportArray = class;
|
|
TEntityContainer_FunctionImportArray = class;
|
|
TEntityContainer_SingletonArray = class;
|
|
TEntityContainer_AnnotationArray = class;
|
|
TEntityContainer = class;
|
|
TEntitySetAttributes = class;
|
|
TEntitySet_NavigationPropertyBindingArray = class;
|
|
TEntitySet_AnnotationArray = class;
|
|
TEntitySet = class;
|
|
TNavigationPropertyBinding = class;
|
|
TSingleton_NavigationPropertyBindingArray = class;
|
|
TSingleton_AnnotationArray = class;
|
|
TSingleton = class;
|
|
TActionFunctionImportAttributes = class;
|
|
TActionImport_AnnotationArray = class;
|
|
TActionImport = class;
|
|
TFunctionImport_AnnotationArray = class;
|
|
TFunctionImport = class;
|
|
|
|
TAbstractType = (
|
|
TAbstractType_Edm_ComplexType
|
|
,TAbstractType_Edm_EntityType
|
|
,TAbstractType_Edm_PrimitiveType
|
|
,TAbstractType_Edm_Geography
|
|
,TAbstractType_Edm_Geometry
|
|
,TAbstractType_Edm_AnnotationPath
|
|
,TAbstractType_Edm_NavigationPropertyPath
|
|
,TAbstractType_Edm_PropertyPath
|
|
,TAbstractType_Collection_Edm_ComplexType
|
|
,TAbstractType_Collection_Edm_EntityType
|
|
,TAbstractType_Collection_Edm_PrimitiveType
|
|
,TAbstractType_Collection_Edm_Geography
|
|
,TAbstractType_Collection_Edm_Geometry
|
|
,TAbstractType_Collection_Edm_AnnotationPath
|
|
,TAbstractType_Collection_Edm_NavigationPropertyPath
|
|
,TAbstractType_Collection_Edm_PropertyPath
|
|
);
|
|
|
|
TMax = (
|
|
max
|
|
);
|
|
|
|
TVariable = (
|
|
variable
|
|
);
|
|
|
|
TOnDeleteAction = (
|
|
Cascade
|
|
,None
|
|
,SetDefault
|
|
,SetNull
|
|
);
|
|
|
|
TGuidLiteral = type UnicodeString;
|
|
|
|
TSimpleIdentifier = type NCName;
|
|
|
|
TNamespaceName = type NCName;
|
|
|
|
TQualifiedName = type NCName;
|
|
|
|
TEnumMemberList = type UnicodeString;
|
|
|
|
TTypeName = type UnicodeString;
|
|
|
|
TPath = type UnicodeString;
|
|
|
|
TPathWithTermSegments = type UnicodeString;
|
|
|
|
TClientFunction = type UnicodeString;
|
|
|
|
TPrimitiveType = type UnicodeString;
|
|
|
|
TAppliesTo = type UnicodeString;
|
|
|
|
TMaxLengthFacet = type UnicodeString;
|
|
|
|
TPrecisionFacet = type nonNegativeInteger;
|
|
|
|
TScaleFacet = type UnicodeString;
|
|
|
|
TSridFacet = type UnicodeString;
|
|
|
|
TUnicodeFacet = type boolean;
|
|
|
|
binary = type UnicodeString;
|
|
|
|
_boolean = type boolean;
|
|
|
|
date = type TDateRemotable;
|
|
|
|
time = type TTimeRemotable;
|
|
|
|
dateTimeStamp = type TDateTimeRemotable;
|
|
|
|
dayTimeDuration = type TDurationRemotable;
|
|
|
|
Schema = class(TBaseComplexRemotable)
|
|
private
|
|
FComplexType : Schema_ComplexTypeArray;
|
|
FEntityType : Schema_EntityTypeArray;
|
|
FTypeDefinition : Schema_TypeDefinitionArray;
|
|
FEnumType : Schema_EnumTypeArray;
|
|
FAction : Schema_ActionArray;
|
|
F_Function : Schema__FunctionArray;
|
|
FTerm : Schema_TermArray;
|
|
FAnnotations : Schema_AnnotationsArray;
|
|
FEntityContainer : Schema_EntityContainerArray;
|
|
FAnnotation : Schema_AnnotationArray;
|
|
FNamespace : TNamespaceName;
|
|
FAlias : TSimpleIdentifier;
|
|
private
|
|
function wstHas_ComplexType() : Boolean;
|
|
function wstHas_EntityType() : Boolean;
|
|
function wstHas_TypeDefinition() : Boolean;
|
|
function wstHas_EnumType() : Boolean;
|
|
function wstHas_Action() : Boolean;
|
|
function wstHas__Function() : Boolean;
|
|
function wstHas_Term() : Boolean;
|
|
function wstHas_Annotations() : Boolean;
|
|
function wstHas_EntityContainer() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Alias() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property ComplexType : Schema_ComplexTypeArray read FComplexType write FComplexType stored wstHas_ComplexType;
|
|
property EntityType : Schema_EntityTypeArray read FEntityType write FEntityType stored wstHas_EntityType;
|
|
property TypeDefinition : Schema_TypeDefinitionArray read FTypeDefinition write FTypeDefinition stored wstHas_TypeDefinition;
|
|
property EnumType : Schema_EnumTypeArray read FEnumType write FEnumType stored wstHas_EnumType;
|
|
property Action : Schema_ActionArray read FAction write FAction stored wstHas_Action;
|
|
property _Function : Schema__FunctionArray read F_Function write F_Function stored wstHas__Function;
|
|
property Term : Schema_TermArray read FTerm write FTerm stored wstHas_Term;
|
|
property Annotations : Schema_AnnotationsArray read FAnnotations write FAnnotations stored wstHas_Annotations;
|
|
property EntityContainer : Schema_EntityContainerArray read FEntityContainer write FEntityContainer stored wstHas_EntityContainer;
|
|
property Annotation : Schema_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Namespace : TNamespaceName read FNamespace write FNamespace;
|
|
property Alias : TSimpleIdentifier read FAlias write FAlias stored wstHas_Alias;
|
|
end;
|
|
|
|
TTypeAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TDerivableTypeAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FBaseType : TQualifiedName;
|
|
F_Abstract : boolean;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas_BaseType() : Boolean;
|
|
function wstHas__Abstract() : Boolean;
|
|
published
|
|
property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType;
|
|
property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TEntityType = class(TBaseComplexRemotable)
|
|
private
|
|
FKey : TEntityType_KeyArray;
|
|
F_Property : TEntityType__PropertyArray;
|
|
FNavigationProperty : TEntityType_NavigationPropertyArray;
|
|
FAnnotation : TEntityType_AnnotationArray;
|
|
FOpenType : boolean;
|
|
FHasStream : boolean;
|
|
FBaseType : TQualifiedName;
|
|
F_Abstract : boolean;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Key() : Boolean;
|
|
function wstHas__Property() : Boolean;
|
|
function wstHas_NavigationProperty() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_OpenType() : Boolean;
|
|
function wstHas_HasStream() : Boolean;
|
|
function wstHas_BaseType() : Boolean;
|
|
function wstHas__Abstract() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Key : TEntityType_KeyArray read FKey write FKey stored wstHas_Key;
|
|
property _Property : TEntityType__PropertyArray read F_Property write F_Property stored wstHas__Property;
|
|
property NavigationProperty : TEntityType_NavigationPropertyArray read FNavigationProperty write FNavigationProperty stored wstHas_NavigationProperty;
|
|
property Annotation : TEntityType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property OpenType : boolean read FOpenType write FOpenType stored wstHas_OpenType;
|
|
property HasStream : boolean read FHasStream write FHasStream stored wstHas_HasStream;
|
|
property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType;
|
|
property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TPropertyRef = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TPath;
|
|
FAlias : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Alias() : Boolean;
|
|
published
|
|
property Name : TPath read FName write FName;
|
|
property Alias : TSimpleIdentifier read FAlias write FAlias stored wstHas_Alias;
|
|
end;
|
|
|
|
TComplexType = class(TBaseComplexRemotable)
|
|
private
|
|
F_Property : TComplexType__PropertyArray;
|
|
FNavigationProperty : TComplexType_NavigationPropertyArray;
|
|
FAnnotation : TComplexType_AnnotationArray;
|
|
FOpenType : boolean;
|
|
FBaseType : TQualifiedName;
|
|
F_Abstract : boolean;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas__Property() : Boolean;
|
|
function wstHas_NavigationProperty() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_OpenType() : Boolean;
|
|
function wstHas_BaseType() : Boolean;
|
|
function wstHas__Abstract() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property _Property : TComplexType__PropertyArray read F_Property write F_Property stored wstHas__Property;
|
|
property NavigationProperty : TComplexType_NavigationPropertyArray read FNavigationProperty write FNavigationProperty stored wstHas_NavigationProperty;
|
|
property Annotation : TComplexType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property OpenType : boolean read FOpenType write FOpenType stored wstHas_OpenType;
|
|
property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType;
|
|
property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TFacetAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
published
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TPropertyFacetAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FUnicode : TUnicodeFacet;
|
|
private
|
|
function wstHas_Unicode() : Boolean;
|
|
published
|
|
property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
end;
|
|
|
|
TCommonPropertyAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TTypeName;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
FUnicode : TUnicodeFacet;
|
|
private
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TTypeName read F_Type write F_Type;
|
|
property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
|
|
property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue;
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
end;
|
|
|
|
TProperty = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TProperty_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TTypeName;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
FUnicode : TUnicodeFacet;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TProperty_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TTypeName read F_Type write F_Type;
|
|
property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
|
|
property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue;
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
end;
|
|
|
|
TTypeDefinition = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TTypeDefinition_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FUnderlyingType : TPrimitiveType;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
FUnicode : TUnicodeFacet;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
function wstHas_Unicode() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TTypeDefinition_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property UnderlyingType : TPrimitiveType read FUnderlyingType write FUnderlyingType;
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode;
|
|
end;
|
|
|
|
TNavigationProperty = class(TBaseComplexRemotable)
|
|
private
|
|
FReferentialConstraint : TNavigationProperty_ReferentialConstraintArray;
|
|
FOnDelete : TNavigationProperty_OnDeleteArray;
|
|
FAnnotation : TNavigationProperty_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TTypeName;
|
|
FNullable : boolean;
|
|
FPartner : TPath;
|
|
FContainsTarget : boolean;
|
|
private
|
|
function wstHas_ReferentialConstraint() : Boolean;
|
|
function wstHas_OnDelete() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_Partner() : Boolean;
|
|
function wstHas_ContainsTarget() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property ReferentialConstraint : TNavigationProperty_ReferentialConstraintArray read FReferentialConstraint write FReferentialConstraint stored wstHas_ReferentialConstraint;
|
|
property OnDelete : TNavigationProperty_OnDeleteArray read FOnDelete write FOnDelete stored wstHas_OnDelete;
|
|
property Annotation : TNavigationProperty_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TTypeName read F_Type write F_Type;
|
|
property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
|
|
property Partner : TPath read FPartner write FPartner stored wstHas_Partner;
|
|
property ContainsTarget : boolean read FContainsTarget write FContainsTarget stored wstHas_ContainsTarget;
|
|
end;
|
|
|
|
TReferentialConstraint = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TReferentialConstraint_AnnotationArray;
|
|
F_Property : TPath;
|
|
FReferencedProperty : TPath;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TReferentialConstraint_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property _Property : TPath read F_Property write F_Property;
|
|
property ReferencedProperty : TPath read FReferencedProperty write FReferencedProperty;
|
|
end;
|
|
|
|
TOnDelete = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TOnDelete_AnnotationArray;
|
|
FAction : TOnDeleteAction;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TOnDelete_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Action : TOnDeleteAction read FAction write FAction;
|
|
end;
|
|
|
|
TEnumType = class(TBaseComplexRemotable)
|
|
private
|
|
FMember : TEnumType_MemberArray;
|
|
FAnnotation : TEnumType_AnnotationArray;
|
|
FIsFlags : boolean;
|
|
FUnderlyingType : TTypeName;
|
|
FName : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Member() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_IsFlags() : Boolean;
|
|
function wstHas_UnderlyingType() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Member : TEnumType_MemberArray read FMember write FMember stored wstHas_Member;
|
|
property Annotation : TEnumType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property IsFlags : boolean read FIsFlags write FIsFlags stored wstHas_IsFlags;
|
|
property UnderlyingType : TTypeName read FUnderlyingType write FUnderlyingType stored wstHas_UnderlyingType;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
end;
|
|
|
|
TEnumTypeMember = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TEnumTypeMember_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FValue : Int64;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Value() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TEnumTypeMember_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property Value : Int64 read FValue write FValue stored wstHas_Value;
|
|
end;
|
|
|
|
TActionFunctionReturnType = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TActionFunctionReturnType_AnnotationArray;
|
|
F_Type : TTypeName;
|
|
FNullable : boolean;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TActionFunctionReturnType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property _Type : TTypeName read F_Type write F_Type;
|
|
property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TActionAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
FEntitySetPath : TPath;
|
|
FIsBound : boolean;
|
|
private
|
|
function wstHas_EntitySetPath() : Boolean;
|
|
function wstHas_IsBound() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
|
|
property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound;
|
|
end;
|
|
|
|
TAction = class(TBaseComplexRemotable)
|
|
private
|
|
FParameter : TAction_ParameterArray;
|
|
FAnnotation : TAction_AnnotationArray;
|
|
FReturnType : TActionFunctionReturnType;
|
|
FName : TSimpleIdentifier;
|
|
FEntitySetPath : TPath;
|
|
FIsBound : boolean;
|
|
private
|
|
function wstHas_Parameter() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_ReturnType() : Boolean;
|
|
function wstHas_EntitySetPath() : Boolean;
|
|
function wstHas_IsBound() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Parameter : TAction_ParameterArray read FParameter write FParameter stored wstHas_Parameter;
|
|
property Annotation : TAction_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property ReturnType : TActionFunctionReturnType read FReturnType write FReturnType stored wstHas_ReturnType;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
|
|
property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound;
|
|
end;
|
|
|
|
TFunctionAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
FEntitySetPath : TPath;
|
|
FIsBound : boolean;
|
|
FIsComposable : boolean;
|
|
private
|
|
function wstHas_EntitySetPath() : Boolean;
|
|
function wstHas_IsBound() : Boolean;
|
|
function wstHas_IsComposable() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
|
|
property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound;
|
|
property IsComposable : boolean read FIsComposable write FIsComposable stored wstHas_IsComposable;
|
|
end;
|
|
|
|
TFunction = class(TBaseComplexRemotable)
|
|
private
|
|
FParameter : TFunction_ParameterArray;
|
|
FAnnotation : TFunction_AnnotationArray;
|
|
FReturnType : TActionFunctionReturnType;
|
|
FName : TSimpleIdentifier;
|
|
FEntitySetPath : TPath;
|
|
FIsBound : boolean;
|
|
FIsComposable : boolean;
|
|
private
|
|
function wstHas_Parameter() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_EntitySetPath() : Boolean;
|
|
function wstHas_IsBound() : Boolean;
|
|
function wstHas_IsComposable() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Parameter : TFunction_ParameterArray read FParameter write FParameter stored wstHas_Parameter;
|
|
property Annotation : TFunction_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property ReturnType : TActionFunctionReturnType read FReturnType write FReturnType;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath;
|
|
property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound;
|
|
property IsComposable : boolean read FIsComposable write FIsComposable stored wstHas_IsComposable;
|
|
end;
|
|
|
|
TActionFunctionParameterAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TTypeName;
|
|
FNullable : boolean;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TTypeName read F_Type write F_Type;
|
|
property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TActionFunctionParameter = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TActionFunctionParameter_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TTypeName;
|
|
FNullable : boolean;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TActionFunctionParameter_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TTypeName read F_Type write F_Type;
|
|
property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TTerm = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TTerm_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TTypeName;
|
|
FBaseTerm : TQualifiedName;
|
|
FNullable : boolean;
|
|
FDefaultValue : UnicodeString;
|
|
FAppliesTo : TAppliesTo;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_BaseTerm() : Boolean;
|
|
function wstHas_Nullable() : Boolean;
|
|
function wstHas_DefaultValue() : Boolean;
|
|
function wstHas_AppliesTo() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TTerm_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TTypeName read F_Type write F_Type;
|
|
property BaseTerm : TQualifiedName read FBaseTerm write FBaseTerm stored wstHas_BaseTerm;
|
|
property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable;
|
|
property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue;
|
|
property AppliesTo : TAppliesTo read FAppliesTo write FAppliesTo stored wstHas_AppliesTo;
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TAnnotations = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TAnnotations_AnnotationArray;
|
|
FTarget : TPath;
|
|
FQualifier : TSimpleIdentifier;
|
|
private
|
|
function wstHas_Qualifier() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TAnnotations_AnnotationArray read FAnnotation write FAnnotation;
|
|
property Target : TPath read FTarget write FTarget;
|
|
property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier;
|
|
end;
|
|
|
|
GExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
private
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
end;
|
|
|
|
GInlineExpressions = class(TBaseComplexRemotable)
|
|
private
|
|
FBinary : edm.binary;
|
|
FBool : boolean;
|
|
FDate : TDateRemotable;
|
|
FDateTimeOffset : dateTimeStamp;
|
|
FDecimal : Currency;
|
|
FDuration : dayTimeDuration;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : Double;
|
|
FGuid : TGuidLiteral;
|
|
FInt : integer;
|
|
F_String : UnicodeString;
|
|
FTimeOfDay : TTimeRemotable;
|
|
FAnnotationPath : TPathWithTermSegments;
|
|
FNavigationPropertyPath : TPathWithTermSegments;
|
|
FPath : TPathWithTermSegments;
|
|
FPropertyPath : TPathWithTermSegments;
|
|
FUrlRef : anyURI;
|
|
private
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Binary : edm.binary read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : boolean read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateRemotable read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : dateTimeStamp read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : Currency read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : dayTimeDuration read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : Double read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidLiteral read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : integer read FInt write FInt stored wstHas_Int;
|
|
property _String : UnicodeString read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeRemotable read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathWithTermSegments read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property NavigationPropertyPath : TPathWithTermSegments read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathWithTermSegments read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathWithTermSegments read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property UrlRef : anyURI read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
end;
|
|
|
|
Annotation_Type = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : Annotation_AnnotationArray;
|
|
FTerm : TQualifiedName;
|
|
FQualifier : TSimpleIdentifier;
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
FBinaryAtt : binary;
|
|
FBoolAtt : boolean;
|
|
FDateAtt : TDateRemotable;
|
|
FDateTimeOffsetAtt : dateTimeStamp;
|
|
FDecimalAtt : Currency;
|
|
FDurationAtt : dayTimeDuration;
|
|
FEnumMemberAtt : TEnumMemberList;
|
|
FFloatAtt : Double;
|
|
FGuidAtt : TGuidLiteral;
|
|
FIntAtt : integer;
|
|
F_StringAtt : UnicodeString;
|
|
FTimeOfDayAtt : TTimeRemotable;
|
|
FAnnotationPathAtt : TPathWithTermSegments;
|
|
FNavigationPropertyPathAtt : TPathWithTermSegments;
|
|
FPathAtt : TPathWithTermSegments;
|
|
FPropertyPathAtt : TPathWithTermSegments;
|
|
FUrlRefAtt : anyURI;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Qualifier() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
function wstHas_BinaryAtt() : Boolean;
|
|
function wstHas_BoolAtt() : Boolean;
|
|
function wstHas_DateAtt() : Boolean;
|
|
function wstHas_DateTimeOffsetAtt() : Boolean;
|
|
function wstHas_DecimalAtt() : Boolean;
|
|
function wstHas_DurationAtt() : Boolean;
|
|
function wstHas_EnumMemberAtt() : Boolean;
|
|
function wstHas_FloatAtt() : Boolean;
|
|
function wstHas_GuidAtt() : Boolean;
|
|
function wstHas_IntAtt() : Boolean;
|
|
function wstHas__StringAtt() : Boolean;
|
|
function wstHas_TimeOfDayAtt() : Boolean;
|
|
function wstHas_AnnotationPathAtt() : Boolean;
|
|
function wstHas_NavigationPropertyPathAtt() : Boolean;
|
|
function wstHas_PathAtt() : Boolean;
|
|
function wstHas_PropertyPathAtt() : Boolean;
|
|
function wstHas_UrlRefAtt() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : Annotation_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Term : TQualifiedName read FTerm write FTerm;
|
|
property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier;
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
property BinaryAtt : binary read FBinaryAtt write FBinaryAtt stored wstHas_BinaryAtt;
|
|
property BoolAtt : boolean read FBoolAtt write FBoolAtt stored wstHas_BoolAtt;
|
|
property DateAtt : TDateRemotable read FDateAtt write FDateAtt stored wstHas_DateAtt;
|
|
property DateTimeOffsetAtt : dateTimeStamp read FDateTimeOffsetAtt write FDateTimeOffsetAtt stored wstHas_DateTimeOffsetAtt;
|
|
property DecimalAtt : Currency read FDecimalAtt write FDecimalAtt stored wstHas_DecimalAtt;
|
|
property DurationAtt : dayTimeDuration read FDurationAtt write FDurationAtt stored wstHas_DurationAtt;
|
|
property EnumMemberAtt : TEnumMemberList read FEnumMemberAtt write FEnumMemberAtt stored wstHas_EnumMemberAtt;
|
|
property FloatAtt : Double read FFloatAtt write FFloatAtt stored wstHas_FloatAtt;
|
|
property GuidAtt : TGuidLiteral read FGuidAtt write FGuidAtt stored wstHas_GuidAtt;
|
|
property IntAtt : integer read FIntAtt write FIntAtt stored wstHas_IntAtt;
|
|
property _StringAtt : UnicodeString read F_StringAtt write F_StringAtt stored wstHas__StringAtt;
|
|
property TimeOfDayAtt : TTimeRemotable read FTimeOfDayAtt write FTimeOfDayAtt stored wstHas_TimeOfDayAtt;
|
|
property AnnotationPathAtt : TPathWithTermSegments read FAnnotationPathAtt write FAnnotationPathAtt stored wstHas_AnnotationPathAtt;
|
|
property NavigationPropertyPathAtt : TPathWithTermSegments read FNavigationPropertyPathAtt write FNavigationPropertyPathAtt stored wstHas_NavigationPropertyPathAtt;
|
|
property PathAtt : TPathWithTermSegments read FPathAtt write FPathAtt stored wstHas_PathAtt;
|
|
property PropertyPathAtt : TPathWithTermSegments read FPropertyPathAtt write FPropertyPathAtt stored wstHas_PropertyPathAtt;
|
|
property UrlRefAtt : anyURI read FUrlRefAtt write FUrlRefAtt stored wstHas_UrlRefAtt;
|
|
end;
|
|
|
|
TBinaryConstantExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TBoolConstantExpression = class(TComplexBooleanContentRemotable)
|
|
end;
|
|
|
|
TDateConstantExpression = class(date)
|
|
end;
|
|
|
|
TDateTimeOffsetConstantExpression = class(dateTimeStamp)
|
|
end;
|
|
|
|
TDecimalConstantExpression = class(TComplexCurrencyContentRemotable)
|
|
end;
|
|
|
|
TDurationConstantExpression = class(dayTimeDuration)
|
|
end;
|
|
|
|
TFloatConstantExpression = class(TComplexFloatDoubleContentRemotable)
|
|
end;
|
|
|
|
TGuidConstantExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TIntConstantExpression = class(TComplexInt32SContentRemotable)
|
|
end;
|
|
|
|
TStringConstantExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TTimeOfDayConstantExpression = class(time)
|
|
end;
|
|
|
|
TApplyExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TApplyExpression_AnnotationArray;
|
|
F_Function : TClientFunction;
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas__Function() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TApplyExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property _Function : TClientFunction read F_Function write F_Function stored wstHas__Function;
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
end;
|
|
|
|
TCastOrIsOfExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TCastOrIsOfExpression_AnnotationArray;
|
|
F_Type : TTypeName;
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
FMaxLength : TMaxLengthFacet;
|
|
FPrecision : TPrecisionFacet;
|
|
FScale : TScaleFacet;
|
|
FSRID : TSridFacet;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
function wstHas_MaxLength() : Boolean;
|
|
function wstHas_Precision() : Boolean;
|
|
function wstHas_Scale() : Boolean;
|
|
function wstHas_SRID() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TCastOrIsOfExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property _Type : TTypeName read F_Type write F_Type stored wstHas__Type;
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength;
|
|
property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision;
|
|
property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale;
|
|
property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID;
|
|
end;
|
|
|
|
TCollectionExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
private
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
end;
|
|
|
|
TIfExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TIfExpression_AnnotationArray;
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TIfExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
end;
|
|
|
|
TOneChildExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TOneChildExpression_AnnotationArray;
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TOneChildExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
end;
|
|
|
|
TTwoChildrenExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TTwoChildrenExpression_AnnotationArray;
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TTwoChildrenExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
end;
|
|
|
|
TLabeledElementExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TLabeledElementExpression_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
FBinaryAtt : binary;
|
|
FBoolAtt : boolean;
|
|
FDateAtt : TDateRemotable;
|
|
FDateTimeOffsetAtt : dateTimeStamp;
|
|
FDecimalAtt : Currency;
|
|
FDurationAtt : dayTimeDuration;
|
|
FEnumMemberAtt : TEnumMemberList;
|
|
FFloatAtt : Double;
|
|
FGuidAtt : TGuidLiteral;
|
|
FIntAtt : integer;
|
|
F_StringAtt : UnicodeString;
|
|
FTimeOfDayAtt : TTimeRemotable;
|
|
FAnnotationPathAtt : TPathWithTermSegments;
|
|
FNavigationPropertyPathAtt : TPathWithTermSegments;
|
|
FPathAtt : TPathWithTermSegments;
|
|
FPropertyPathAtt : TPathWithTermSegments;
|
|
FUrlRefAtt : anyURI;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
function wstHas_BinaryAtt() : Boolean;
|
|
function wstHas_BoolAtt() : Boolean;
|
|
function wstHas_DateAtt() : Boolean;
|
|
function wstHas_DateTimeOffsetAtt() : Boolean;
|
|
function wstHas_DecimalAtt() : Boolean;
|
|
function wstHas_DurationAtt() : Boolean;
|
|
function wstHas_EnumMemberAtt() : Boolean;
|
|
function wstHas_FloatAtt() : Boolean;
|
|
function wstHas_GuidAtt() : Boolean;
|
|
function wstHas_IntAtt() : Boolean;
|
|
function wstHas__StringAtt() : Boolean;
|
|
function wstHas_TimeOfDayAtt() : Boolean;
|
|
function wstHas_AnnotationPathAtt() : Boolean;
|
|
function wstHas_NavigationPropertyPathAtt() : Boolean;
|
|
function wstHas_PathAtt() : Boolean;
|
|
function wstHas_PropertyPathAtt() : Boolean;
|
|
function wstHas_UrlRefAtt() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TLabeledElementExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
property BinaryAtt : binary read FBinaryAtt write FBinaryAtt stored wstHas_BinaryAtt;
|
|
property BoolAtt : boolean read FBoolAtt write FBoolAtt stored wstHas_BoolAtt;
|
|
property DateAtt : TDateRemotable read FDateAtt write FDateAtt stored wstHas_DateAtt;
|
|
property DateTimeOffsetAtt : dateTimeStamp read FDateTimeOffsetAtt write FDateTimeOffsetAtt stored wstHas_DateTimeOffsetAtt;
|
|
property DecimalAtt : Currency read FDecimalAtt write FDecimalAtt stored wstHas_DecimalAtt;
|
|
property DurationAtt : dayTimeDuration read FDurationAtt write FDurationAtt stored wstHas_DurationAtt;
|
|
property EnumMemberAtt : TEnumMemberList read FEnumMemberAtt write FEnumMemberAtt stored wstHas_EnumMemberAtt;
|
|
property FloatAtt : Double read FFloatAtt write FFloatAtt stored wstHas_FloatAtt;
|
|
property GuidAtt : TGuidLiteral read FGuidAtt write FGuidAtt stored wstHas_GuidAtt;
|
|
property IntAtt : integer read FIntAtt write FIntAtt stored wstHas_IntAtt;
|
|
property _StringAtt : UnicodeString read F_StringAtt write F_StringAtt stored wstHas__StringAtt;
|
|
property TimeOfDayAtt : TTimeRemotable read FTimeOfDayAtt write FTimeOfDayAtt stored wstHas_TimeOfDayAtt;
|
|
property AnnotationPathAtt : TPathWithTermSegments read FAnnotationPathAtt write FAnnotationPathAtt stored wstHas_AnnotationPathAtt;
|
|
property NavigationPropertyPathAtt : TPathWithTermSegments read FNavigationPropertyPathAtt write FNavigationPropertyPathAtt stored wstHas_NavigationPropertyPathAtt;
|
|
property PathAtt : TPathWithTermSegments read FPathAtt write FPathAtt stored wstHas_PathAtt;
|
|
property PropertyPathAtt : TPathWithTermSegments read FPropertyPathAtt write FPropertyPathAtt stored wstHas_PropertyPathAtt;
|
|
property UrlRefAtt : anyURI read FUrlRefAtt write FUrlRefAtt stored wstHas_UrlRefAtt;
|
|
end;
|
|
|
|
TLabeledElementReferenceExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TPathExpression = class(TComplexUnicodeStringContentRemotable)
|
|
end;
|
|
|
|
TRecordExpression = class(TBaseComplexRemotable)
|
|
private
|
|
FPropertyValue : TRecordExpression_PropertyValueArray;
|
|
FAnnotation : TRecordExpression_AnnotationArray;
|
|
F_Type : TQualifiedName;
|
|
private
|
|
function wstHas_PropertyValue() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas__Type() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property PropertyValue : TRecordExpression_PropertyValueArray read FPropertyValue write FPropertyValue stored wstHas_PropertyValue;
|
|
property Annotation : TRecordExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property _Type : TQualifiedName read F_Type write F_Type stored wstHas__Type;
|
|
end;
|
|
|
|
TPropertyValue = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TPropertyValue_AnnotationArray;
|
|
F_Property : TSimpleIdentifier;
|
|
FBinary : TBinaryConstantExpression;
|
|
FBool : TBoolConstantExpression;
|
|
FDate : TDateConstantExpression;
|
|
FDateTimeOffset : TDateTimeOffsetConstantExpression;
|
|
FDecimal : TDecimalConstantExpression;
|
|
FDuration : TDurationConstantExpression;
|
|
FEnumMember : TEnumMemberList;
|
|
FFloat : TFloatConstantExpression;
|
|
FGuid : TGuidConstantExpression;
|
|
FInt : TIntConstantExpression;
|
|
F_String : TStringConstantExpression;
|
|
FTimeOfDay : TTimeOfDayConstantExpression;
|
|
FAnnotationPath : TPathExpression;
|
|
FApply : TApplyExpression;
|
|
FCast : TCastOrIsOfExpression;
|
|
FCollection : TCollectionExpression;
|
|
F_If : TIfExpression;
|
|
FEq : TTwoChildrenExpression;
|
|
FNe : TTwoChildrenExpression;
|
|
FGe : TTwoChildrenExpression;
|
|
FGt : TTwoChildrenExpression;
|
|
FLe : TTwoChildrenExpression;
|
|
FLt : TTwoChildrenExpression;
|
|
F_And : TTwoChildrenExpression;
|
|
F_Or : TTwoChildrenExpression;
|
|
F_Not : TOneChildExpression;
|
|
FIsOf : TCastOrIsOfExpression;
|
|
FLabeledElement : TLabeledElementExpression;
|
|
FLabeledElementReference : TLabeledElementReferenceExpression;
|
|
FNull : TNullExpression;
|
|
FNavigationPropertyPath : TPathExpression;
|
|
FPath : TPathExpression;
|
|
FPropertyPath : TPathExpression;
|
|
F_Record : TRecordExpression;
|
|
FUrlRef : TOneChildExpression;
|
|
FBinaryAtt : binary;
|
|
FBoolAtt : boolean;
|
|
FDateAtt : TDateRemotable;
|
|
FDateTimeOffsetAtt : dateTimeStamp;
|
|
FDecimalAtt : Currency;
|
|
FDurationAtt : dayTimeDuration;
|
|
FEnumMemberAtt : TEnumMemberList;
|
|
FFloatAtt : Double;
|
|
FGuidAtt : TGuidLiteral;
|
|
FIntAtt : integer;
|
|
F_StringAtt : UnicodeString;
|
|
FTimeOfDayAtt : TTimeRemotable;
|
|
FAnnotationPathAtt : TPathWithTermSegments;
|
|
FNavigationPropertyPathAtt : TPathWithTermSegments;
|
|
FPathAtt : TPathWithTermSegments;
|
|
FPropertyPathAtt : TPathWithTermSegments;
|
|
FUrlRefAtt : anyURI;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Binary() : Boolean;
|
|
function wstHas_Bool() : Boolean;
|
|
function wstHas_Date() : Boolean;
|
|
function wstHas_DateTimeOffset() : Boolean;
|
|
function wstHas_Decimal() : Boolean;
|
|
function wstHas_Duration() : Boolean;
|
|
function wstHas_EnumMember() : Boolean;
|
|
function wstHas_Float() : Boolean;
|
|
function wstHas_Guid() : Boolean;
|
|
function wstHas_Int() : Boolean;
|
|
function wstHas__String() : Boolean;
|
|
function wstHas_TimeOfDay() : Boolean;
|
|
function wstHas_AnnotationPath() : Boolean;
|
|
function wstHas_Apply() : Boolean;
|
|
function wstHas_Cast() : Boolean;
|
|
function wstHas_Collection() : Boolean;
|
|
function wstHas__If() : Boolean;
|
|
function wstHas_Eq() : Boolean;
|
|
function wstHas_Ne() : Boolean;
|
|
function wstHas_Ge() : Boolean;
|
|
function wstHas_Gt() : Boolean;
|
|
function wstHas_Le() : Boolean;
|
|
function wstHas_Lt() : Boolean;
|
|
function wstHas__And() : Boolean;
|
|
function wstHas__Or() : Boolean;
|
|
function wstHas__Not() : Boolean;
|
|
function wstHas_IsOf() : Boolean;
|
|
function wstHas_LabeledElement() : Boolean;
|
|
function wstHas_LabeledElementReference() : Boolean;
|
|
function wstHas_Null() : Boolean;
|
|
function wstHas_NavigationPropertyPath() : Boolean;
|
|
function wstHas_Path() : Boolean;
|
|
function wstHas_PropertyPath() : Boolean;
|
|
function wstHas__Record() : Boolean;
|
|
function wstHas_UrlRef() : Boolean;
|
|
function wstHas_BinaryAtt() : Boolean;
|
|
function wstHas_BoolAtt() : Boolean;
|
|
function wstHas_DateAtt() : Boolean;
|
|
function wstHas_DateTimeOffsetAtt() : Boolean;
|
|
function wstHas_DecimalAtt() : Boolean;
|
|
function wstHas_DurationAtt() : Boolean;
|
|
function wstHas_EnumMemberAtt() : Boolean;
|
|
function wstHas_FloatAtt() : Boolean;
|
|
function wstHas_GuidAtt() : Boolean;
|
|
function wstHas_IntAtt() : Boolean;
|
|
function wstHas__StringAtt() : Boolean;
|
|
function wstHas_TimeOfDayAtt() : Boolean;
|
|
function wstHas_AnnotationPathAtt() : Boolean;
|
|
function wstHas_NavigationPropertyPathAtt() : Boolean;
|
|
function wstHas_PathAtt() : Boolean;
|
|
function wstHas_PropertyPathAtt() : Boolean;
|
|
function wstHas_UrlRefAtt() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TPropertyValue_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property _Property : TSimpleIdentifier read F_Property write F_Property;
|
|
property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary;
|
|
property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool;
|
|
property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date;
|
|
property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset;
|
|
property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal;
|
|
property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration;
|
|
property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember;
|
|
property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float;
|
|
property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid;
|
|
property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int;
|
|
property _String : TStringConstantExpression read F_String write F_String stored wstHas__String;
|
|
property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay;
|
|
property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath;
|
|
property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply;
|
|
property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast;
|
|
property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection;
|
|
property _If : TIfExpression read F_If write F_If stored wstHas__If;
|
|
property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq;
|
|
property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne;
|
|
property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge;
|
|
property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt;
|
|
property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le;
|
|
property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt;
|
|
property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And;
|
|
property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or;
|
|
property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not;
|
|
property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf;
|
|
property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement;
|
|
property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference;
|
|
property Null : TNullExpression read FNull write FNull stored wstHas_Null;
|
|
property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath;
|
|
property Path : TPathExpression read FPath write FPath stored wstHas_Path;
|
|
property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath;
|
|
property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record;
|
|
property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef;
|
|
property BinaryAtt : binary read FBinaryAtt write FBinaryAtt stored wstHas_BinaryAtt;
|
|
property BoolAtt : boolean read FBoolAtt write FBoolAtt stored wstHas_BoolAtt;
|
|
property DateAtt : TDateRemotable read FDateAtt write FDateAtt stored wstHas_DateAtt;
|
|
property DateTimeOffsetAtt : dateTimeStamp read FDateTimeOffsetAtt write FDateTimeOffsetAtt stored wstHas_DateTimeOffsetAtt;
|
|
property DecimalAtt : Currency read FDecimalAtt write FDecimalAtt stored wstHas_DecimalAtt;
|
|
property DurationAtt : dayTimeDuration read FDurationAtt write FDurationAtt stored wstHas_DurationAtt;
|
|
property EnumMemberAtt : TEnumMemberList read FEnumMemberAtt write FEnumMemberAtt stored wstHas_EnumMemberAtt;
|
|
property FloatAtt : Double read FFloatAtt write FFloatAtt stored wstHas_FloatAtt;
|
|
property GuidAtt : TGuidLiteral read FGuidAtt write FGuidAtt stored wstHas_GuidAtt;
|
|
property IntAtt : integer read FIntAtt write FIntAtt stored wstHas_IntAtt;
|
|
property _StringAtt : UnicodeString read F_StringAtt write F_StringAtt stored wstHas__StringAtt;
|
|
property TimeOfDayAtt : TTimeRemotable read FTimeOfDayAtt write FTimeOfDayAtt stored wstHas_TimeOfDayAtt;
|
|
property AnnotationPathAtt : TPathWithTermSegments read FAnnotationPathAtt write FAnnotationPathAtt stored wstHas_AnnotationPathAtt;
|
|
property NavigationPropertyPathAtt : TPathWithTermSegments read FNavigationPropertyPathAtt write FNavigationPropertyPathAtt stored wstHas_NavigationPropertyPathAtt;
|
|
property PathAtt : TPathWithTermSegments read FPathAtt write FPathAtt stored wstHas_PathAtt;
|
|
property PropertyPathAtt : TPathWithTermSegments read FPropertyPathAtt write FPropertyPathAtt stored wstHas_PropertyPathAtt;
|
|
property UrlRefAtt : anyURI read FUrlRefAtt write FUrlRefAtt stored wstHas_UrlRefAtt;
|
|
end;
|
|
|
|
TEntityContainer = class(TBaseComplexRemotable)
|
|
private
|
|
FEntitySet : TEntityContainer_EntitySetArray;
|
|
FActionImport : TEntityContainer_ActionImportArray;
|
|
FFunctionImport : TEntityContainer_FunctionImportArray;
|
|
FSingleton : TEntityContainer_SingletonArray;
|
|
FAnnotation : TEntityContainer_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FExtends : TQualifiedName;
|
|
private
|
|
function wstHas_EntitySet() : Boolean;
|
|
function wstHas_ActionImport() : Boolean;
|
|
function wstHas_FunctionImport() : Boolean;
|
|
function wstHas_Singleton() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_Extends() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property EntitySet : TEntityContainer_EntitySetArray read FEntitySet write FEntitySet stored wstHas_EntitySet;
|
|
property ActionImport : TEntityContainer_ActionImportArray read FActionImport write FActionImport stored wstHas_ActionImport;
|
|
property FunctionImport : TEntityContainer_FunctionImportArray read FFunctionImport write FFunctionImport stored wstHas_FunctionImport;
|
|
property Singleton : TEntityContainer_SingletonArray read FSingleton write FSingleton stored wstHas_Singleton;
|
|
property Annotation : TEntityContainer_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property Extends : TQualifiedName read FExtends write FExtends stored wstHas_Extends;
|
|
end;
|
|
|
|
TEntitySetAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
FEntityType : TQualifiedName;
|
|
FIncludeInServiceDocument : boolean;
|
|
private
|
|
function wstHas_IncludeInServiceDocument() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntityType : TQualifiedName read FEntityType write FEntityType;
|
|
property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
|
|
end;
|
|
|
|
TEntitySet = class(TBaseComplexRemotable)
|
|
private
|
|
FNavigationPropertyBinding : TEntitySet_NavigationPropertyBindingArray;
|
|
FAnnotation : TEntitySet_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
FEntityType : TQualifiedName;
|
|
FIncludeInServiceDocument : boolean;
|
|
private
|
|
function wstHas_NavigationPropertyBinding() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_IncludeInServiceDocument() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property NavigationPropertyBinding : TEntitySet_NavigationPropertyBindingArray read FNavigationPropertyBinding write FNavigationPropertyBinding stored wstHas_NavigationPropertyBinding;
|
|
property Annotation : TEntitySet_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntityType : TQualifiedName read FEntityType write FEntityType;
|
|
property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
|
|
end;
|
|
|
|
TNavigationPropertyBinding = class(TBaseComplexRemotable)
|
|
private
|
|
FPath : TPath;
|
|
FTarget : TPath;
|
|
published
|
|
property Path : TPath read FPath write FPath;
|
|
property Target : TPath read FTarget write FTarget;
|
|
end;
|
|
|
|
TSingleton = class(TBaseComplexRemotable)
|
|
private
|
|
FNavigationPropertyBinding : TSingleton_NavigationPropertyBindingArray;
|
|
FAnnotation : TSingleton_AnnotationArray;
|
|
FName : TSimpleIdentifier;
|
|
F_Type : TQualifiedName;
|
|
private
|
|
function wstHas_NavigationPropertyBinding() : Boolean;
|
|
function wstHas_Annotation() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property NavigationPropertyBinding : TSingleton_NavigationPropertyBindingArray read FNavigationPropertyBinding write FNavigationPropertyBinding stored wstHas_NavigationPropertyBinding;
|
|
property Annotation : TSingleton_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property _Type : TQualifiedName read F_Type write F_Type;
|
|
end;
|
|
|
|
TActionFunctionImportAttributes = class(TBaseComplexRemotable)
|
|
private
|
|
FName : TSimpleIdentifier;
|
|
FEntitySet : TPath;
|
|
FIncludeInServiceDocument : boolean;
|
|
private
|
|
function wstHas_EntitySet() : Boolean;
|
|
function wstHas_IncludeInServiceDocument() : Boolean;
|
|
published
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntitySet : TPath read FEntitySet write FEntitySet stored wstHas_EntitySet;
|
|
property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
|
|
end;
|
|
|
|
TActionImport = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TActionImport_AnnotationArray;
|
|
FAction : TQualifiedName;
|
|
FName : TSimpleIdentifier;
|
|
FEntitySet : TPath;
|
|
FIncludeInServiceDocument : boolean;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_EntitySet() : Boolean;
|
|
function wstHas_IncludeInServiceDocument() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TActionImport_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property Action : TQualifiedName read FAction write FAction;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntitySet : TPath read FEntitySet write FEntitySet stored wstHas_EntitySet;
|
|
property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
|
|
end;
|
|
|
|
TFunctionImport = class(TBaseComplexRemotable)
|
|
private
|
|
FAnnotation : TFunctionImport_AnnotationArray;
|
|
F_Function : TQualifiedName;
|
|
FName : TSimpleIdentifier;
|
|
FEntitySet : TPath;
|
|
FIncludeInServiceDocument : boolean;
|
|
private
|
|
function wstHas_Annotation() : Boolean;
|
|
function wstHas_EntitySet() : Boolean;
|
|
function wstHas_IncludeInServiceDocument() : Boolean;
|
|
public
|
|
constructor Create();override;
|
|
procedure FreeObjectProperties();override;
|
|
published
|
|
property Annotation : TFunctionImport_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation;
|
|
property _Function : TQualifiedName read F_Function write F_Function;
|
|
property Name : TSimpleIdentifier read FName write FName;
|
|
property EntitySet : TPath read FEntitySet write FEntitySet stored wstHas_EntitySet;
|
|
property IncludeInServiceDocument : boolean read FIncludeInServiceDocument write FIncludeInServiceDocument stored wstHas_IncludeInServiceDocument;
|
|
end;
|
|
|
|
Schema_ComplexTypeArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TComplexType;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TComplexType; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TComplexType; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TComplexType Read GetItem;Default;
|
|
end;
|
|
|
|
Schema_EntityTypeArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEntityType;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TEntityType; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TEntityType; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TEntityType Read GetItem;Default;
|
|
end;
|
|
|
|
Schema_TypeDefinitionArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTypeDefinition;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TTypeDefinition; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TTypeDefinition; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TTypeDefinition Read GetItem;Default;
|
|
end;
|
|
|
|
Schema_EnumTypeArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEnumType;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TEnumType; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TEnumType; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TEnumType Read GetItem;Default;
|
|
end;
|
|
|
|
Schema_ActionArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TAction;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TAction; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TAction; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TAction Read GetItem;Default;
|
|
end;
|
|
|
|
Schema__FunctionArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TFunction;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TFunction; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TFunction; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TFunction Read GetItem;Default;
|
|
end;
|
|
|
|
Schema_TermArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TTerm;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TTerm; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TTerm; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TTerm Read GetItem;Default;
|
|
end;
|
|
|
|
Schema_AnnotationsArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TAnnotations;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TAnnotations; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TAnnotations; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TAnnotations Read GetItem;Default;
|
|
end;
|
|
|
|
Schema_EntityContainerArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEntityContainer;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TEntityContainer; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TEntityContainer; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TEntityContainer Read GetItem;Default;
|
|
end;
|
|
|
|
Schema_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TEntityType_KeyArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEntityKeyElement;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TEntityKeyElement; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TEntityKeyElement; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TEntityKeyElement Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityType__PropertyArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TProperty;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TProperty Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityType_NavigationPropertyArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TNavigationProperty;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TNavigationProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TNavigationProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TNavigationProperty Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityType_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TEntityKeyElement = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TPropertyRef;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TPropertyRef; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TPropertyRef; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TPropertyRef Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexType__PropertyArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TProperty;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TProperty Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexType_NavigationPropertyArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TNavigationProperty;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TNavigationProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TNavigationProperty; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TNavigationProperty Read GetItem;Default;
|
|
end;
|
|
|
|
TComplexType_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TProperty_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TTypeDefinition_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TNavigationProperty_ReferentialConstraintArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TReferentialConstraint;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TReferentialConstraint; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TReferentialConstraint; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TReferentialConstraint Read GetItem;Default;
|
|
end;
|
|
|
|
TNavigationProperty_OnDeleteArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TOnDelete;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TOnDelete; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TOnDelete; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TOnDelete Read GetItem;Default;
|
|
end;
|
|
|
|
TNavigationProperty_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TReferentialConstraint_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TOnDelete_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TEnumType_MemberArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEnumTypeMember;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TEnumTypeMember; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TEnumTypeMember; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TEnumTypeMember Read GetItem;Default;
|
|
end;
|
|
|
|
TEnumType_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TEnumTypeMember_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TActionFunctionReturnType_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TAction_ParameterArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TActionFunctionParameter;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TActionFunctionParameter; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TActionFunctionParameter; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TActionFunctionParameter Read GetItem;Default;
|
|
end;
|
|
|
|
TAction_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TFunction_ParameterArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TActionFunctionParameter;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TActionFunctionParameter; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TActionFunctionParameter; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TActionFunctionParameter Read GetItem;Default;
|
|
end;
|
|
|
|
TFunction_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TActionFunctionParameter_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TTerm_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TAnnotations_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
Annotation_AnnotationArray = class(TBaseSimpleTypeArrayRemotable)
|
|
private
|
|
FData : array of Annotation_Type;
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
procedure SetItem(AIndex: Integer; const AValue: Annotation_Type);
|
|
protected
|
|
function GetLength():Integer;override;
|
|
procedure SaveItem(AStore : IFormatterBase;const AName : String;const AIndex : Integer);override;
|
|
procedure LoadItem(AStore : IFormatterBase;const AIndex : Integer);override;
|
|
public
|
|
class function GetItemTypeInfo():PTypeInfo;override;
|
|
procedure SetLength(const ANewSize : Integer);override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
property Item[AIndex:Integer] : Annotation_Type read GetItem write SetItem; default;
|
|
end;
|
|
|
|
TApplyExpression_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TCastOrIsOfExpression_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TIfExpression_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TOneChildExpression_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TTwoChildrenExpression_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TLabeledElementExpression_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TNullExpression = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TRecordExpression_PropertyValueArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TPropertyValue;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TPropertyValue; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TPropertyValue; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TPropertyValue Read GetItem;Default;
|
|
end;
|
|
|
|
TRecordExpression_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TPropertyValue_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityContainer_EntitySetArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TEntitySet;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TEntitySet; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TEntitySet; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TEntitySet Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityContainer_ActionImportArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TActionImport;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TActionImport; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TActionImport; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TActionImport Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityContainer_FunctionImportArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TFunctionImport;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TFunctionImport; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TFunctionImport; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TFunctionImport Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityContainer_SingletonArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TSingleton;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TSingleton; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TSingleton; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TSingleton Read GetItem;Default;
|
|
end;
|
|
|
|
TEntityContainer_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TEntitySet_NavigationPropertyBindingArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TNavigationPropertyBinding;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TNavigationPropertyBinding; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TNavigationPropertyBinding; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TNavigationPropertyBinding Read GetItem;Default;
|
|
end;
|
|
|
|
TEntitySet_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TSingleton_NavigationPropertyBindingArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): TNavigationPropertyBinding;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): TNavigationPropertyBinding; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : TNavigationPropertyBinding; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : TNavigationPropertyBinding Read GetItem;Default;
|
|
end;
|
|
|
|
TSingleton_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TActionImport_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
TFunctionImport_AnnotationArray = class(TObjectCollectionRemotable)
|
|
private
|
|
function GetItem(AIndex: Integer): Annotation_Type;
|
|
public
|
|
class function GetItemClass():TBaseRemotableClass;override;
|
|
function Add(): Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
function AddAt(const APosition : Integer) : Annotation_Type; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
|
property Item[AIndex:Integer] : Annotation_Type Read GetItem;Default;
|
|
end;
|
|
|
|
Implementation
|
|
uses metadata_repository, record_rtti, wst_types;
|
|
|
|
{ Schema }
|
|
|
|
constructor Schema.Create();
|
|
begin
|
|
inherited Create();
|
|
FComplexType := Schema_ComplexTypeArray.Create();
|
|
FEntityType := Schema_EntityTypeArray.Create();
|
|
FTypeDefinition := Schema_TypeDefinitionArray.Create();
|
|
FEnumType := Schema_EnumTypeArray.Create();
|
|
FAction := Schema_ActionArray.Create();
|
|
F_Function := Schema__FunctionArray.Create();
|
|
FTerm := Schema_TermArray.Create();
|
|
FAnnotations := Schema_AnnotationsArray.Create();
|
|
FEntityContainer := Schema_EntityContainerArray.Create();
|
|
FAnnotation := Schema_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure Schema.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FComplexType) then
|
|
FreeAndNil(FComplexType);
|
|
if Assigned(FEntityType) then
|
|
FreeAndNil(FEntityType);
|
|
if Assigned(FTypeDefinition) then
|
|
FreeAndNil(FTypeDefinition);
|
|
if Assigned(FEnumType) then
|
|
FreeAndNil(FEnumType);
|
|
if Assigned(FAction) then
|
|
FreeAndNil(FAction);
|
|
if Assigned(F_Function) then
|
|
FreeAndNil(F_Function);
|
|
if Assigned(FTerm) then
|
|
FreeAndNil(FTerm);
|
|
if Assigned(FAnnotations) then
|
|
FreeAndNil(FAnnotations);
|
|
if Assigned(FEntityContainer) then
|
|
FreeAndNil(FEntityContainer);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function Schema.wstHas_ComplexType() : Boolean;
|
|
begin
|
|
Result := ( FComplexType <> Schema_ComplexTypeArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_EntityType() : Boolean;
|
|
begin
|
|
Result := ( FEntityType <> Schema_EntityTypeArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_TypeDefinition() : Boolean;
|
|
begin
|
|
Result := ( FTypeDefinition <> Schema_TypeDefinitionArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_EnumType() : Boolean;
|
|
begin
|
|
Result := ( FEnumType <> Schema_EnumTypeArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_Action() : Boolean;
|
|
begin
|
|
Result := ( FAction <> Schema_ActionArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas__Function() : Boolean;
|
|
begin
|
|
Result := ( F_Function <> Schema__FunctionArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_Term() : Boolean;
|
|
begin
|
|
Result := ( FTerm <> Schema_TermArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_Annotations() : Boolean;
|
|
begin
|
|
Result := ( FAnnotations <> Schema_AnnotationsArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_EntityContainer() : Boolean;
|
|
begin
|
|
Result := ( FEntityContainer <> Schema_EntityContainerArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> Schema_AnnotationArray(0) );
|
|
end;
|
|
|
|
function Schema.wstHas_Alias() : Boolean;
|
|
begin
|
|
Result := ( FAlias <> '' );
|
|
end;
|
|
|
|
function TDerivableTypeAttributes.wstHas_BaseType() : Boolean;
|
|
begin
|
|
Result := ( FBaseType <> '' );
|
|
end;
|
|
|
|
function TDerivableTypeAttributes.wstHas__Abstract() : Boolean;
|
|
begin
|
|
Result := ( F_Abstract <> boolean(0) );
|
|
end;
|
|
|
|
{ TEntityType }
|
|
|
|
constructor TEntityType.Create();
|
|
begin
|
|
inherited Create();
|
|
FKey := TEntityType_KeyArray.Create();
|
|
F_Property := TEntityType__PropertyArray.Create();
|
|
FNavigationProperty := TEntityType_NavigationPropertyArray.Create();
|
|
FAnnotation := TEntityType_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TEntityType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FKey) then
|
|
FreeAndNil(FKey);
|
|
if Assigned(F_Property) then
|
|
FreeAndNil(F_Property);
|
|
if Assigned(FNavigationProperty) then
|
|
FreeAndNil(FNavigationProperty);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEntityType.wstHas_Key() : Boolean;
|
|
begin
|
|
Result := ( FKey <> TEntityType_KeyArray(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas__Property() : Boolean;
|
|
begin
|
|
Result := ( F_Property <> TEntityType__PropertyArray(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas_NavigationProperty() : Boolean;
|
|
begin
|
|
Result := ( FNavigationProperty <> TEntityType_NavigationPropertyArray(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TEntityType_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas_OpenType() : Boolean;
|
|
begin
|
|
Result := ( FOpenType <> boolean(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas_HasStream() : Boolean;
|
|
begin
|
|
Result := ( FHasStream <> boolean(0) );
|
|
end;
|
|
|
|
function TEntityType.wstHas_BaseType() : Boolean;
|
|
begin
|
|
Result := ( FBaseType <> '' );
|
|
end;
|
|
|
|
function TEntityType.wstHas__Abstract() : Boolean;
|
|
begin
|
|
Result := ( F_Abstract <> boolean(0) );
|
|
end;
|
|
|
|
function TPropertyRef.wstHas_Alias() : Boolean;
|
|
begin
|
|
Result := ( FAlias <> '' );
|
|
end;
|
|
|
|
{ TComplexType }
|
|
|
|
constructor TComplexType.Create();
|
|
begin
|
|
inherited Create();
|
|
F_Property := TComplexType__PropertyArray.Create();
|
|
FNavigationProperty := TComplexType_NavigationPropertyArray.Create();
|
|
FAnnotation := TComplexType_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TComplexType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(F_Property) then
|
|
FreeAndNil(F_Property);
|
|
if Assigned(FNavigationProperty) then
|
|
FreeAndNil(FNavigationProperty);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TComplexType.wstHas__Property() : Boolean;
|
|
begin
|
|
Result := ( F_Property <> TComplexType__PropertyArray(0) );
|
|
end;
|
|
|
|
function TComplexType.wstHas_NavigationProperty() : Boolean;
|
|
begin
|
|
Result := ( FNavigationProperty <> TComplexType_NavigationPropertyArray(0) );
|
|
end;
|
|
|
|
function TComplexType.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TComplexType_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TComplexType.wstHas_OpenType() : Boolean;
|
|
begin
|
|
Result := ( FOpenType <> boolean(0) );
|
|
end;
|
|
|
|
function TComplexType.wstHas_BaseType() : Boolean;
|
|
begin
|
|
Result := ( FBaseType <> '' );
|
|
end;
|
|
|
|
function TComplexType.wstHas__Abstract() : Boolean;
|
|
begin
|
|
Result := ( F_Abstract <> boolean(0) );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TFacetAttributes.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TPropertyFacetAttributes.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TUnicodeFacet(0) );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TCommonPropertyAttributes.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TUnicodeFacet(0) );
|
|
end;
|
|
|
|
{ TProperty }
|
|
|
|
constructor TProperty.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TProperty_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TProperty.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TProperty.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TProperty_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TProperty.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TProperty.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TProperty.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TProperty.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TProperty.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TProperty.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TProperty.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TUnicodeFacet(0) );
|
|
end;
|
|
|
|
{ TTypeDefinition }
|
|
|
|
constructor TTypeDefinition.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TTypeDefinition_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TTypeDefinition.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TTypeDefinition.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TTypeDefinition_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TTypeDefinition.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TTypeDefinition.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TTypeDefinition.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TTypeDefinition.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TTypeDefinition.wstHas_Unicode() : Boolean;
|
|
begin
|
|
Result := ( FUnicode <> TUnicodeFacet(0) );
|
|
end;
|
|
|
|
{ TNavigationProperty }
|
|
|
|
constructor TNavigationProperty.Create();
|
|
begin
|
|
inherited Create();
|
|
FReferentialConstraint := TNavigationProperty_ReferentialConstraintArray.Create();
|
|
FOnDelete := TNavigationProperty_OnDeleteArray.Create();
|
|
FAnnotation := TNavigationProperty_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TNavigationProperty.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FReferentialConstraint) then
|
|
FreeAndNil(FReferentialConstraint);
|
|
if Assigned(FOnDelete) then
|
|
FreeAndNil(FOnDelete);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_ReferentialConstraint() : Boolean;
|
|
begin
|
|
Result := ( FReferentialConstraint <> TNavigationProperty_ReferentialConstraintArray(0) );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_OnDelete() : Boolean;
|
|
begin
|
|
Result := ( FOnDelete <> TNavigationProperty_OnDeleteArray(0) );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TNavigationProperty_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_Partner() : Boolean;
|
|
begin
|
|
Result := ( FPartner <> '' );
|
|
end;
|
|
|
|
function TNavigationProperty.wstHas_ContainsTarget() : Boolean;
|
|
begin
|
|
Result := ( FContainsTarget <> boolean(0) );
|
|
end;
|
|
|
|
{ TReferentialConstraint }
|
|
|
|
constructor TReferentialConstraint.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TReferentialConstraint_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TReferentialConstraint.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TReferentialConstraint.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TReferentialConstraint_AnnotationArray(0) );
|
|
end;
|
|
|
|
{ TOnDelete }
|
|
|
|
constructor TOnDelete.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TOnDelete_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TOnDelete.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TOnDelete.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TOnDelete_AnnotationArray(0) );
|
|
end;
|
|
|
|
{ TEnumType }
|
|
|
|
constructor TEnumType.Create();
|
|
begin
|
|
inherited Create();
|
|
FMember := TEnumType_MemberArray.Create();
|
|
FAnnotation := TEnumType_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TEnumType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FMember) then
|
|
FreeAndNil(FMember);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEnumType.wstHas_Member() : Boolean;
|
|
begin
|
|
Result := ( FMember <> TEnumType_MemberArray(0) );
|
|
end;
|
|
|
|
function TEnumType.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TEnumType_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TEnumType.wstHas_IsFlags() : Boolean;
|
|
begin
|
|
Result := ( FIsFlags <> boolean(0) );
|
|
end;
|
|
|
|
function TEnumType.wstHas_UnderlyingType() : Boolean;
|
|
begin
|
|
Result := ( FUnderlyingType <> '' );
|
|
end;
|
|
|
|
{ TEnumTypeMember }
|
|
|
|
constructor TEnumTypeMember.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TEnumTypeMember_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TEnumTypeMember.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEnumTypeMember.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TEnumTypeMember_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TEnumTypeMember.wstHas_Value() : Boolean;
|
|
begin
|
|
Result := ( FValue <> Int64(0) );
|
|
end;
|
|
|
|
{ TActionFunctionReturnType }
|
|
|
|
constructor TActionFunctionReturnType.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TActionFunctionReturnType_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TActionFunctionReturnType.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TActionFunctionReturnType.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TActionFunctionReturnType_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TActionFunctionReturnType.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TActionFunctionReturnType.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TActionFunctionReturnType.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TActionFunctionReturnType.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TActionFunctionReturnType.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
function TActionAttributes.wstHas_EntitySetPath() : Boolean;
|
|
begin
|
|
Result := ( FEntitySetPath <> '' );
|
|
end;
|
|
|
|
function TActionAttributes.wstHas_IsBound() : Boolean;
|
|
begin
|
|
Result := ( FIsBound <> boolean(0) );
|
|
end;
|
|
|
|
{ TAction }
|
|
|
|
constructor TAction.Create();
|
|
begin
|
|
inherited Create();
|
|
FParameter := TAction_ParameterArray.Create();
|
|
FAnnotation := TAction_AnnotationArray.Create();
|
|
FReturnType := TActionFunctionReturnType.Create();
|
|
end;
|
|
|
|
procedure TAction.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FParameter) then
|
|
FreeAndNil(FParameter);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FReturnType) then
|
|
FreeAndNil(FReturnType);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TAction.wstHas_Parameter() : Boolean;
|
|
begin
|
|
Result := ( FParameter <> TAction_ParameterArray(0) );
|
|
end;
|
|
|
|
function TAction.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TAction_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TAction.wstHas_ReturnType() : Boolean;
|
|
begin
|
|
Result := ( FReturnType <> nil );
|
|
end;
|
|
|
|
function TAction.wstHas_EntitySetPath() : Boolean;
|
|
begin
|
|
Result := ( FEntitySetPath <> '' );
|
|
end;
|
|
|
|
function TAction.wstHas_IsBound() : Boolean;
|
|
begin
|
|
Result := ( FIsBound <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionAttributes.wstHas_EntitySetPath() : Boolean;
|
|
begin
|
|
Result := ( FEntitySetPath <> '' );
|
|
end;
|
|
|
|
function TFunctionAttributes.wstHas_IsBound() : Boolean;
|
|
begin
|
|
Result := ( FIsBound <> boolean(0) );
|
|
end;
|
|
|
|
function TFunctionAttributes.wstHas_IsComposable() : Boolean;
|
|
begin
|
|
Result := ( FIsComposable <> boolean(0) );
|
|
end;
|
|
|
|
{ TFunction }
|
|
|
|
constructor TFunction.Create();
|
|
begin
|
|
inherited Create();
|
|
FParameter := TFunction_ParameterArray.Create();
|
|
FAnnotation := TFunction_AnnotationArray.Create();
|
|
FReturnType := TActionFunctionReturnType.Create();
|
|
end;
|
|
|
|
procedure TFunction.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FParameter) then
|
|
FreeAndNil(FParameter);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FReturnType) then
|
|
FreeAndNil(FReturnType);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TFunction.wstHas_Parameter() : Boolean;
|
|
begin
|
|
Result := ( FParameter <> TFunction_ParameterArray(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TFunction_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_EntitySetPath() : Boolean;
|
|
begin
|
|
Result := ( FEntitySetPath <> '' );
|
|
end;
|
|
|
|
function TFunction.wstHas_IsBound() : Boolean;
|
|
begin
|
|
Result := ( FIsBound <> boolean(0) );
|
|
end;
|
|
|
|
function TFunction.wstHas_IsComposable() : Boolean;
|
|
begin
|
|
Result := ( FIsComposable <> boolean(0) );
|
|
end;
|
|
|
|
function TActionFunctionParameterAttributes.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TActionFunctionParameterAttributes.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TActionFunctionParameterAttributes.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TActionFunctionParameterAttributes.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TActionFunctionParameterAttributes.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TActionFunctionParameter }
|
|
|
|
constructor TActionFunctionParameter.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TActionFunctionParameter_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TActionFunctionParameter.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TActionFunctionParameter.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TActionFunctionParameter_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TActionFunctionParameter.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TActionFunctionParameter.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TActionFunctionParameter.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TActionFunctionParameter.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TActionFunctionParameter.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TTerm }
|
|
|
|
constructor TTerm.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TTerm_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TTerm.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TTerm.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TTerm_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TTerm.wstHas_BaseTerm() : Boolean;
|
|
begin
|
|
Result := ( FBaseTerm <> '' );
|
|
end;
|
|
|
|
function TTerm.wstHas_Nullable() : Boolean;
|
|
begin
|
|
Result := ( FNullable <> boolean(0) );
|
|
end;
|
|
|
|
function TTerm.wstHas_DefaultValue() : Boolean;
|
|
begin
|
|
Result := ( FDefaultValue <> '' );
|
|
end;
|
|
|
|
function TTerm.wstHas_AppliesTo() : Boolean;
|
|
begin
|
|
Result := ( FAppliesTo <> '' );
|
|
end;
|
|
|
|
function TTerm.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TTerm.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TTerm.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TTerm.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TAnnotations }
|
|
|
|
constructor TAnnotations.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TAnnotations_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TAnnotations.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TAnnotations.wstHas_Qualifier() : Boolean;
|
|
begin
|
|
Result := ( FQualifier <> '' );
|
|
end;
|
|
|
|
{ GExpression }
|
|
|
|
constructor GExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FNull := TNullExpression.Create();
|
|
end;
|
|
|
|
procedure GExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function GExpression.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function GExpression.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function GExpression.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function GExpression.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
{ GInlineExpressions }
|
|
|
|
constructor GInlineExpressions.Create();
|
|
begin
|
|
inherited Create();
|
|
FDate := TDateRemotable.Create();
|
|
FDateTimeOffset := dateTimeStamp.Create();
|
|
FDuration := dayTimeDuration.Create();
|
|
FTimeOfDay := TTimeRemotable.Create();
|
|
end;
|
|
|
|
procedure GInlineExpressions.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> boolean(0) );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> 0 );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> 0 );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> integer(0) );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> '' );
|
|
end;
|
|
|
|
function GInlineExpressions.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> '' );
|
|
end;
|
|
|
|
{ Annotation_Type }
|
|
|
|
constructor Annotation_Type.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := Annotation_AnnotationArray.Create();
|
|
FNull := TNullExpression.Create();
|
|
FDateAtt := TDateRemotable.Create();
|
|
FDateTimeOffsetAtt := dateTimeStamp.Create();
|
|
FDurationAtt := dayTimeDuration.Create();
|
|
FTimeOfDayAtt := TTimeRemotable.Create();
|
|
end;
|
|
|
|
procedure Annotation_Type.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
if Assigned(FDateAtt) then
|
|
FreeAndNil(FDateAtt);
|
|
if Assigned(FDateTimeOffsetAtt) then
|
|
FreeAndNil(FDateTimeOffsetAtt);
|
|
if Assigned(FDurationAtt) then
|
|
FreeAndNil(FDurationAtt);
|
|
if Assigned(FTimeOfDayAtt) then
|
|
FreeAndNil(FTimeOfDayAtt);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> Annotation_AnnotationArray(0) );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Qualifier() : Boolean;
|
|
begin
|
|
Result := ( FQualifier <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_BinaryAtt() : Boolean;
|
|
begin
|
|
Result := ( FBinaryAtt <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_BoolAtt() : Boolean;
|
|
begin
|
|
Result := ( FBoolAtt <> boolean(0) );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_DateAtt() : Boolean;
|
|
begin
|
|
Result := ( FDateAtt <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_DateTimeOffsetAtt() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffsetAtt <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_DecimalAtt() : Boolean;
|
|
begin
|
|
Result := ( FDecimalAtt <> 0 );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_DurationAtt() : Boolean;
|
|
begin
|
|
Result := ( FDurationAtt <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_EnumMemberAtt() : Boolean;
|
|
begin
|
|
Result := ( FEnumMemberAtt <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_FloatAtt() : Boolean;
|
|
begin
|
|
Result := ( FFloatAtt <> 0 );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_GuidAtt() : Boolean;
|
|
begin
|
|
Result := ( FGuidAtt <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_IntAtt() : Boolean;
|
|
begin
|
|
Result := ( FIntAtt <> integer(0) );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas__StringAtt() : Boolean;
|
|
begin
|
|
Result := ( F_StringAtt <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_TimeOfDayAtt() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDayAtt <> nil );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_AnnotationPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPathAtt <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_NavigationPropertyPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPathAtt <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_PathAtt() : Boolean;
|
|
begin
|
|
Result := ( FPathAtt <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_PropertyPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPathAtt <> '' );
|
|
end;
|
|
|
|
function Annotation_Type.wstHas_UrlRefAtt() : Boolean;
|
|
begin
|
|
Result := ( FUrlRefAtt <> '' );
|
|
end;
|
|
|
|
{ TApplyExpression }
|
|
|
|
constructor TApplyExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TApplyExpression_AnnotationArray.Create();
|
|
FNull := TNullExpression.Create();
|
|
end;
|
|
|
|
procedure TApplyExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TApplyExpression_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas__Function() : Boolean;
|
|
begin
|
|
Result := ( F_Function <> '' );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function TApplyExpression.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
{ TCastOrIsOfExpression }
|
|
|
|
constructor TCastOrIsOfExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TCastOrIsOfExpression_AnnotationArray.Create();
|
|
FNull := TNullExpression.Create();
|
|
end;
|
|
|
|
procedure TCastOrIsOfExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TCastOrIsOfExpression_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_MaxLength() : Boolean;
|
|
begin
|
|
Result := ( FMaxLength <> '' );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Precision() : Boolean;
|
|
begin
|
|
Result := ( FPrecision <> TPrecisionFacet(0) );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_Scale() : Boolean;
|
|
begin
|
|
Result := ( FScale <> '' );
|
|
end;
|
|
|
|
function TCastOrIsOfExpression.wstHas_SRID() : Boolean;
|
|
begin
|
|
Result := ( FSRID <> '' );
|
|
end;
|
|
|
|
{ TCollectionExpression }
|
|
|
|
constructor TCollectionExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FNull := TNullExpression.Create();
|
|
end;
|
|
|
|
procedure TCollectionExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function TCollectionExpression.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
{ TIfExpression }
|
|
|
|
constructor TIfExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TIfExpression_AnnotationArray.Create();
|
|
FNull := TNullExpression.Create();
|
|
end;
|
|
|
|
procedure TIfExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TIfExpression_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function TIfExpression.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
{ TOneChildExpression }
|
|
|
|
constructor TOneChildExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TOneChildExpression_AnnotationArray.Create();
|
|
FNull := TNullExpression.Create();
|
|
end;
|
|
|
|
procedure TOneChildExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TOneChildExpression_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function TOneChildExpression.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
{ TTwoChildrenExpression }
|
|
|
|
constructor TTwoChildrenExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TTwoChildrenExpression_AnnotationArray.Create();
|
|
FNull := TNullExpression.Create();
|
|
end;
|
|
|
|
procedure TTwoChildrenExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TTwoChildrenExpression_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function TTwoChildrenExpression.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
{ TLabeledElementExpression }
|
|
|
|
constructor TLabeledElementExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TLabeledElementExpression_AnnotationArray.Create();
|
|
FNull := TNullExpression.Create();
|
|
FDateAtt := TDateRemotable.Create();
|
|
FDateTimeOffsetAtt := dateTimeStamp.Create();
|
|
FDurationAtt := dayTimeDuration.Create();
|
|
FTimeOfDayAtt := TTimeRemotable.Create();
|
|
end;
|
|
|
|
procedure TLabeledElementExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
if Assigned(FDateAtt) then
|
|
FreeAndNil(FDateAtt);
|
|
if Assigned(FDateTimeOffsetAtt) then
|
|
FreeAndNil(FDateTimeOffsetAtt);
|
|
if Assigned(FDurationAtt) then
|
|
FreeAndNil(FDurationAtt);
|
|
if Assigned(FTimeOfDayAtt) then
|
|
FreeAndNil(FTimeOfDayAtt);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TLabeledElementExpression_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_BinaryAtt() : Boolean;
|
|
begin
|
|
Result := ( FBinaryAtt <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_BoolAtt() : Boolean;
|
|
begin
|
|
Result := ( FBoolAtt <> boolean(0) );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_DateAtt() : Boolean;
|
|
begin
|
|
Result := ( FDateAtt <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_DateTimeOffsetAtt() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffsetAtt <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_DecimalAtt() : Boolean;
|
|
begin
|
|
Result := ( FDecimalAtt <> 0 );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_DurationAtt() : Boolean;
|
|
begin
|
|
Result := ( FDurationAtt <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_EnumMemberAtt() : Boolean;
|
|
begin
|
|
Result := ( FEnumMemberAtt <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_FloatAtt() : Boolean;
|
|
begin
|
|
Result := ( FFloatAtt <> 0 );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_GuidAtt() : Boolean;
|
|
begin
|
|
Result := ( FGuidAtt <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_IntAtt() : Boolean;
|
|
begin
|
|
Result := ( FIntAtt <> integer(0) );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas__StringAtt() : Boolean;
|
|
begin
|
|
Result := ( F_StringAtt <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_TimeOfDayAtt() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDayAtt <> nil );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_AnnotationPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPathAtt <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_NavigationPropertyPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPathAtt <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_PathAtt() : Boolean;
|
|
begin
|
|
Result := ( FPathAtt <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_PropertyPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPathAtt <> '' );
|
|
end;
|
|
|
|
function TLabeledElementExpression.wstHas_UrlRefAtt() : Boolean;
|
|
begin
|
|
Result := ( FUrlRefAtt <> '' );
|
|
end;
|
|
|
|
{ TRecordExpression }
|
|
|
|
constructor TRecordExpression.Create();
|
|
begin
|
|
inherited Create();
|
|
FPropertyValue := TRecordExpression_PropertyValueArray.Create();
|
|
FAnnotation := TRecordExpression_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TRecordExpression.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FPropertyValue) then
|
|
FreeAndNil(FPropertyValue);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TRecordExpression.wstHas_PropertyValue() : Boolean;
|
|
begin
|
|
Result := ( FPropertyValue <> TRecordExpression_PropertyValueArray(0) );
|
|
end;
|
|
|
|
function TRecordExpression.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TRecordExpression_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TRecordExpression.wstHas__Type() : Boolean;
|
|
begin
|
|
Result := ( F_Type <> '' );
|
|
end;
|
|
|
|
{ TPropertyValue }
|
|
|
|
constructor TPropertyValue.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TPropertyValue_AnnotationArray.Create();
|
|
FNull := TNullExpression.Create();
|
|
FDateAtt := TDateRemotable.Create();
|
|
FDateTimeOffsetAtt := dateTimeStamp.Create();
|
|
FDurationAtt := dayTimeDuration.Create();
|
|
FTimeOfDayAtt := TTimeRemotable.Create();
|
|
end;
|
|
|
|
procedure TPropertyValue.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
if Assigned(FBinary) then
|
|
FreeAndNil(FBinary);
|
|
if Assigned(FBool) then
|
|
FreeAndNil(FBool);
|
|
if Assigned(FDate) then
|
|
FreeAndNil(FDate);
|
|
if Assigned(FDateTimeOffset) then
|
|
FreeAndNil(FDateTimeOffset);
|
|
if Assigned(FDecimal) then
|
|
FreeAndNil(FDecimal);
|
|
if Assigned(FDuration) then
|
|
FreeAndNil(FDuration);
|
|
if Assigned(FFloat) then
|
|
FreeAndNil(FFloat);
|
|
if Assigned(FGuid) then
|
|
FreeAndNil(FGuid);
|
|
if Assigned(FInt) then
|
|
FreeAndNil(FInt);
|
|
if Assigned(F_String) then
|
|
FreeAndNil(F_String);
|
|
if Assigned(FTimeOfDay) then
|
|
FreeAndNil(FTimeOfDay);
|
|
if Assigned(FAnnotationPath) then
|
|
FreeAndNil(FAnnotationPath);
|
|
if Assigned(FApply) then
|
|
FreeAndNil(FApply);
|
|
if Assigned(FCast) then
|
|
FreeAndNil(FCast);
|
|
if Assigned(FCollection) then
|
|
FreeAndNil(FCollection);
|
|
if Assigned(F_If) then
|
|
FreeAndNil(F_If);
|
|
if Assigned(FEq) then
|
|
FreeAndNil(FEq);
|
|
if Assigned(FNe) then
|
|
FreeAndNil(FNe);
|
|
if Assigned(FGe) then
|
|
FreeAndNil(FGe);
|
|
if Assigned(FGt) then
|
|
FreeAndNil(FGt);
|
|
if Assigned(FLe) then
|
|
FreeAndNil(FLe);
|
|
if Assigned(FLt) then
|
|
FreeAndNil(FLt);
|
|
if Assigned(F_And) then
|
|
FreeAndNil(F_And);
|
|
if Assigned(F_Or) then
|
|
FreeAndNil(F_Or);
|
|
if Assigned(F_Not) then
|
|
FreeAndNil(F_Not);
|
|
if Assigned(FIsOf) then
|
|
FreeAndNil(FIsOf);
|
|
if Assigned(FLabeledElement) then
|
|
FreeAndNil(FLabeledElement);
|
|
if Assigned(FLabeledElementReference) then
|
|
FreeAndNil(FLabeledElementReference);
|
|
if Assigned(FNull) then
|
|
FreeAndNil(FNull);
|
|
if Assigned(FNavigationPropertyPath) then
|
|
FreeAndNil(FNavigationPropertyPath);
|
|
if Assigned(FPath) then
|
|
FreeAndNil(FPath);
|
|
if Assigned(FPropertyPath) then
|
|
FreeAndNil(FPropertyPath);
|
|
if Assigned(F_Record) then
|
|
FreeAndNil(F_Record);
|
|
if Assigned(FUrlRef) then
|
|
FreeAndNil(FUrlRef);
|
|
if Assigned(FDateAtt) then
|
|
FreeAndNil(FDateAtt);
|
|
if Assigned(FDateTimeOffsetAtt) then
|
|
FreeAndNil(FDateTimeOffsetAtt);
|
|
if Assigned(FDurationAtt) then
|
|
FreeAndNil(FDurationAtt);
|
|
if Assigned(FTimeOfDayAtt) then
|
|
FreeAndNil(FTimeOfDayAtt);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TPropertyValue_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Binary() : Boolean;
|
|
begin
|
|
Result := ( FBinary <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Bool() : Boolean;
|
|
begin
|
|
Result := ( FBool <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Date() : Boolean;
|
|
begin
|
|
Result := ( FDate <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_DateTimeOffset() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffset <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Decimal() : Boolean;
|
|
begin
|
|
Result := ( FDecimal <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Duration() : Boolean;
|
|
begin
|
|
Result := ( FDuration <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_EnumMember() : Boolean;
|
|
begin
|
|
Result := ( FEnumMember <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Float() : Boolean;
|
|
begin
|
|
Result := ( FFloat <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Guid() : Boolean;
|
|
begin
|
|
Result := ( FGuid <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Int() : Boolean;
|
|
begin
|
|
Result := ( FInt <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas__String() : Boolean;
|
|
begin
|
|
Result := ( F_String <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_TimeOfDay() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDay <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_AnnotationPath() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPath <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Apply() : Boolean;
|
|
begin
|
|
Result := ( FApply <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Cast() : Boolean;
|
|
begin
|
|
Result := ( FCast <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Collection() : Boolean;
|
|
begin
|
|
Result := ( FCollection <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas__If() : Boolean;
|
|
begin
|
|
Result := ( F_If <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Eq() : Boolean;
|
|
begin
|
|
Result := ( FEq <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Ne() : Boolean;
|
|
begin
|
|
Result := ( FNe <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Ge() : Boolean;
|
|
begin
|
|
Result := ( FGe <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Gt() : Boolean;
|
|
begin
|
|
Result := ( FGt <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Le() : Boolean;
|
|
begin
|
|
Result := ( FLe <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Lt() : Boolean;
|
|
begin
|
|
Result := ( FLt <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas__And() : Boolean;
|
|
begin
|
|
Result := ( F_And <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas__Or() : Boolean;
|
|
begin
|
|
Result := ( F_Or <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas__Not() : Boolean;
|
|
begin
|
|
Result := ( F_Not <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_IsOf() : Boolean;
|
|
begin
|
|
Result := ( FIsOf <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_LabeledElement() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElement <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_LabeledElementReference() : Boolean;
|
|
begin
|
|
Result := ( FLabeledElementReference <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Null() : Boolean;
|
|
begin
|
|
Result := ( FNull <> TNullExpression(0) );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_NavigationPropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPath <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_Path() : Boolean;
|
|
begin
|
|
Result := ( FPath <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_PropertyPath() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPath <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas__Record() : Boolean;
|
|
begin
|
|
Result := ( F_Record <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_UrlRef() : Boolean;
|
|
begin
|
|
Result := ( FUrlRef <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_BinaryAtt() : Boolean;
|
|
begin
|
|
Result := ( FBinaryAtt <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_BoolAtt() : Boolean;
|
|
begin
|
|
Result := ( FBoolAtt <> boolean(0) );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_DateAtt() : Boolean;
|
|
begin
|
|
Result := ( FDateAtt <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_DateTimeOffsetAtt() : Boolean;
|
|
begin
|
|
Result := ( FDateTimeOffsetAtt <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_DecimalAtt() : Boolean;
|
|
begin
|
|
Result := ( FDecimalAtt <> 0 );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_DurationAtt() : Boolean;
|
|
begin
|
|
Result := ( FDurationAtt <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_EnumMemberAtt() : Boolean;
|
|
begin
|
|
Result := ( FEnumMemberAtt <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_FloatAtt() : Boolean;
|
|
begin
|
|
Result := ( FFloatAtt <> 0 );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_GuidAtt() : Boolean;
|
|
begin
|
|
Result := ( FGuidAtt <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_IntAtt() : Boolean;
|
|
begin
|
|
Result := ( FIntAtt <> integer(0) );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas__StringAtt() : Boolean;
|
|
begin
|
|
Result := ( F_StringAtt <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_TimeOfDayAtt() : Boolean;
|
|
begin
|
|
Result := ( FTimeOfDayAtt <> nil );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_AnnotationPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FAnnotationPathAtt <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_NavigationPropertyPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyPathAtt <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_PathAtt() : Boolean;
|
|
begin
|
|
Result := ( FPathAtt <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_PropertyPathAtt() : Boolean;
|
|
begin
|
|
Result := ( FPropertyPathAtt <> '' );
|
|
end;
|
|
|
|
function TPropertyValue.wstHas_UrlRefAtt() : Boolean;
|
|
begin
|
|
Result := ( FUrlRefAtt <> '' );
|
|
end;
|
|
|
|
{ TEntityContainer }
|
|
|
|
constructor TEntityContainer.Create();
|
|
begin
|
|
inherited Create();
|
|
FEntitySet := TEntityContainer_EntitySetArray.Create();
|
|
FActionImport := TEntityContainer_ActionImportArray.Create();
|
|
FFunctionImport := TEntityContainer_FunctionImportArray.Create();
|
|
FSingleton := TEntityContainer_SingletonArray.Create();
|
|
FAnnotation := TEntityContainer_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TEntityContainer.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FEntitySet) then
|
|
FreeAndNil(FEntitySet);
|
|
if Assigned(FActionImport) then
|
|
FreeAndNil(FActionImport);
|
|
if Assigned(FFunctionImport) then
|
|
FreeAndNil(FFunctionImport);
|
|
if Assigned(FSingleton) then
|
|
FreeAndNil(FSingleton);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEntityContainer.wstHas_EntitySet() : Boolean;
|
|
begin
|
|
Result := ( FEntitySet <> TEntityContainer_EntitySetArray(0) );
|
|
end;
|
|
|
|
function TEntityContainer.wstHas_ActionImport() : Boolean;
|
|
begin
|
|
Result := ( FActionImport <> TEntityContainer_ActionImportArray(0) );
|
|
end;
|
|
|
|
function TEntityContainer.wstHas_FunctionImport() : Boolean;
|
|
begin
|
|
Result := ( FFunctionImport <> TEntityContainer_FunctionImportArray(0) );
|
|
end;
|
|
|
|
function TEntityContainer.wstHas_Singleton() : Boolean;
|
|
begin
|
|
Result := ( FSingleton <> TEntityContainer_SingletonArray(0) );
|
|
end;
|
|
|
|
function TEntityContainer.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TEntityContainer_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TEntityContainer.wstHas_Extends() : Boolean;
|
|
begin
|
|
Result := ( FExtends <> '' );
|
|
end;
|
|
|
|
function TEntitySetAttributes.wstHas_IncludeInServiceDocument() : Boolean;
|
|
begin
|
|
Result := ( FIncludeInServiceDocument <> boolean(0) );
|
|
end;
|
|
|
|
{ TEntitySet }
|
|
|
|
constructor TEntitySet.Create();
|
|
begin
|
|
inherited Create();
|
|
FNavigationPropertyBinding := TEntitySet_NavigationPropertyBindingArray.Create();
|
|
FAnnotation := TEntitySet_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TEntitySet.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FNavigationPropertyBinding) then
|
|
FreeAndNil(FNavigationPropertyBinding);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TEntitySet.wstHas_NavigationPropertyBinding() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyBinding <> TEntitySet_NavigationPropertyBindingArray(0) );
|
|
end;
|
|
|
|
function TEntitySet.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TEntitySet_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TEntitySet.wstHas_IncludeInServiceDocument() : Boolean;
|
|
begin
|
|
Result := ( FIncludeInServiceDocument <> boolean(0) );
|
|
end;
|
|
|
|
{ TSingleton }
|
|
|
|
constructor TSingleton.Create();
|
|
begin
|
|
inherited Create();
|
|
FNavigationPropertyBinding := TSingleton_NavigationPropertyBindingArray.Create();
|
|
FAnnotation := TSingleton_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TSingleton.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FNavigationPropertyBinding) then
|
|
FreeAndNil(FNavigationPropertyBinding);
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TSingleton.wstHas_NavigationPropertyBinding() : Boolean;
|
|
begin
|
|
Result := ( FNavigationPropertyBinding <> TSingleton_NavigationPropertyBindingArray(0) );
|
|
end;
|
|
|
|
function TSingleton.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TSingleton_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TActionFunctionImportAttributes.wstHas_EntitySet() : Boolean;
|
|
begin
|
|
Result := ( FEntitySet <> '' );
|
|
end;
|
|
|
|
function TActionFunctionImportAttributes.wstHas_IncludeInServiceDocument() : Boolean;
|
|
begin
|
|
Result := ( FIncludeInServiceDocument <> boolean(0) );
|
|
end;
|
|
|
|
{ TActionImport }
|
|
|
|
constructor TActionImport.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TActionImport_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TActionImport.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TActionImport.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TActionImport_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TActionImport.wstHas_EntitySet() : Boolean;
|
|
begin
|
|
Result := ( FEntitySet <> '' );
|
|
end;
|
|
|
|
function TActionImport.wstHas_IncludeInServiceDocument() : Boolean;
|
|
begin
|
|
Result := ( FIncludeInServiceDocument <> boolean(0) );
|
|
end;
|
|
|
|
{ TFunctionImport }
|
|
|
|
constructor TFunctionImport.Create();
|
|
begin
|
|
inherited Create();
|
|
FAnnotation := TFunctionImport_AnnotationArray.Create();
|
|
end;
|
|
|
|
procedure TFunctionImport.FreeObjectProperties();
|
|
begin
|
|
if Assigned(FAnnotation) then
|
|
FreeAndNil(FAnnotation);
|
|
inherited FreeObjectProperties();
|
|
end;
|
|
|
|
function TFunctionImport.wstHas_Annotation() : Boolean;
|
|
begin
|
|
Result := ( FAnnotation <> TFunctionImport_AnnotationArray(0) );
|
|
end;
|
|
|
|
function TFunctionImport.wstHas_EntitySet() : Boolean;
|
|
begin
|
|
Result := ( FEntitySet <> '' );
|
|
end;
|
|
|
|
function TFunctionImport.wstHas_IncludeInServiceDocument() : Boolean;
|
|
begin
|
|
Result := ( FIncludeInServiceDocument <> boolean(0) );
|
|
end;
|
|
|
|
{ Schema_ComplexTypeArray }
|
|
|
|
function Schema_ComplexTypeArray.GetItem(AIndex: Integer): TComplexType;
|
|
begin
|
|
Result := TComplexType(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema_ComplexTypeArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TComplexType;
|
|
end;
|
|
|
|
function Schema_ComplexTypeArray.Add() : TComplexType;
|
|
begin
|
|
Result := TComplexType(inherited Add());
|
|
end;
|
|
|
|
function Schema_ComplexTypeArray.AddAt(const APosition : Integer) : TComplexType;
|
|
begin
|
|
Result := TComplexType(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema_EntityTypeArray }
|
|
|
|
function Schema_EntityTypeArray.GetItem(AIndex: Integer): TEntityType;
|
|
begin
|
|
Result := TEntityType(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema_EntityTypeArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEntityType;
|
|
end;
|
|
|
|
function Schema_EntityTypeArray.Add() : TEntityType;
|
|
begin
|
|
Result := TEntityType(inherited Add());
|
|
end;
|
|
|
|
function Schema_EntityTypeArray.AddAt(const APosition : Integer) : TEntityType;
|
|
begin
|
|
Result := TEntityType(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema_TypeDefinitionArray }
|
|
|
|
function Schema_TypeDefinitionArray.GetItem(AIndex: Integer): TTypeDefinition;
|
|
begin
|
|
Result := TTypeDefinition(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema_TypeDefinitionArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTypeDefinition;
|
|
end;
|
|
|
|
function Schema_TypeDefinitionArray.Add() : TTypeDefinition;
|
|
begin
|
|
Result := TTypeDefinition(inherited Add());
|
|
end;
|
|
|
|
function Schema_TypeDefinitionArray.AddAt(const APosition : Integer) : TTypeDefinition;
|
|
begin
|
|
Result := TTypeDefinition(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema_EnumTypeArray }
|
|
|
|
function Schema_EnumTypeArray.GetItem(AIndex: Integer): TEnumType;
|
|
begin
|
|
Result := TEnumType(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema_EnumTypeArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEnumType;
|
|
end;
|
|
|
|
function Schema_EnumTypeArray.Add() : TEnumType;
|
|
begin
|
|
Result := TEnumType(inherited Add());
|
|
end;
|
|
|
|
function Schema_EnumTypeArray.AddAt(const APosition : Integer) : TEnumType;
|
|
begin
|
|
Result := TEnumType(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema_ActionArray }
|
|
|
|
function Schema_ActionArray.GetItem(AIndex: Integer): TAction;
|
|
begin
|
|
Result := TAction(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema_ActionArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TAction;
|
|
end;
|
|
|
|
function Schema_ActionArray.Add() : TAction;
|
|
begin
|
|
Result := TAction(inherited Add());
|
|
end;
|
|
|
|
function Schema_ActionArray.AddAt(const APosition : Integer) : TAction;
|
|
begin
|
|
Result := TAction(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema__FunctionArray }
|
|
|
|
function Schema__FunctionArray.GetItem(AIndex: Integer): TFunction;
|
|
begin
|
|
Result := TFunction(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema__FunctionArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TFunction;
|
|
end;
|
|
|
|
function Schema__FunctionArray.Add() : TFunction;
|
|
begin
|
|
Result := TFunction(inherited Add());
|
|
end;
|
|
|
|
function Schema__FunctionArray.AddAt(const APosition : Integer) : TFunction;
|
|
begin
|
|
Result := TFunction(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema_TermArray }
|
|
|
|
function Schema_TermArray.GetItem(AIndex: Integer): TTerm;
|
|
begin
|
|
Result := TTerm(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema_TermArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TTerm;
|
|
end;
|
|
|
|
function Schema_TermArray.Add() : TTerm;
|
|
begin
|
|
Result := TTerm(inherited Add());
|
|
end;
|
|
|
|
function Schema_TermArray.AddAt(const APosition : Integer) : TTerm;
|
|
begin
|
|
Result := TTerm(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema_AnnotationsArray }
|
|
|
|
function Schema_AnnotationsArray.GetItem(AIndex: Integer): TAnnotations;
|
|
begin
|
|
Result := TAnnotations(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema_AnnotationsArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TAnnotations;
|
|
end;
|
|
|
|
function Schema_AnnotationsArray.Add() : TAnnotations;
|
|
begin
|
|
Result := TAnnotations(inherited Add());
|
|
end;
|
|
|
|
function Schema_AnnotationsArray.AddAt(const APosition : Integer) : TAnnotations;
|
|
begin
|
|
Result := TAnnotations(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema_EntityContainerArray }
|
|
|
|
function Schema_EntityContainerArray.GetItem(AIndex: Integer): TEntityContainer;
|
|
begin
|
|
Result := TEntityContainer(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function Schema_EntityContainerArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEntityContainer;
|
|
end;
|
|
|
|
function Schema_EntityContainerArray.Add() : TEntityContainer;
|
|
begin
|
|
Result := TEntityContainer(inherited Add());
|
|
end;
|
|
|
|
function Schema_EntityContainerArray.AddAt(const APosition : Integer) : TEntityContainer;
|
|
begin
|
|
Result := TEntityContainer(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ Schema_AnnotationArray }
|
|
|
|
function Schema_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure Schema_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function Schema_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure Schema_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure Schema_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function Schema_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure Schema_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure Schema_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : Schema_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(Schema_AnnotationArray) then begin
|
|
src := Schema_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TEntityType_KeyArray }
|
|
|
|
function TEntityType_KeyArray.GetItem(AIndex: Integer): TEntityKeyElement;
|
|
begin
|
|
Result := TEntityKeyElement(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityType_KeyArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEntityKeyElement;
|
|
end;
|
|
|
|
function TEntityType_KeyArray.Add() : TEntityKeyElement;
|
|
begin
|
|
Result := TEntityKeyElement(inherited Add());
|
|
end;
|
|
|
|
function TEntityType_KeyArray.AddAt(const APosition : Integer) : TEntityKeyElement;
|
|
begin
|
|
Result := TEntityKeyElement(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntityType__PropertyArray }
|
|
|
|
function TEntityType__PropertyArray.GetItem(AIndex: Integer): TProperty;
|
|
begin
|
|
Result := TProperty(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityType__PropertyArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TProperty;
|
|
end;
|
|
|
|
function TEntityType__PropertyArray.Add() : TProperty;
|
|
begin
|
|
Result := TProperty(inherited Add());
|
|
end;
|
|
|
|
function TEntityType__PropertyArray.AddAt(const APosition : Integer) : TProperty;
|
|
begin
|
|
Result := TProperty(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntityType_NavigationPropertyArray }
|
|
|
|
function TEntityType_NavigationPropertyArray.GetItem(AIndex: Integer): TNavigationProperty;
|
|
begin
|
|
Result := TNavigationProperty(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityType_NavigationPropertyArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TNavigationProperty;
|
|
end;
|
|
|
|
function TEntityType_NavigationPropertyArray.Add() : TNavigationProperty;
|
|
begin
|
|
Result := TNavigationProperty(inherited Add());
|
|
end;
|
|
|
|
function TEntityType_NavigationPropertyArray.AddAt(const APosition : Integer) : TNavigationProperty;
|
|
begin
|
|
Result := TNavigationProperty(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntityType_AnnotationArray }
|
|
|
|
function TEntityType_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TEntityType_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TEntityType_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TEntityType_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TEntityType_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TEntityType_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TEntityType_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TEntityType_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TEntityType_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TEntityType_AnnotationArray) then begin
|
|
src := TEntityType_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TEntityKeyElement }
|
|
|
|
function TEntityKeyElement.GetItem(AIndex: Integer): TPropertyRef;
|
|
begin
|
|
Result := TPropertyRef(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityKeyElement.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TPropertyRef;
|
|
end;
|
|
|
|
function TEntityKeyElement.Add() : TPropertyRef;
|
|
begin
|
|
Result := TPropertyRef(inherited Add());
|
|
end;
|
|
|
|
function TEntityKeyElement.AddAt(const APosition : Integer) : TPropertyRef;
|
|
begin
|
|
Result := TPropertyRef(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TComplexType__PropertyArray }
|
|
|
|
function TComplexType__PropertyArray.GetItem(AIndex: Integer): TProperty;
|
|
begin
|
|
Result := TProperty(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TComplexType__PropertyArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TProperty;
|
|
end;
|
|
|
|
function TComplexType__PropertyArray.Add() : TProperty;
|
|
begin
|
|
Result := TProperty(inherited Add());
|
|
end;
|
|
|
|
function TComplexType__PropertyArray.AddAt(const APosition : Integer) : TProperty;
|
|
begin
|
|
Result := TProperty(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TComplexType_NavigationPropertyArray }
|
|
|
|
function TComplexType_NavigationPropertyArray.GetItem(AIndex: Integer): TNavigationProperty;
|
|
begin
|
|
Result := TNavigationProperty(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TComplexType_NavigationPropertyArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TNavigationProperty;
|
|
end;
|
|
|
|
function TComplexType_NavigationPropertyArray.Add() : TNavigationProperty;
|
|
begin
|
|
Result := TNavigationProperty(inherited Add());
|
|
end;
|
|
|
|
function TComplexType_NavigationPropertyArray.AddAt(const APosition : Integer) : TNavigationProperty;
|
|
begin
|
|
Result := TNavigationProperty(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TComplexType_AnnotationArray }
|
|
|
|
function TComplexType_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TComplexType_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TComplexType_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TComplexType_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TComplexType_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TComplexType_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TComplexType_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TComplexType_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TComplexType_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TComplexType_AnnotationArray) then begin
|
|
src := TComplexType_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TProperty_AnnotationArray }
|
|
|
|
function TProperty_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TProperty_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TProperty_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TProperty_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TProperty_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TProperty_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TProperty_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TProperty_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TProperty_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TProperty_AnnotationArray) then begin
|
|
src := TProperty_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TTypeDefinition_AnnotationArray }
|
|
|
|
function TTypeDefinition_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TTypeDefinition_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TTypeDefinition_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TTypeDefinition_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TTypeDefinition_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TTypeDefinition_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TTypeDefinition_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TTypeDefinition_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TTypeDefinition_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TTypeDefinition_AnnotationArray) then begin
|
|
src := TTypeDefinition_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TNavigationProperty_ReferentialConstraintArray }
|
|
|
|
function TNavigationProperty_ReferentialConstraintArray.GetItem(AIndex: Integer): TReferentialConstraint;
|
|
begin
|
|
Result := TReferentialConstraint(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TNavigationProperty_ReferentialConstraintArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TReferentialConstraint;
|
|
end;
|
|
|
|
function TNavigationProperty_ReferentialConstraintArray.Add() : TReferentialConstraint;
|
|
begin
|
|
Result := TReferentialConstraint(inherited Add());
|
|
end;
|
|
|
|
function TNavigationProperty_ReferentialConstraintArray.AddAt(const APosition : Integer) : TReferentialConstraint;
|
|
begin
|
|
Result := TReferentialConstraint(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TNavigationProperty_OnDeleteArray }
|
|
|
|
function TNavigationProperty_OnDeleteArray.GetItem(AIndex: Integer): TOnDelete;
|
|
begin
|
|
Result := TOnDelete(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TNavigationProperty_OnDeleteArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TOnDelete;
|
|
end;
|
|
|
|
function TNavigationProperty_OnDeleteArray.Add() : TOnDelete;
|
|
begin
|
|
Result := TOnDelete(inherited Add());
|
|
end;
|
|
|
|
function TNavigationProperty_OnDeleteArray.AddAt(const APosition : Integer) : TOnDelete;
|
|
begin
|
|
Result := TOnDelete(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TNavigationProperty_AnnotationArray }
|
|
|
|
function TNavigationProperty_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TNavigationProperty_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TNavigationProperty_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TNavigationProperty_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TNavigationProperty_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TNavigationProperty_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TNavigationProperty_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TNavigationProperty_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TNavigationProperty_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TNavigationProperty_AnnotationArray) then begin
|
|
src := TNavigationProperty_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TReferentialConstraint_AnnotationArray }
|
|
|
|
function TReferentialConstraint_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TReferentialConstraint_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TReferentialConstraint_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TReferentialConstraint_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TReferentialConstraint_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TReferentialConstraint_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TReferentialConstraint_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TReferentialConstraint_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TReferentialConstraint_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TReferentialConstraint_AnnotationArray) then begin
|
|
src := TReferentialConstraint_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TOnDelete_AnnotationArray }
|
|
|
|
function TOnDelete_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TOnDelete_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TOnDelete_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TOnDelete_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TOnDelete_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TOnDelete_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TOnDelete_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TOnDelete_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TOnDelete_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TOnDelete_AnnotationArray) then begin
|
|
src := TOnDelete_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TEnumType_MemberArray }
|
|
|
|
function TEnumType_MemberArray.GetItem(AIndex: Integer): TEnumTypeMember;
|
|
begin
|
|
Result := TEnumTypeMember(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEnumType_MemberArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEnumTypeMember;
|
|
end;
|
|
|
|
function TEnumType_MemberArray.Add() : TEnumTypeMember;
|
|
begin
|
|
Result := TEnumTypeMember(inherited Add());
|
|
end;
|
|
|
|
function TEnumType_MemberArray.AddAt(const APosition : Integer) : TEnumTypeMember;
|
|
begin
|
|
Result := TEnumTypeMember(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEnumType_AnnotationArray }
|
|
|
|
function TEnumType_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TEnumType_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TEnumType_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TEnumType_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TEnumType_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TEnumType_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TEnumType_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TEnumType_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TEnumType_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TEnumType_AnnotationArray) then begin
|
|
src := TEnumType_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TEnumTypeMember_AnnotationArray }
|
|
|
|
function TEnumTypeMember_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TEnumTypeMember_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TEnumTypeMember_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TEnumTypeMember_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TEnumTypeMember_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TEnumTypeMember_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TEnumTypeMember_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TEnumTypeMember_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TEnumTypeMember_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TEnumTypeMember_AnnotationArray) then begin
|
|
src := TEnumTypeMember_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TActionFunctionReturnType_AnnotationArray }
|
|
|
|
function TActionFunctionReturnType_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TActionFunctionReturnType_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TActionFunctionReturnType_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TActionFunctionReturnType_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TActionFunctionReturnType_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TActionFunctionReturnType_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TActionFunctionReturnType_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TActionFunctionReturnType_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TActionFunctionReturnType_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TActionFunctionReturnType_AnnotationArray) then begin
|
|
src := TActionFunctionReturnType_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TAction_ParameterArray }
|
|
|
|
function TAction_ParameterArray.GetItem(AIndex: Integer): TActionFunctionParameter;
|
|
begin
|
|
Result := TActionFunctionParameter(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TAction_ParameterArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TActionFunctionParameter;
|
|
end;
|
|
|
|
function TAction_ParameterArray.Add() : TActionFunctionParameter;
|
|
begin
|
|
Result := TActionFunctionParameter(inherited Add());
|
|
end;
|
|
|
|
function TAction_ParameterArray.AddAt(const APosition : Integer) : TActionFunctionParameter;
|
|
begin
|
|
Result := TActionFunctionParameter(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TAction_AnnotationArray }
|
|
|
|
function TAction_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TAction_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TAction_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TAction_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TAction_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TAction_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TAction_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TAction_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TAction_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TAction_AnnotationArray) then begin
|
|
src := TAction_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TFunction_ParameterArray }
|
|
|
|
function TFunction_ParameterArray.GetItem(AIndex: Integer): TActionFunctionParameter;
|
|
begin
|
|
Result := TActionFunctionParameter(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunction_ParameterArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TActionFunctionParameter;
|
|
end;
|
|
|
|
function TFunction_ParameterArray.Add() : TActionFunctionParameter;
|
|
begin
|
|
Result := TActionFunctionParameter(inherited Add());
|
|
end;
|
|
|
|
function TFunction_ParameterArray.AddAt(const APosition : Integer) : TActionFunctionParameter;
|
|
begin
|
|
Result := TActionFunctionParameter(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TFunction_AnnotationArray }
|
|
|
|
function TFunction_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TFunction_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TFunction_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TFunction_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TFunction_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TFunction_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TFunction_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TFunction_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TFunction_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TFunction_AnnotationArray) then begin
|
|
src := TFunction_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TActionFunctionParameter_AnnotationArray }
|
|
|
|
function TActionFunctionParameter_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TActionFunctionParameter_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TActionFunctionParameter_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TActionFunctionParameter_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TActionFunctionParameter_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TActionFunctionParameter_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TActionFunctionParameter_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TActionFunctionParameter_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TActionFunctionParameter_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TActionFunctionParameter_AnnotationArray) then begin
|
|
src := TActionFunctionParameter_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TTerm_AnnotationArray }
|
|
|
|
function TTerm_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TTerm_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TTerm_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TTerm_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TTerm_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TTerm_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TTerm_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TTerm_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TTerm_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TTerm_AnnotationArray) then begin
|
|
src := TTerm_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TAnnotations_AnnotationArray }
|
|
|
|
function TAnnotations_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure TAnnotations_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function TAnnotations_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure TAnnotations_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure TAnnotations_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function TAnnotations_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure TAnnotations_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure TAnnotations_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : TAnnotations_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(TAnnotations_AnnotationArray) then begin
|
|
src := TAnnotations_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ Annotation_AnnotationArray }
|
|
|
|
function Annotation_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
CheckIndex(AIndex);
|
|
Result := FData[AIndex];
|
|
end;
|
|
|
|
procedure Annotation_AnnotationArray.SetItem(AIndex: Integer;const AValue: Annotation_Type);
|
|
begin
|
|
CheckIndex(AIndex);
|
|
FData[AIndex] := AValue;
|
|
end;
|
|
|
|
function Annotation_AnnotationArray.GetLength(): Integer;
|
|
begin
|
|
Result := System.Length(FData);
|
|
end;
|
|
|
|
procedure Annotation_AnnotationArray.SaveItem(AStore: IFormatterBase;const AName: String; const AIndex: Integer);
|
|
begin
|
|
AStore.Put('Annotation',TypeInfo(Annotation_Type),FData[AIndex]);
|
|
end;
|
|
|
|
procedure Annotation_AnnotationArray.LoadItem(AStore: IFormatterBase;const AIndex: Integer);
|
|
var
|
|
sName : string;
|
|
begin
|
|
sName := 'Annotation';
|
|
AStore.Get(TypeInfo(Annotation_Type),sName,FData[AIndex]);
|
|
end;
|
|
|
|
class function Annotation_AnnotationArray.GetItemTypeInfo(): PTypeInfo;
|
|
begin
|
|
Result := TypeInfo(Annotation_Type);
|
|
end;
|
|
|
|
procedure Annotation_AnnotationArray.SetLength(const ANewSize: Integer);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
if ( ANewSize < 0 ) then
|
|
i := 0
|
|
else
|
|
i := ANewSize;
|
|
System.SetLength(FData,i);
|
|
end;
|
|
|
|
procedure Annotation_AnnotationArray.Assign(Source: TPersistent);
|
|
var
|
|
src : Annotation_AnnotationArray;
|
|
i, c : Integer;
|
|
begin
|
|
if Assigned(Source) and Source.InheritsFrom(Annotation_AnnotationArray) then begin
|
|
src := Annotation_AnnotationArray(Source);
|
|
c := src.Length;
|
|
Self.SetLength(c);
|
|
if ( c > 0 ) then begin
|
|
for i := 0 to Pred(c) do begin
|
|
Self[i] := src[i];
|
|
end;
|
|
end;
|
|
end else begin
|
|
inherited Assign(Source);
|
|
end;
|
|
end;
|
|
|
|
{ TApplyExpression_AnnotationArray }
|
|
|
|
function TApplyExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TApplyExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TApplyExpression_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TApplyExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TCastOrIsOfExpression_AnnotationArray }
|
|
|
|
function TCastOrIsOfExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TCastOrIsOfExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TCastOrIsOfExpression_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TCastOrIsOfExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TIfExpression_AnnotationArray }
|
|
|
|
function TIfExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TIfExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TIfExpression_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TIfExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TOneChildExpression_AnnotationArray }
|
|
|
|
function TOneChildExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TOneChildExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TOneChildExpression_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TOneChildExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TTwoChildrenExpression_AnnotationArray }
|
|
|
|
function TTwoChildrenExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TTwoChildrenExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TTwoChildrenExpression_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TTwoChildrenExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TLabeledElementExpression_AnnotationArray }
|
|
|
|
function TLabeledElementExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TLabeledElementExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TLabeledElementExpression_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TLabeledElementExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TNullExpression }
|
|
|
|
function TNullExpression.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TNullExpression.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TNullExpression.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TNullExpression.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TRecordExpression_PropertyValueArray }
|
|
|
|
function TRecordExpression_PropertyValueArray.GetItem(AIndex: Integer): TPropertyValue;
|
|
begin
|
|
Result := TPropertyValue(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TRecordExpression_PropertyValueArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TPropertyValue;
|
|
end;
|
|
|
|
function TRecordExpression_PropertyValueArray.Add() : TPropertyValue;
|
|
begin
|
|
Result := TPropertyValue(inherited Add());
|
|
end;
|
|
|
|
function TRecordExpression_PropertyValueArray.AddAt(const APosition : Integer) : TPropertyValue;
|
|
begin
|
|
Result := TPropertyValue(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TRecordExpression_AnnotationArray }
|
|
|
|
function TRecordExpression_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TRecordExpression_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TRecordExpression_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TRecordExpression_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TPropertyValue_AnnotationArray }
|
|
|
|
function TPropertyValue_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TPropertyValue_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TPropertyValue_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TPropertyValue_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntityContainer_EntitySetArray }
|
|
|
|
function TEntityContainer_EntitySetArray.GetItem(AIndex: Integer): TEntitySet;
|
|
begin
|
|
Result := TEntitySet(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityContainer_EntitySetArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TEntitySet;
|
|
end;
|
|
|
|
function TEntityContainer_EntitySetArray.Add() : TEntitySet;
|
|
begin
|
|
Result := TEntitySet(inherited Add());
|
|
end;
|
|
|
|
function TEntityContainer_EntitySetArray.AddAt(const APosition : Integer) : TEntitySet;
|
|
begin
|
|
Result := TEntitySet(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntityContainer_ActionImportArray }
|
|
|
|
function TEntityContainer_ActionImportArray.GetItem(AIndex: Integer): TActionImport;
|
|
begin
|
|
Result := TActionImport(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityContainer_ActionImportArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TActionImport;
|
|
end;
|
|
|
|
function TEntityContainer_ActionImportArray.Add() : TActionImport;
|
|
begin
|
|
Result := TActionImport(inherited Add());
|
|
end;
|
|
|
|
function TEntityContainer_ActionImportArray.AddAt(const APosition : Integer) : TActionImport;
|
|
begin
|
|
Result := TActionImport(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntityContainer_FunctionImportArray }
|
|
|
|
function TEntityContainer_FunctionImportArray.GetItem(AIndex: Integer): TFunctionImport;
|
|
begin
|
|
Result := TFunctionImport(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityContainer_FunctionImportArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TFunctionImport;
|
|
end;
|
|
|
|
function TEntityContainer_FunctionImportArray.Add() : TFunctionImport;
|
|
begin
|
|
Result := TFunctionImport(inherited Add());
|
|
end;
|
|
|
|
function TEntityContainer_FunctionImportArray.AddAt(const APosition : Integer) : TFunctionImport;
|
|
begin
|
|
Result := TFunctionImport(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntityContainer_SingletonArray }
|
|
|
|
function TEntityContainer_SingletonArray.GetItem(AIndex: Integer): TSingleton;
|
|
begin
|
|
Result := TSingleton(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityContainer_SingletonArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TSingleton;
|
|
end;
|
|
|
|
function TEntityContainer_SingletonArray.Add() : TSingleton;
|
|
begin
|
|
Result := TSingleton(inherited Add());
|
|
end;
|
|
|
|
function TEntityContainer_SingletonArray.AddAt(const APosition : Integer) : TSingleton;
|
|
begin
|
|
Result := TSingleton(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntityContainer_AnnotationArray }
|
|
|
|
function TEntityContainer_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntityContainer_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TEntityContainer_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TEntityContainer_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntitySet_NavigationPropertyBindingArray }
|
|
|
|
function TEntitySet_NavigationPropertyBindingArray.GetItem(AIndex: Integer): TNavigationPropertyBinding;
|
|
begin
|
|
Result := TNavigationPropertyBinding(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntitySet_NavigationPropertyBindingArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TNavigationPropertyBinding;
|
|
end;
|
|
|
|
function TEntitySet_NavigationPropertyBindingArray.Add() : TNavigationPropertyBinding;
|
|
begin
|
|
Result := TNavigationPropertyBinding(inherited Add());
|
|
end;
|
|
|
|
function TEntitySet_NavigationPropertyBindingArray.AddAt(const APosition : Integer) : TNavigationPropertyBinding;
|
|
begin
|
|
Result := TNavigationPropertyBinding(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TEntitySet_AnnotationArray }
|
|
|
|
function TEntitySet_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TEntitySet_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TEntitySet_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TEntitySet_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TSingleton_NavigationPropertyBindingArray }
|
|
|
|
function TSingleton_NavigationPropertyBindingArray.GetItem(AIndex: Integer): TNavigationPropertyBinding;
|
|
begin
|
|
Result := TNavigationPropertyBinding(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TSingleton_NavigationPropertyBindingArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= TNavigationPropertyBinding;
|
|
end;
|
|
|
|
function TSingleton_NavigationPropertyBindingArray.Add() : TNavigationPropertyBinding;
|
|
begin
|
|
Result := TNavigationPropertyBinding(inherited Add());
|
|
end;
|
|
|
|
function TSingleton_NavigationPropertyBindingArray.AddAt(const APosition : Integer) : TNavigationPropertyBinding;
|
|
begin
|
|
Result := TNavigationPropertyBinding(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TSingleton_AnnotationArray }
|
|
|
|
function TSingleton_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TSingleton_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TSingleton_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TSingleton_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TActionImport_AnnotationArray }
|
|
|
|
function TActionImport_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TActionImport_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TActionImport_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TActionImport_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
{ TFunctionImport_AnnotationArray }
|
|
|
|
function TFunctionImport_AnnotationArray.GetItem(AIndex: Integer): Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(Inherited GetItem(AIndex));
|
|
end;
|
|
|
|
class function TFunctionImport_AnnotationArray.GetItemClass(): TBaseRemotableClass;
|
|
begin
|
|
Result:= Annotation_Type;
|
|
end;
|
|
|
|
function TFunctionImport_AnnotationArray.Add() : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited Add());
|
|
end;
|
|
|
|
function TFunctionImport_AnnotationArray.AddAt(const APosition : Integer) : Annotation_Type;
|
|
begin
|
|
Result := Annotation_Type(inherited AddAt(APosition));
|
|
end;
|
|
|
|
|
|
var
|
|
typeRegistryInstance : TTypeRegistry = nil;
|
|
initialization
|
|
typeRegistryInstance := GetTypeRegistry();
|
|
Schema.RegisterAttributeProperty('Namespace');
|
|
Schema.RegisterAttributeProperty('Alias');
|
|
TTypeAttributes.RegisterAttributeProperty('Name');
|
|
TDerivableTypeAttributes.RegisterAttributeProperty('BaseType');
|
|
TDerivableTypeAttributes.RegisterAttributeProperty('_Abstract');
|
|
TDerivableTypeAttributes.RegisterAttributeProperty('Name');
|
|
TEntityType.RegisterAttributeProperty('OpenType');
|
|
TEntityType.RegisterAttributeProperty('HasStream');
|
|
TEntityType.RegisterAttributeProperty('BaseType');
|
|
TEntityType.RegisterAttributeProperty('_Abstract');
|
|
TEntityType.RegisterAttributeProperty('Name');
|
|
TPropertyRef.RegisterAttributeProperty('Name');
|
|
TPropertyRef.RegisterAttributeProperty('Alias');
|
|
TComplexType.RegisterAttributeProperty('OpenType');
|
|
TComplexType.RegisterAttributeProperty('BaseType');
|
|
TComplexType.RegisterAttributeProperty('_Abstract');
|
|
TComplexType.RegisterAttributeProperty('Name');
|
|
TFacetAttributes.RegisterAttributeProperty('MaxLength');
|
|
TFacetAttributes.RegisterAttributeProperty('Precision');
|
|
TFacetAttributes.RegisterAttributeProperty('Scale');
|
|
TFacetAttributes.RegisterAttributeProperty('SRID');
|
|
TPropertyFacetAttributes.RegisterAttributeProperty('Unicode');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Name');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('_Type');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Nullable');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('DefaultValue');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('MaxLength');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Precision');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Scale');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('SRID');
|
|
TCommonPropertyAttributes.RegisterAttributeProperty('Unicode');
|
|
TProperty.RegisterAttributeProperty('Name');
|
|
TProperty.RegisterAttributeProperty('_Type');
|
|
TProperty.RegisterAttributeProperty('Nullable');
|
|
TProperty.RegisterAttributeProperty('DefaultValue');
|
|
TProperty.RegisterAttributeProperty('MaxLength');
|
|
TProperty.RegisterAttributeProperty('Precision');
|
|
TProperty.RegisterAttributeProperty('Scale');
|
|
TProperty.RegisterAttributeProperty('SRID');
|
|
TProperty.RegisterAttributeProperty('Unicode');
|
|
TTypeDefinition.RegisterAttributeProperty('Name');
|
|
TTypeDefinition.RegisterAttributeProperty('UnderlyingType');
|
|
TTypeDefinition.RegisterAttributeProperty('MaxLength');
|
|
TTypeDefinition.RegisterAttributeProperty('Precision');
|
|
TTypeDefinition.RegisterAttributeProperty('Scale');
|
|
TTypeDefinition.RegisterAttributeProperty('SRID');
|
|
TTypeDefinition.RegisterAttributeProperty('Unicode');
|
|
TNavigationProperty.RegisterAttributeProperty('Name');
|
|
TNavigationProperty.RegisterAttributeProperty('_Type');
|
|
TNavigationProperty.RegisterAttributeProperty('Nullable');
|
|
TNavigationProperty.RegisterAttributeProperty('Partner');
|
|
TNavigationProperty.RegisterAttributeProperty('ContainsTarget');
|
|
TReferentialConstraint.RegisterAttributeProperty('_Property');
|
|
TReferentialConstraint.RegisterAttributeProperty('ReferencedProperty');
|
|
TOnDelete.RegisterAttributeProperty('Action');
|
|
TEnumType.RegisterAttributeProperty('IsFlags');
|
|
TEnumType.RegisterAttributeProperty('UnderlyingType');
|
|
TEnumType.RegisterAttributeProperty('Name');
|
|
TEnumTypeMember.RegisterAttributeProperty('Name');
|
|
TEnumTypeMember.RegisterAttributeProperty('Value');
|
|
TActionFunctionReturnType.RegisterAttributeProperty('_Type');
|
|
TActionFunctionReturnType.RegisterAttributeProperty('Nullable');
|
|
TActionFunctionReturnType.RegisterAttributeProperty('MaxLength');
|
|
TActionFunctionReturnType.RegisterAttributeProperty('Precision');
|
|
TActionFunctionReturnType.RegisterAttributeProperty('Scale');
|
|
TActionFunctionReturnType.RegisterAttributeProperty('SRID');
|
|
TActionAttributes.RegisterAttributeProperty('Name');
|
|
TActionAttributes.RegisterAttributeProperty('EntitySetPath');
|
|
TActionAttributes.RegisterAttributeProperty('IsBound');
|
|
TAction.RegisterAttributeProperty('Name');
|
|
TAction.RegisterAttributeProperty('EntitySetPath');
|
|
TAction.RegisterAttributeProperty('IsBound');
|
|
TFunctionAttributes.RegisterAttributeProperty('Name');
|
|
TFunctionAttributes.RegisterAttributeProperty('EntitySetPath');
|
|
TFunctionAttributes.RegisterAttributeProperty('IsBound');
|
|
TFunctionAttributes.RegisterAttributeProperty('IsComposable');
|
|
TFunction.RegisterAttributeProperty('Name');
|
|
TFunction.RegisterAttributeProperty('EntitySetPath');
|
|
TFunction.RegisterAttributeProperty('IsBound');
|
|
TFunction.RegisterAttributeProperty('IsComposable');
|
|
TActionFunctionParameterAttributes.RegisterAttributeProperty('Name');
|
|
TActionFunctionParameterAttributes.RegisterAttributeProperty('_Type');
|
|
TActionFunctionParameterAttributes.RegisterAttributeProperty('Nullable');
|
|
TActionFunctionParameterAttributes.RegisterAttributeProperty('MaxLength');
|
|
TActionFunctionParameterAttributes.RegisterAttributeProperty('Precision');
|
|
TActionFunctionParameterAttributes.RegisterAttributeProperty('Scale');
|
|
TActionFunctionParameterAttributes.RegisterAttributeProperty('SRID');
|
|
TActionFunctionParameter.RegisterAttributeProperty('Name');
|
|
TActionFunctionParameter.RegisterAttributeProperty('_Type');
|
|
TActionFunctionParameter.RegisterAttributeProperty('Nullable');
|
|
TActionFunctionParameter.RegisterAttributeProperty('MaxLength');
|
|
TActionFunctionParameter.RegisterAttributeProperty('Precision');
|
|
TActionFunctionParameter.RegisterAttributeProperty('Scale');
|
|
TActionFunctionParameter.RegisterAttributeProperty('SRID');
|
|
TTerm.RegisterAttributeProperty('Name');
|
|
TTerm.RegisterAttributeProperty('_Type');
|
|
TTerm.RegisterAttributeProperty('BaseTerm');
|
|
TTerm.RegisterAttributeProperty('Nullable');
|
|
TTerm.RegisterAttributeProperty('DefaultValue');
|
|
TTerm.RegisterAttributeProperty('AppliesTo');
|
|
TTerm.RegisterAttributeProperty('MaxLength');
|
|
TTerm.RegisterAttributeProperty('Precision');
|
|
TTerm.RegisterAttributeProperty('Scale');
|
|
TTerm.RegisterAttributeProperty('SRID');
|
|
TAnnotations.RegisterAttributeProperty('Target');
|
|
TAnnotations.RegisterAttributeProperty('Qualifier');
|
|
GInlineExpressions.RegisterAttributeProperty('Binary');
|
|
GInlineExpressions.RegisterAttributeProperty('Bool');
|
|
GInlineExpressions.RegisterAttributeProperty('Date');
|
|
GInlineExpressions.RegisterAttributeProperty('DateTimeOffset');
|
|
GInlineExpressions.RegisterAttributeProperty('Decimal');
|
|
GInlineExpressions.RegisterAttributeProperty('Duration');
|
|
GInlineExpressions.RegisterAttributeProperty('EnumMember');
|
|
GInlineExpressions.RegisterAttributeProperty('Float');
|
|
GInlineExpressions.RegisterAttributeProperty('Guid');
|
|
GInlineExpressions.RegisterAttributeProperty('Int');
|
|
GInlineExpressions.RegisterAttributeProperty('_String');
|
|
GInlineExpressions.RegisterAttributeProperty('TimeOfDay');
|
|
GInlineExpressions.RegisterAttributeProperty('AnnotationPath');
|
|
GInlineExpressions.RegisterAttributeProperty('NavigationPropertyPath');
|
|
GInlineExpressions.RegisterAttributeProperty('Path');
|
|
GInlineExpressions.RegisterAttributeProperty('PropertyPath');
|
|
GInlineExpressions.RegisterAttributeProperty('UrlRef');
|
|
Annotation_Type.RegisterAttributeProperty('Term');
|
|
Annotation_Type.RegisterAttributeProperty('Qualifier');
|
|
Annotation_Type.RegisterAttributeProperty('BinaryAtt');
|
|
Annotation_Type.RegisterAttributeProperty('BoolAtt');
|
|
Annotation_Type.RegisterAttributeProperty('DateAtt');
|
|
Annotation_Type.RegisterAttributeProperty('DateTimeOffsetAtt');
|
|
Annotation_Type.RegisterAttributeProperty('DecimalAtt');
|
|
Annotation_Type.RegisterAttributeProperty('DurationAtt');
|
|
Annotation_Type.RegisterAttributeProperty('EnumMemberAtt');
|
|
Annotation_Type.RegisterAttributeProperty('FloatAtt');
|
|
Annotation_Type.RegisterAttributeProperty('GuidAtt');
|
|
Annotation_Type.RegisterAttributeProperty('IntAtt');
|
|
Annotation_Type.RegisterAttributeProperty('_StringAtt');
|
|
Annotation_Type.RegisterAttributeProperty('TimeOfDayAtt');
|
|
Annotation_Type.RegisterAttributeProperty('AnnotationPathAtt');
|
|
Annotation_Type.RegisterAttributeProperty('NavigationPropertyPathAtt');
|
|
Annotation_Type.RegisterAttributeProperty('PathAtt');
|
|
Annotation_Type.RegisterAttributeProperty('PropertyPathAtt');
|
|
Annotation_Type.RegisterAttributeProperty('UrlRefAtt');
|
|
TApplyExpression.RegisterAttributeProperty('_Function');
|
|
TCastOrIsOfExpression.RegisterAttributeProperty('_Type');
|
|
TCastOrIsOfExpression.RegisterAttributeProperty('MaxLength');
|
|
TCastOrIsOfExpression.RegisterAttributeProperty('Precision');
|
|
TCastOrIsOfExpression.RegisterAttributeProperty('Scale');
|
|
TCastOrIsOfExpression.RegisterAttributeProperty('SRID');
|
|
TLabeledElementExpression.RegisterAttributeProperty('Name');
|
|
TLabeledElementExpression.RegisterAttributeProperty('BinaryAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('BoolAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('DateAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('DateTimeOffsetAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('DecimalAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('DurationAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('EnumMemberAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('FloatAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('GuidAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('IntAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('_StringAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('TimeOfDayAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('AnnotationPathAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('NavigationPropertyPathAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('PathAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('PropertyPathAtt');
|
|
TLabeledElementExpression.RegisterAttributeProperty('UrlRefAtt');
|
|
TRecordExpression.RegisterAttributeProperty('_Type');
|
|
TPropertyValue.RegisterAttributeProperty('_Property');
|
|
TPropertyValue.RegisterAttributeProperty('BinaryAtt');
|
|
TPropertyValue.RegisterAttributeProperty('BoolAtt');
|
|
TPropertyValue.RegisterAttributeProperty('DateAtt');
|
|
TPropertyValue.RegisterAttributeProperty('DateTimeOffsetAtt');
|
|
TPropertyValue.RegisterAttributeProperty('DecimalAtt');
|
|
TPropertyValue.RegisterAttributeProperty('DurationAtt');
|
|
TPropertyValue.RegisterAttributeProperty('EnumMemberAtt');
|
|
TPropertyValue.RegisterAttributeProperty('FloatAtt');
|
|
TPropertyValue.RegisterAttributeProperty('GuidAtt');
|
|
TPropertyValue.RegisterAttributeProperty('IntAtt');
|
|
TPropertyValue.RegisterAttributeProperty('_StringAtt');
|
|
TPropertyValue.RegisterAttributeProperty('TimeOfDayAtt');
|
|
TPropertyValue.RegisterAttributeProperty('AnnotationPathAtt');
|
|
TPropertyValue.RegisterAttributeProperty('NavigationPropertyPathAtt');
|
|
TPropertyValue.RegisterAttributeProperty('PathAtt');
|
|
TPropertyValue.RegisterAttributeProperty('PropertyPathAtt');
|
|
TPropertyValue.RegisterAttributeProperty('UrlRefAtt');
|
|
TEntityContainer.RegisterAttributeProperty('Name');
|
|
TEntityContainer.RegisterAttributeProperty('Extends');
|
|
TEntitySetAttributes.RegisterAttributeProperty('Name');
|
|
TEntitySetAttributes.RegisterAttributeProperty('EntityType');
|
|
TEntitySetAttributes.RegisterAttributeProperty('IncludeInServiceDocument');
|
|
TEntitySet.RegisterAttributeProperty('Name');
|
|
TEntitySet.RegisterAttributeProperty('EntityType');
|
|
TEntitySet.RegisterAttributeProperty('IncludeInServiceDocument');
|
|
TNavigationPropertyBinding.RegisterAttributeProperty('Path');
|
|
TNavigationPropertyBinding.RegisterAttributeProperty('Target');
|
|
TSingleton.RegisterAttributeProperty('Name');
|
|
TSingleton.RegisterAttributeProperty('_Type');
|
|
TActionFunctionImportAttributes.RegisterAttributeProperty('Name');
|
|
TActionFunctionImportAttributes.RegisterAttributeProperty('EntitySet');
|
|
TActionFunctionImportAttributes.RegisterAttributeProperty('IncludeInServiceDocument');
|
|
TActionImport.RegisterAttributeProperty('Action');
|
|
TActionImport.RegisterAttributeProperty('Name');
|
|
TActionImport.RegisterAttributeProperty('EntitySet');
|
|
TActionImport.RegisterAttributeProperty('IncludeInServiceDocument');
|
|
TFunctionImport.RegisterAttributeProperty('_Function');
|
|
TFunctionImport.RegisterAttributeProperty('Name');
|
|
TFunctionImport.RegisterAttributeProperty('EntitySet');
|
|
TFunctionImport.RegisterAttributeProperty('IncludeInServiceDocument');
|
|
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAbstractType),'TAbstractType');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_ComplexType','Edm.ComplexType');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_EntityType','Edm.EntityType');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_PrimitiveType','Edm.PrimitiveType');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_Geography','Edm.Geography');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_Geometry','Edm.Geometry');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_AnnotationPath','Edm.AnnotationPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_NavigationPropertyPath','Edm.NavigationPropertyPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Edm_PropertyPath','Edm.PropertyPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_ComplexType','Collection(Edm.ComplexType)');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_EntityType','Collection(Edm.EntityType)');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_PrimitiveType','Collection(Edm.PrimitiveType)');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_Geography','Collection(Edm.Geography)');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_Geometry','Collection(Edm.Geometry)');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_AnnotationPath','Collection(Edm.AnnotationPath)');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_NavigationPropertyPath','Collection(Edm.NavigationPropertyPath)');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAbstractType)].RegisterExternalPropertyName('TAbstractType_Collection_Edm_PropertyPath','Collection(Edm.PropertyPath)');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TMax),'TMax');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TVariable),'TVariable');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOnDeleteAction),'TOnDeleteAction');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema),'Schema',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeAttributes),'TTypeAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDerivableTypeAttributes),'TDerivableTypeAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType),'TEntityType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyRef),'TPropertyRef',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType),'TComplexType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFacetAttributes),'TFacetAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyFacetAttributes),'TPropertyFacetAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCommonPropertyAttributes),'TCommonPropertyAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TProperty),'TProperty',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeDefinition),'TTypeDefinition',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty),'TNavigationProperty',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TReferentialConstraint),'TReferentialConstraint',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOnDelete),'TOnDelete',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumType),'TEnumType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumTypeMember),'TEnumTypeMember',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionReturnType),'TActionFunctionReturnType',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionAttributes),'TActionAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAction),'TAction',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionAttributes),'TFunctionAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction),'TFunction',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionParameterAttributes),'TActionFunctionParameterAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionParameter),'TActionFunctionParameter',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTerm),'TTerm',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAnnotations),'TAnnotations',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GExpression),'GExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(GInlineExpressions),'GInlineExpressions',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Annotation_Type),'Annotation',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TBinaryConstantExpression),'TBinaryConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TBoolConstantExpression),'TBoolConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDateConstantExpression),'TDateConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDateTimeOffsetConstantExpression),'TDateTimeOffsetConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDecimalConstantExpression),'TDecimalConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TDurationConstantExpression),'TDurationConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFloatConstantExpression),'TFloatConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TGuidConstantExpression),'TGuidConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIntConstantExpression),'TIntConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TStringConstantExpression),'TStringConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTimeOfDayConstantExpression),'TTimeOfDayConstantExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TApplyExpression),'TApplyExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCastOrIsOfExpression),'TCastOrIsOfExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCollectionExpression),'TCollectionExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIfExpression),'TIfExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOneChildExpression),'TOneChildExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTwoChildrenExpression),'TTwoChildrenExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TLabeledElementExpression),'TLabeledElementExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TLabeledElementReferenceExpression),'TLabeledElementReferenceExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPathExpression),'TPathExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRecordExpression),'TRecordExpression',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyValue),'TPropertyValue',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer),'TEntityContainer',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySetAttributes),'TEntitySetAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySet),'TEntitySet',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationPropertyBinding),'TNavigationPropertyBinding',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TSingleton),'TSingleton',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionImportAttributes),'TActionFunctionImportAttributes',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionImport),'TActionImport',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImport),'TFunctionImport',[trioqualifiedElement, triounqualifiedAttribute]);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_ComplexTypeArray),'Schema_ComplexTypeArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_ComplexTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_EntityTypeArray),'Schema_EntityTypeArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_EntityTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_TypeDefinitionArray),'Schema_TypeDefinitionArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_TypeDefinitionArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_EnumTypeArray),'Schema_EnumTypeArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_EnumTypeArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_ActionArray),'Schema_ActionArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_ActionArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema__FunctionArray),'Schema__FunctionArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema__FunctionArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_TermArray),'Schema_TermArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_TermArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_AnnotationsArray),'Schema_AnnotationsArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_AnnotationsArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_EntityContainerArray),'Schema_EntityContainerArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_EntityContainerArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Schema_AnnotationArray),'Schema_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType_KeyArray),'TEntityType_KeyArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType_KeyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType__PropertyArray),'TEntityType__PropertyArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType__PropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType_NavigationPropertyArray),'TEntityType_NavigationPropertyArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType_NavigationPropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityType_AnnotationArray),'TEntityType_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityKeyElement),'TEntityKeyElement');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityKeyElement)].RegisterExternalPropertyName(sARRAY_ITEM,'PropertyRef');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType__PropertyArray),'TComplexType__PropertyArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType__PropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType_NavigationPropertyArray),'TComplexType_NavigationPropertyArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType_NavigationPropertyArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TComplexType_AnnotationArray),'TComplexType_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TProperty_AnnotationArray),'TProperty_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TProperty_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTypeDefinition_AnnotationArray),'TTypeDefinition_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTypeDefinition_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty_ReferentialConstraintArray),'TNavigationProperty_ReferentialConstraintArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty_ReferentialConstraintArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty_OnDeleteArray),'TNavigationProperty_OnDeleteArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty_OnDeleteArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNavigationProperty_AnnotationArray),'TNavigationProperty_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TReferentialConstraint_AnnotationArray),'TReferentialConstraint_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TReferentialConstraint_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOnDelete_AnnotationArray),'TOnDelete_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOnDelete_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumType_MemberArray),'TEnumType_MemberArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEnumType_MemberArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumType_AnnotationArray),'TEnumType_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEnumType_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEnumTypeMember_AnnotationArray),'TEnumTypeMember_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEnumTypeMember_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionReturnType_AnnotationArray),'TActionFunctionReturnType_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionReturnType_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAction_ParameterArray),'TAction_ParameterArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAction_ParameterArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAction_AnnotationArray),'TAction_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAction_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction_ParameterArray),'TFunction_ParameterArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction_ParameterArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunction_AnnotationArray),'TFunction_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunction_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionFunctionParameter_AnnotationArray),'TActionFunctionParameter_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionParameter_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTerm_AnnotationArray),'TTerm_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTerm_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TAnnotations_AnnotationArray),'TAnnotations_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TAnnotations_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(Annotation_AnnotationArray),'Annotation_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TApplyExpression_AnnotationArray),'TApplyExpression_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TCastOrIsOfExpression_AnnotationArray),'TCastOrIsOfExpression_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TIfExpression_AnnotationArray),'TIfExpression_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TOneChildExpression_AnnotationArray),'TOneChildExpression_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TTwoChildrenExpression_AnnotationArray),'TTwoChildrenExpression_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TLabeledElementExpression_AnnotationArray),'TLabeledElementExpression_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TNullExpression),'TNullExpression');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNullExpression)].RegisterExternalPropertyName(sARRAY_ITEM,'Annotation');
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRecordExpression_PropertyValueArray),'TRecordExpression_PropertyValueArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRecordExpression_PropertyValueArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TRecordExpression_AnnotationArray),'TRecordExpression_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRecordExpression_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TPropertyValue_AnnotationArray),'TPropertyValue_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_EntitySetArray),'TEntityContainer_EntitySetArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_EntitySetArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_ActionImportArray),'TEntityContainer_ActionImportArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_ActionImportArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_FunctionImportArray),'TEntityContainer_FunctionImportArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_FunctionImportArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_SingletonArray),'TEntityContainer_SingletonArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_SingletonArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntityContainer_AnnotationArray),'TEntityContainer_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityContainer_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySet_NavigationPropertyBindingArray),'TEntitySet_NavigationPropertyBindingArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntitySet_NavigationPropertyBindingArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TEntitySet_AnnotationArray),'TEntitySet_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntitySet_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TSingleton_NavigationPropertyBindingArray),'TSingleton_NavigationPropertyBindingArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TSingleton_NavigationPropertyBindingArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TSingleton_AnnotationArray),'TSingleton_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TSingleton_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TActionImport_AnnotationArray),'TActionImport_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionImport_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TFunctionImport_AnnotationArray),'TFunctionImport_AnnotationArray');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImport_AnnotationArray)].RegisterExternalPropertyName(sARRAY_STYLE,sEmbedded);
|
|
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Schema)].RegisterExternalPropertyName('_Function','Function');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TDerivableTypeAttributes)].RegisterExternalPropertyName('_Abstract','Abstract');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType)].RegisterExternalPropertyName('_Property','Property');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TEntityType)].RegisterExternalPropertyName('_Abstract','Abstract');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType)].RegisterExternalPropertyName('_Property','Property');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TComplexType)].RegisterExternalPropertyName('_Abstract','Abstract');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCommonPropertyAttributes)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TProperty)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TNavigationProperty)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TReferentialConstraint)].RegisterExternalPropertyName('_Property','Property');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionReturnType)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionParameterAttributes)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TActionFunctionParameter)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTerm)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GExpression)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(GInlineExpressions)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('BinaryAtt','Binary');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('BoolAtt','Bool');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('DateAtt','Date');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('DateTimeOffsetAtt','DateTimeOffset');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('DecimalAtt','Decimal');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('DurationAtt','Duration');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('EnumMemberAtt','EnumMember');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('FloatAtt','Float');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('GuidAtt','Guid');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('IntAtt','Int');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('_StringAtt','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('TimeOfDayAtt','TimeOfDay');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('AnnotationPathAtt','AnnotationPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('NavigationPropertyPathAtt','NavigationPropertyPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('PathAtt','Path');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('PropertyPathAtt','PropertyPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(Annotation_Type)].RegisterExternalPropertyName('UrlRefAtt','UrlRef');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Function','Function');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TApplyExpression)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCastOrIsOfExpression)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TCollectionExpression)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TIfExpression)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TOneChildExpression)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TTwoChildrenExpression)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('BinaryAtt','Binary');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('BoolAtt','Bool');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('DateAtt','Date');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('DateTimeOffsetAtt','DateTimeOffset');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('DecimalAtt','Decimal');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('DurationAtt','Duration');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('EnumMemberAtt','EnumMember');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('FloatAtt','Float');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('GuidAtt','Guid');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('IntAtt','Int');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('_StringAtt','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('TimeOfDayAtt','TimeOfDay');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('AnnotationPathAtt','AnnotationPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('NavigationPropertyPathAtt','NavigationPropertyPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('PathAtt','Path');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('PropertyPathAtt','PropertyPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TLabeledElementExpression)].RegisterExternalPropertyName('UrlRefAtt','UrlRef');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TRecordExpression)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Property','Property');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_String','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_If','If');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_And','And');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Or','Or');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Not','Not');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_Record','Record');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('BinaryAtt','Binary');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('BoolAtt','Bool');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('DateAtt','Date');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('DateTimeOffsetAtt','DateTimeOffset');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('DecimalAtt','Decimal');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('DurationAtt','Duration');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('EnumMemberAtt','EnumMember');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('FloatAtt','Float');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('GuidAtt','Guid');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('IntAtt','Int');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('_StringAtt','String');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('TimeOfDayAtt','TimeOfDay');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('AnnotationPathAtt','AnnotationPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('NavigationPropertyPathAtt','NavigationPropertyPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('PathAtt','Path');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('PropertyPathAtt','PropertyPath');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TPropertyValue)].RegisterExternalPropertyName('UrlRefAtt','UrlRef');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TSingleton)].RegisterExternalPropertyName('_Type','Type');
|
|
typeRegistryInstance.ItemByTypeInfo[TypeInfo(TFunctionImport)].RegisterExternalPropertyName('_Function','Function');
|
|
|
|
|
|
End.
|