1 { 2 This unit has been produced by ws_helper. 3 Input unit name : "edm". 4 This unit name : "edm". 5 Date : "27-5-16 21:52:37". 6 } 7 unit edm; 8 {$IFDEF FPC} 9 {$mode objfpc} {$H+} 10 {$ENDIF} 11 {$DEFINE WST_RECORD_RTTI} 12 interface 13 14 uses SysUtils, Classes, TypInfo, base_service_intf, service_intf; 15 16 const 17 sNAME_SPACE = 'http://docs.oasis-open.org/odata/ns/edm'; 18 sUNIT_NAME = 'edm'; 19 20 type 21 22 Schema_ComplexTypeArray = class; 23 Schema_EntityTypeArray = class; 24 Schema_TypeDefinitionArray = class; 25 Schema_EnumTypeArray = class; 26 Schema_ActionArray = class; 27 Schema__FunctionArray = class; 28 Schema_TermArray = class; 29 Schema_AnnotationsArray = class; 30 Schema_EntityContainerArray = class; 31 Schema_AnnotationArray = class; 32 Schema = class; 33 TTypeAttributes = class; 34 TDerivableTypeAttributes = class; 35 TEntityType_KeyArray = class; 36 TEntityType__PropertyArray = class; 37 TEntityType_NavigationPropertyArray = class; 38 TEntityType_AnnotationArray = class; 39 TEntityType = class; 40 TEntityKeyElement = class; 41 TPropertyRef = class; 42 TComplexType__PropertyArray = class; 43 TComplexType_NavigationPropertyArray = class; 44 TComplexType_AnnotationArray = class; 45 TComplexType = class; 46 TFacetAttributes = class; 47 TPropertyFacetAttributes = class; 48 TCommonPropertyAttributes = class; 49 TProperty_AnnotationArray = class; 50 TProperty = class; 51 TTypeDefinition_AnnotationArray = class; 52 TTypeDefinition = class; 53 TNavigationProperty_ReferentialConstraintArray = class; 54 TNavigationProperty_OnDeleteArray = class; 55 TNavigationProperty_AnnotationArray = class; 56 TNavigationProperty = class; 57 TReferentialConstraint_AnnotationArray = class; 58 TReferentialConstraint = class; 59 TOnDelete_AnnotationArray = class; 60 TOnDelete = class; 61 TEnumType_MemberArray = class; 62 TEnumType_AnnotationArray = class; 63 TEnumType = class; 64 TEnumTypeMember_AnnotationArray = class; 65 TEnumTypeMember = class; 66 TActionFunctionReturnType_AnnotationArray = class; 67 TActionFunctionReturnType = class; 68 TActionAttributes = class; 69 TAction_ParameterArray = class; 70 TAction_AnnotationArray = class; 71 TAction = class; 72 TFunctionAttributes = class; 73 TFunction_ParameterArray = class; 74 TFunction_AnnotationArray = class; 75 TFunction = class; 76 TActionFunctionParameterAttributes = class; 77 TActionFunctionParameter_AnnotationArray = class; 78 TActionFunctionParameter = class; 79 TTerm_AnnotationArray = class; 80 TTerm = class; 81 TAnnotations_AnnotationArray = class; 82 TAnnotations = class; 83 GExpression = class; 84 GInlineExpressions = class; 85 Annotation_AnnotationArray = class; 86 Annotation_Type = class; 87 TBinaryConstantExpression = class; 88 TBoolConstantExpression = class; 89 TDateConstantExpression = class; 90 TDateTimeOffsetConstantExpression = class; 91 TDecimalConstantExpression = class; 92 TDurationConstantExpression = class; 93 TFloatConstantExpression = class; 94 TGuidConstantExpression = class; 95 TIntConstantExpression = class; 96 TStringConstantExpression = class; 97 TTimeOfDayConstantExpression = class; 98 TApplyExpression_AnnotationArray = class; 99 TApplyExpression = class; 100 TCastOrIsOfExpression_AnnotationArray = class; 101 TCastOrIsOfExpression = class; 102 TCollectionExpression = class; 103 TIfExpression_AnnotationArray = class; 104 TIfExpression = class; 105 TOneChildExpression_AnnotationArray = class; 106 TOneChildExpression = class; 107 TTwoChildrenExpression_AnnotationArray = class; 108 TTwoChildrenExpression = class; 109 TLabeledElementExpression_AnnotationArray = class; 110 TLabeledElementExpression = class; 111 TLabeledElementReferenceExpression = class; 112 TNullExpression = class; 113 TPathExpression = class; 114 TRecordExpression_PropertyValueArray = class; 115 TRecordExpression_AnnotationArray = class; 116 TRecordExpression = class; 117 TPropertyValue_AnnotationArray = class; 118 TPropertyValue = class; 119 TEntityContainer_EntitySetArray = class; 120 TEntityContainer_ActionImportArray = class; 121 TEntityContainer_FunctionImportArray = class; 122 TEntityContainer_SingletonArray = class; 123 TEntityContainer_AnnotationArray = class; 124 TEntityContainer = class; 125 TEntitySetAttributes = class; 126 TEntitySet_NavigationPropertyBindingArray = class; 127 TEntitySet_AnnotationArray = class; 128 TEntitySet = class; 129 TNavigationPropertyBinding = class; 130 TSingleton_NavigationPropertyBindingArray = class; 131 TSingleton_AnnotationArray = class; 132 TSingleton = class; 133 TActionFunctionImportAttributes = class; 134 TActionImport_AnnotationArray = class; 135 TActionImport = class; 136 TFunctionImport_AnnotationArray = class; 137 TFunctionImport = class; 138 139 TAbstractType = ( 140 TAbstractType_Edm_ComplexType 141 ,TAbstractType_Edm_EntityType 142 ,TAbstractType_Edm_PrimitiveType 143 ,TAbstractType_Edm_Geography 144 ,TAbstractType_Edm_Geometry 145 ,TAbstractType_Edm_AnnotationPath 146 ,TAbstractType_Edm_NavigationPropertyPath 147 ,TAbstractType_Edm_PropertyPath 148 ,TAbstractType_Collection_Edm_ComplexType 149 ,TAbstractType_Collection_Edm_EntityType 150 ,TAbstractType_Collection_Edm_PrimitiveType 151 ,TAbstractType_Collection_Edm_Geography 152 ,TAbstractType_Collection_Edm_Geometry 153 ,TAbstractType_Collection_Edm_AnnotationPath 154 ,TAbstractType_Collection_Edm_NavigationPropertyPath 155 ,TAbstractType_Collection_Edm_PropertyPath 156 ); 157 158 TMax = ( 159 max 160 ); 161 162 TVariable = ( 163 variable 164 ); 165 166 TOnDeleteAction = ( 167 Cascade 168 ,None 169 ,SetDefault 170 ,SetNull 171 ); 172 173 TGuidLiteral = type UnicodeString; 174 175 TSimpleIdentifier = type NCName; 176 177 TNamespaceName = type NCName; 178 179 TQualifiedName = type NCName; 180 181 TEnumMemberList = type UnicodeString; 182 183 TTypeName = type UnicodeString; 184 185 TPath = type UnicodeString; 186 187 TPathWithTermSegments = type UnicodeString; 188 189 TClientFunction = type UnicodeString; 190 191 TPrimitiveType = type UnicodeString; 192 193 TAppliesTo = type UnicodeString; 194 195 TMaxLengthFacet = type UnicodeString; 196 197 TPrecisionFacet = type nonNegativeInteger; 198 199 TScaleFacet = type UnicodeString; 200 201 TSridFacet = type UnicodeString; 202 203 TUnicodeFacet = type boolean; 204 205 binary = type UnicodeString; 206 207 _boolean = type boolean; 208 209 date = type TDateRemotable; 210 211 time = type TTimeRemotable; 212 213 dateTimeStamp = type TDateTimeRemotable; 214 215 dayTimeDuration = type TDurationRemotable; 216 217 Schema = class(TBaseComplexRemotable) 218 private 219 FComplexType : Schema_ComplexTypeArray; 220 FEntityType : Schema_EntityTypeArray; 221 FTypeDefinition : Schema_TypeDefinitionArray; 222 FEnumType : Schema_EnumTypeArray; 223 FAction : Schema_ActionArray; 224 F_Function : Schema__FunctionArray; 225 FTerm : Schema_TermArray; 226 FAnnotations : Schema_AnnotationsArray; 227 FEntityContainer : Schema_EntityContainerArray; 228 FAnnotation : Schema_AnnotationArray; 229 FNamespace : TNamespaceName; 230 FAlias : TSimpleIdentifier; 231 private wstHas_ComplexTypenull232 function wstHas_ComplexType() : Boolean; wstHas_EntityTypenull233 function wstHas_EntityType() : Boolean; wstHas_TypeDefinitionnull234 function wstHas_TypeDefinition() : Boolean; wstHas_EnumTypenull235 function wstHas_EnumType() : Boolean; wstHas_Actionnull236 function wstHas_Action() : Boolean; wstHas__Functionnull237 function wstHas__Function() : Boolean; wstHas_Termnull238 function wstHas_Term() : Boolean; wstHas_Annotationsnull239 function wstHas_Annotations() : Boolean; wstHas_EntityContainernull240 function wstHas_EntityContainer() : Boolean; wstHas_Annotationnull241 function wstHas_Annotation() : Boolean; wstHas_Aliasnull242 function wstHas_Alias() : Boolean; 243 public 244 constructor Create();override; 245 procedure FreeObjectProperties();override; 246 published 247 property ComplexType : Schema_ComplexTypeArray read FComplexType write FComplexType stored wstHas_ComplexType; 248 property EntityType : Schema_EntityTypeArray read FEntityType write FEntityType stored wstHas_EntityType; 249 property TypeDefinition : Schema_TypeDefinitionArray read FTypeDefinition write FTypeDefinition stored wstHas_TypeDefinition; 250 property EnumType : Schema_EnumTypeArray read FEnumType write FEnumType stored wstHas_EnumType; 251 property Action : Schema_ActionArray read FAction write FAction stored wstHas_Action; 252 property _Function : Schema__FunctionArray read F_Function write F_Function stored wstHas__Function; 253 property Term : Schema_TermArray read FTerm write FTerm stored wstHas_Term; 254 property Annotations : Schema_AnnotationsArray read FAnnotations write FAnnotations stored wstHas_Annotations; 255 property EntityContainer : Schema_EntityContainerArray read FEntityContainer write FEntityContainer stored wstHas_EntityContainer; 256 property Annotation : Schema_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 257 property Namespace : TNamespaceName read FNamespace write FNamespace; 258 property Alias : TSimpleIdentifier read FAlias write FAlias stored wstHas_Alias; 259 end; 260 261 TTypeAttributes = class(TBaseComplexRemotable) 262 private 263 FName : TSimpleIdentifier; 264 published 265 property Name : TSimpleIdentifier read FName write FName; 266 end; 267 268 TDerivableTypeAttributes = class(TBaseComplexRemotable) 269 private 270 FBaseType : TQualifiedName; 271 F_Abstract : boolean; 272 FName : TSimpleIdentifier; 273 private wstHas_BaseTypenull274 function wstHas_BaseType() : Boolean; wstHas__Abstractnull275 function wstHas__Abstract() : Boolean; 276 published 277 property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType; 278 property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract; 279 property Name : TSimpleIdentifier read FName write FName; 280 end; 281 282 TEntityType = class(TBaseComplexRemotable) 283 private 284 FKey : TEntityType_KeyArray; 285 F_Property : TEntityType__PropertyArray; 286 FNavigationProperty : TEntityType_NavigationPropertyArray; 287 FAnnotation : TEntityType_AnnotationArray; 288 FOpenType : boolean; 289 FHasStream : boolean; 290 FBaseType : TQualifiedName; 291 F_Abstract : boolean; 292 FName : TSimpleIdentifier; 293 private wstHas_Keynull294 function wstHas_Key() : Boolean; wstHas__Propertynull295 function wstHas__Property() : Boolean; wstHas_NavigationPropertynull296 function wstHas_NavigationProperty() : Boolean; wstHas_Annotationnull297 function wstHas_Annotation() : Boolean; wstHas_OpenTypenull298 function wstHas_OpenType() : Boolean; wstHas_HasStreamnull299 function wstHas_HasStream() : Boolean; wstHas_BaseTypenull300 function wstHas_BaseType() : Boolean; wstHas__Abstractnull301 function wstHas__Abstract() : Boolean; 302 public 303 constructor Create();override; 304 procedure FreeObjectProperties();override; 305 published 306 property Key : TEntityType_KeyArray read FKey write FKey stored wstHas_Key; 307 property _Property : TEntityType__PropertyArray read F_Property write F_Property stored wstHas__Property; 308 property NavigationProperty : TEntityType_NavigationPropertyArray read FNavigationProperty write FNavigationProperty stored wstHas_NavigationProperty; 309 property Annotation : TEntityType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 310 property OpenType : boolean read FOpenType write FOpenType stored wstHas_OpenType; 311 property HasStream : boolean read FHasStream write FHasStream stored wstHas_HasStream; 312 property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType; 313 property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract; 314 property Name : TSimpleIdentifier read FName write FName; 315 end; 316 317 TPropertyRef = class(TBaseComplexRemotable) 318 private 319 FName : TPath; 320 FAlias : TSimpleIdentifier; 321 private wstHas_Aliasnull322 function wstHas_Alias() : Boolean; 323 published 324 property Name : TPath read FName write FName; 325 property Alias : TSimpleIdentifier read FAlias write FAlias stored wstHas_Alias; 326 end; 327 328 TComplexType = class(TBaseComplexRemotable) 329 private 330 F_Property : TComplexType__PropertyArray; 331 FNavigationProperty : TComplexType_NavigationPropertyArray; 332 FAnnotation : TComplexType_AnnotationArray; 333 FOpenType : boolean; 334 FBaseType : TQualifiedName; 335 F_Abstract : boolean; 336 FName : TSimpleIdentifier; 337 private wstHas__Propertynull338 function wstHas__Property() : Boolean; wstHas_NavigationPropertynull339 function wstHas_NavigationProperty() : Boolean; wstHas_Annotationnull340 function wstHas_Annotation() : Boolean; wstHas_OpenTypenull341 function wstHas_OpenType() : Boolean; wstHas_BaseTypenull342 function wstHas_BaseType() : Boolean; wstHas__Abstractnull343 function wstHas__Abstract() : Boolean; 344 public 345 constructor Create();override; 346 procedure FreeObjectProperties();override; 347 published 348 property _Property : TComplexType__PropertyArray read F_Property write F_Property stored wstHas__Property; 349 property NavigationProperty : TComplexType_NavigationPropertyArray read FNavigationProperty write FNavigationProperty stored wstHas_NavigationProperty; 350 property Annotation : TComplexType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 351 property OpenType : boolean read FOpenType write FOpenType stored wstHas_OpenType; 352 property BaseType : TQualifiedName read FBaseType write FBaseType stored wstHas_BaseType; 353 property _Abstract : boolean read F_Abstract write F_Abstract stored wstHas__Abstract; 354 property Name : TSimpleIdentifier read FName write FName; 355 end; 356 357 TFacetAttributes = class(TBaseComplexRemotable) 358 private 359 FMaxLength : TMaxLengthFacet; 360 FPrecision : TPrecisionFacet; 361 FScale : TScaleFacet; 362 FSRID : TSridFacet; 363 private wstHas_MaxLengthnull364 function wstHas_MaxLength() : Boolean; wstHas_Precisionnull365 function wstHas_Precision() : Boolean; wstHas_Scalenull366 function wstHas_Scale() : Boolean; wstHas_SRIDnull367 function wstHas_SRID() : Boolean; 368 published 369 property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength; 370 property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision; 371 property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale; 372 property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID; 373 end; 374 375 TPropertyFacetAttributes = class(TBaseComplexRemotable) 376 private 377 FUnicode : TUnicodeFacet; 378 private wstHas_Unicodenull379 function wstHas_Unicode() : Boolean; 380 published 381 property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode; 382 end; 383 384 TCommonPropertyAttributes = class(TBaseComplexRemotable) 385 private 386 FName : TSimpleIdentifier; 387 F_Type : TTypeName; 388 FNullable : boolean; 389 FDefaultValue : UnicodeString; 390 FMaxLength : TMaxLengthFacet; 391 FPrecision : TPrecisionFacet; 392 FScale : TScaleFacet; 393 FSRID : TSridFacet; 394 FUnicode : TUnicodeFacet; 395 private wstHas_Nullablenull396 function wstHas_Nullable() : Boolean; wstHas_DefaultValuenull397 function wstHas_DefaultValue() : Boolean; wstHas_MaxLengthnull398 function wstHas_MaxLength() : Boolean; wstHas_Precisionnull399 function wstHas_Precision() : Boolean; wstHas_Scalenull400 function wstHas_Scale() : Boolean; wstHas_SRIDnull401 function wstHas_SRID() : Boolean; wstHas_Unicodenull402 function wstHas_Unicode() : Boolean; 403 published 404 property Name : TSimpleIdentifier read FName write FName; 405 property _Type : TTypeName read F_Type write F_Type; 406 property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable; 407 property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue; 408 property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength; 409 property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision; 410 property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale; 411 property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID; 412 property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode; 413 end; 414 415 TProperty = class(TBaseComplexRemotable) 416 private 417 FAnnotation : TProperty_AnnotationArray; 418 FName : TSimpleIdentifier; 419 F_Type : TTypeName; 420 FNullable : boolean; 421 FDefaultValue : UnicodeString; 422 FMaxLength : TMaxLengthFacet; 423 FPrecision : TPrecisionFacet; 424 FScale : TScaleFacet; 425 FSRID : TSridFacet; 426 FUnicode : TUnicodeFacet; 427 private wstHas_Annotationnull428 function wstHas_Annotation() : Boolean; wstHas_Nullablenull429 function wstHas_Nullable() : Boolean; wstHas_DefaultValuenull430 function wstHas_DefaultValue() : Boolean; wstHas_MaxLengthnull431 function wstHas_MaxLength() : Boolean; wstHas_Precisionnull432 function wstHas_Precision() : Boolean; wstHas_Scalenull433 function wstHas_Scale() : Boolean; wstHas_SRIDnull434 function wstHas_SRID() : Boolean; wstHas_Unicodenull435 function wstHas_Unicode() : Boolean; 436 public 437 constructor Create();override; 438 procedure FreeObjectProperties();override; 439 published 440 property Annotation : TProperty_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 441 property Name : TSimpleIdentifier read FName write FName; 442 property _Type : TTypeName read F_Type write F_Type; 443 property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable; 444 property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue; 445 property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength; 446 property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision; 447 property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale; 448 property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID; 449 property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode; 450 end; 451 452 TTypeDefinition = class(TBaseComplexRemotable) 453 private 454 FAnnotation : TTypeDefinition_AnnotationArray; 455 FName : TSimpleIdentifier; 456 FUnderlyingType : TPrimitiveType; 457 FMaxLength : TMaxLengthFacet; 458 FPrecision : TPrecisionFacet; 459 FScale : TScaleFacet; 460 FSRID : TSridFacet; 461 FUnicode : TUnicodeFacet; 462 private wstHas_Annotationnull463 function wstHas_Annotation() : Boolean; wstHas_MaxLengthnull464 function wstHas_MaxLength() : Boolean; wstHas_Precisionnull465 function wstHas_Precision() : Boolean; wstHas_Scalenull466 function wstHas_Scale() : Boolean; wstHas_SRIDnull467 function wstHas_SRID() : Boolean; wstHas_Unicodenull468 function wstHas_Unicode() : Boolean; 469 public 470 constructor Create();override; 471 procedure FreeObjectProperties();override; 472 published 473 property Annotation : TTypeDefinition_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 474 property Name : TSimpleIdentifier read FName write FName; 475 property UnderlyingType : TPrimitiveType read FUnderlyingType write FUnderlyingType; 476 property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength; 477 property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision; 478 property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale; 479 property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID; 480 property Unicode : TUnicodeFacet read FUnicode write FUnicode stored wstHas_Unicode; 481 end; 482 483 TNavigationProperty = class(TBaseComplexRemotable) 484 private 485 FReferentialConstraint : TNavigationProperty_ReferentialConstraintArray; 486 FOnDelete : TNavigationProperty_OnDeleteArray; 487 FAnnotation : TNavigationProperty_AnnotationArray; 488 FName : TSimpleIdentifier; 489 F_Type : TTypeName; 490 FNullable : boolean; 491 FPartner : TPath; 492 FContainsTarget : boolean; 493 private wstHas_ReferentialConstraintnull494 function wstHas_ReferentialConstraint() : Boolean; wstHas_OnDeletenull495 function wstHas_OnDelete() : Boolean; wstHas_Annotationnull496 function wstHas_Annotation() : Boolean; wstHas_Nullablenull497 function wstHas_Nullable() : Boolean; wstHas_Partnernull498 function wstHas_Partner() : Boolean; wstHas_ContainsTargetnull499 function wstHas_ContainsTarget() : Boolean; 500 public 501 constructor Create();override; 502 procedure FreeObjectProperties();override; 503 published 504 property ReferentialConstraint : TNavigationProperty_ReferentialConstraintArray read FReferentialConstraint write FReferentialConstraint stored wstHas_ReferentialConstraint; 505 property OnDelete : TNavigationProperty_OnDeleteArray read FOnDelete write FOnDelete stored wstHas_OnDelete; 506 property Annotation : TNavigationProperty_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 507 property Name : TSimpleIdentifier read FName write FName; 508 property _Type : TTypeName read F_Type write F_Type; 509 property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable; 510 property Partner : TPath read FPartner write FPartner stored wstHas_Partner; 511 property ContainsTarget : boolean read FContainsTarget write FContainsTarget stored wstHas_ContainsTarget; 512 end; 513 514 TReferentialConstraint = class(TBaseComplexRemotable) 515 private 516 FAnnotation : TReferentialConstraint_AnnotationArray; 517 F_Property : TPath; 518 FReferencedProperty : TPath; 519 private wstHas_Annotationnull520 function wstHas_Annotation() : Boolean; 521 public 522 constructor Create();override; 523 procedure FreeObjectProperties();override; 524 published 525 property Annotation : TReferentialConstraint_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 526 property _Property : TPath read F_Property write F_Property; 527 property ReferencedProperty : TPath read FReferencedProperty write FReferencedProperty; 528 end; 529 530 TOnDelete = class(TBaseComplexRemotable) 531 private 532 FAnnotation : TOnDelete_AnnotationArray; 533 FAction : TOnDeleteAction; 534 private wstHas_Annotationnull535 function wstHas_Annotation() : Boolean; 536 public 537 constructor Create();override; 538 procedure FreeObjectProperties();override; 539 published 540 property Annotation : TOnDelete_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 541 property Action : TOnDeleteAction read FAction write FAction; 542 end; 543 544 TEnumType = class(TBaseComplexRemotable) 545 private 546 FMember : TEnumType_MemberArray; 547 FAnnotation : TEnumType_AnnotationArray; 548 FIsFlags : boolean; 549 FUnderlyingType : TTypeName; 550 FName : TSimpleIdentifier; 551 private wstHas_Membernull552 function wstHas_Member() : Boolean; wstHas_Annotationnull553 function wstHas_Annotation() : Boolean; wstHas_IsFlagsnull554 function wstHas_IsFlags() : Boolean; wstHas_UnderlyingTypenull555 function wstHas_UnderlyingType() : Boolean; 556 public 557 constructor Create();override; 558 procedure FreeObjectProperties();override; 559 published 560 property Member : TEnumType_MemberArray read FMember write FMember stored wstHas_Member; 561 property Annotation : TEnumType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 562 property IsFlags : boolean read FIsFlags write FIsFlags stored wstHas_IsFlags; 563 property UnderlyingType : TTypeName read FUnderlyingType write FUnderlyingType stored wstHas_UnderlyingType; 564 property Name : TSimpleIdentifier read FName write FName; 565 end; 566 567 TEnumTypeMember = class(TBaseComplexRemotable) 568 private 569 FAnnotation : TEnumTypeMember_AnnotationArray; 570 FName : TSimpleIdentifier; 571 FValue : Int64; 572 private wstHas_Annotationnull573 function wstHas_Annotation() : Boolean; wstHas_Valuenull574 function wstHas_Value() : Boolean; 575 public 576 constructor Create();override; 577 procedure FreeObjectProperties();override; 578 published 579 property Annotation : TEnumTypeMember_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 580 property Name : TSimpleIdentifier read FName write FName; 581 property Value : Int64 read FValue write FValue stored wstHas_Value; 582 end; 583 584 TActionFunctionReturnType = class(TBaseComplexRemotable) 585 private 586 FAnnotation : TActionFunctionReturnType_AnnotationArray; 587 F_Type : TTypeName; 588 FNullable : boolean; 589 FMaxLength : TMaxLengthFacet; 590 FPrecision : TPrecisionFacet; 591 FScale : TScaleFacet; 592 FSRID : TSridFacet; 593 private wstHas_Annotationnull594 function wstHas_Annotation() : Boolean; wstHas_Nullablenull595 function wstHas_Nullable() : Boolean; wstHas_MaxLengthnull596 function wstHas_MaxLength() : Boolean; wstHas_Precisionnull597 function wstHas_Precision() : Boolean; wstHas_Scalenull598 function wstHas_Scale() : Boolean; wstHas_SRIDnull599 function wstHas_SRID() : Boolean; 600 public 601 constructor Create();override; 602 procedure FreeObjectProperties();override; 603 published 604 property Annotation : TActionFunctionReturnType_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 605 property _Type : TTypeName read F_Type write F_Type; 606 property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable; 607 property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength; 608 property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision; 609 property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale; 610 property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID; 611 end; 612 613 TActionAttributes = class(TBaseComplexRemotable) 614 private 615 FName : TSimpleIdentifier; 616 FEntitySetPath : TPath; 617 FIsBound : boolean; 618 private wstHas_EntitySetPathnull619 function wstHas_EntitySetPath() : Boolean; wstHas_IsBoundnull620 function wstHas_IsBound() : Boolean; 621 published 622 property Name : TSimpleIdentifier read FName write FName; 623 property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath; 624 property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound; 625 end; 626 627 TAction = class(TBaseComplexRemotable) 628 private 629 FParameter : TAction_ParameterArray; 630 FAnnotation : TAction_AnnotationArray; 631 FReturnType : TActionFunctionReturnType; 632 FName : TSimpleIdentifier; 633 FEntitySetPath : TPath; 634 FIsBound : boolean; 635 private wstHas_Parameternull636 function wstHas_Parameter() : Boolean; wstHas_Annotationnull637 function wstHas_Annotation() : Boolean; wstHas_ReturnTypenull638 function wstHas_ReturnType() : Boolean; wstHas_EntitySetPathnull639 function wstHas_EntitySetPath() : Boolean; wstHas_IsBoundnull640 function wstHas_IsBound() : Boolean; 641 public 642 constructor Create();override; 643 procedure FreeObjectProperties();override; 644 published 645 property Parameter : TAction_ParameterArray read FParameter write FParameter stored wstHas_Parameter; 646 property Annotation : TAction_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 647 property ReturnType : TActionFunctionReturnType read FReturnType write FReturnType stored wstHas_ReturnType; 648 property Name : TSimpleIdentifier read FName write FName; 649 property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath; 650 property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound; 651 end; 652 653 TFunctionAttributes = class(TBaseComplexRemotable) 654 private 655 FName : TSimpleIdentifier; 656 FEntitySetPath : TPath; 657 FIsBound : boolean; 658 FIsComposable : boolean; 659 private wstHas_EntitySetPathnull660 function wstHas_EntitySetPath() : Boolean; wstHas_IsBoundnull661 function wstHas_IsBound() : Boolean; wstHas_IsComposablenull662 function wstHas_IsComposable() : Boolean; 663 published 664 property Name : TSimpleIdentifier read FName write FName; 665 property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath; 666 property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound; 667 property IsComposable : boolean read FIsComposable write FIsComposable stored wstHas_IsComposable; 668 end; 669 670 TFunction = class(TBaseComplexRemotable) 671 private 672 FParameter : TFunction_ParameterArray; 673 FAnnotation : TFunction_AnnotationArray; 674 FReturnType : TActionFunctionReturnType; 675 FName : TSimpleIdentifier; 676 FEntitySetPath : TPath; 677 FIsBound : boolean; 678 FIsComposable : boolean; 679 private wstHas_Parameternull680 function wstHas_Parameter() : Boolean; wstHas_Annotationnull681 function wstHas_Annotation() : Boolean; wstHas_EntitySetPathnull682 function wstHas_EntitySetPath() : Boolean; wstHas_IsBoundnull683 function wstHas_IsBound() : Boolean; wstHas_IsComposablenull684 function wstHas_IsComposable() : Boolean; 685 public 686 constructor Create();override; 687 procedure FreeObjectProperties();override; 688 published 689 property Parameter : TFunction_ParameterArray read FParameter write FParameter stored wstHas_Parameter; 690 property Annotation : TFunction_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 691 property ReturnType : TActionFunctionReturnType read FReturnType write FReturnType; 692 property Name : TSimpleIdentifier read FName write FName; 693 property EntitySetPath : TPath read FEntitySetPath write FEntitySetPath stored wstHas_EntitySetPath; 694 property IsBound : boolean read FIsBound write FIsBound stored wstHas_IsBound; 695 property IsComposable : boolean read FIsComposable write FIsComposable stored wstHas_IsComposable; 696 end; 697 698 TActionFunctionParameterAttributes = class(TBaseComplexRemotable) 699 private 700 FName : TSimpleIdentifier; 701 F_Type : TTypeName; 702 FNullable : boolean; 703 FMaxLength : TMaxLengthFacet; 704 FPrecision : TPrecisionFacet; 705 FScale : TScaleFacet; 706 FSRID : TSridFacet; 707 private wstHas_Nullablenull708 function wstHas_Nullable() : Boolean; wstHas_MaxLengthnull709 function wstHas_MaxLength() : Boolean; wstHas_Precisionnull710 function wstHas_Precision() : Boolean; wstHas_Scalenull711 function wstHas_Scale() : Boolean; wstHas_SRIDnull712 function wstHas_SRID() : Boolean; 713 published 714 property Name : TSimpleIdentifier read FName write FName; 715 property _Type : TTypeName read F_Type write F_Type; 716 property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable; 717 property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength; 718 property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision; 719 property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale; 720 property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID; 721 end; 722 723 TActionFunctionParameter = class(TBaseComplexRemotable) 724 private 725 FAnnotation : TActionFunctionParameter_AnnotationArray; 726 FName : TSimpleIdentifier; 727 F_Type : TTypeName; 728 FNullable : boolean; 729 FMaxLength : TMaxLengthFacet; 730 FPrecision : TPrecisionFacet; 731 FScale : TScaleFacet; 732 FSRID : TSridFacet; 733 private wstHas_Annotationnull734 function wstHas_Annotation() : Boolean; wstHas_Nullablenull735 function wstHas_Nullable() : Boolean; wstHas_MaxLengthnull736 function wstHas_MaxLength() : Boolean; wstHas_Precisionnull737 function wstHas_Precision() : Boolean; wstHas_Scalenull738 function wstHas_Scale() : Boolean; wstHas_SRIDnull739 function wstHas_SRID() : Boolean; 740 public 741 constructor Create();override; 742 procedure FreeObjectProperties();override; 743 published 744 property Annotation : TActionFunctionParameter_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 745 property Name : TSimpleIdentifier read FName write FName; 746 property _Type : TTypeName read F_Type write F_Type; 747 property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable; 748 property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength; 749 property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision; 750 property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale; 751 property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID; 752 end; 753 754 TTerm = class(TBaseComplexRemotable) 755 private 756 FAnnotation : TTerm_AnnotationArray; 757 FName : TSimpleIdentifier; 758 F_Type : TTypeName; 759 FBaseTerm : TQualifiedName; 760 FNullable : boolean; 761 FDefaultValue : UnicodeString; 762 FAppliesTo : TAppliesTo; 763 FMaxLength : TMaxLengthFacet; 764 FPrecision : TPrecisionFacet; 765 FScale : TScaleFacet; 766 FSRID : TSridFacet; 767 private wstHas_Annotationnull768 function wstHas_Annotation() : Boolean; wstHas_BaseTermnull769 function wstHas_BaseTerm() : Boolean; wstHas_Nullablenull770 function wstHas_Nullable() : Boolean; wstHas_DefaultValuenull771 function wstHas_DefaultValue() : Boolean; wstHas_AppliesTonull772 function wstHas_AppliesTo() : Boolean; wstHas_MaxLengthnull773 function wstHas_MaxLength() : Boolean; wstHas_Precisionnull774 function wstHas_Precision() : Boolean; wstHas_Scalenull775 function wstHas_Scale() : Boolean; wstHas_SRIDnull776 function wstHas_SRID() : Boolean; 777 public 778 constructor Create();override; 779 procedure FreeObjectProperties();override; 780 published 781 property Annotation : TTerm_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 782 property Name : TSimpleIdentifier read FName write FName; 783 property _Type : TTypeName read F_Type write F_Type; 784 property BaseTerm : TQualifiedName read FBaseTerm write FBaseTerm stored wstHas_BaseTerm; 785 property Nullable : boolean read FNullable write FNullable stored wstHas_Nullable; 786 property DefaultValue : UnicodeString read FDefaultValue write FDefaultValue stored wstHas_DefaultValue; 787 property AppliesTo : TAppliesTo read FAppliesTo write FAppliesTo stored wstHas_AppliesTo; 788 property MaxLength : TMaxLengthFacet read FMaxLength write FMaxLength stored wstHas_MaxLength; 789 property Precision : TPrecisionFacet read FPrecision write FPrecision stored wstHas_Precision; 790 property Scale : TScaleFacet read FScale write FScale stored wstHas_Scale; 791 property SRID : TSridFacet read FSRID write FSRID stored wstHas_SRID; 792 end; 793 794 TAnnotations = class(TBaseComplexRemotable) 795 private 796 FAnnotation : TAnnotations_AnnotationArray; 797 FTarget : TPath; 798 FQualifier : TSimpleIdentifier; 799 private wstHas_Qualifiernull800 function wstHas_Qualifier() : Boolean; 801 public 802 constructor Create();override; 803 procedure FreeObjectProperties();override; 804 published 805 property Annotation : TAnnotations_AnnotationArray read FAnnotation write FAnnotation; 806 property Target : TPath read FTarget write FTarget; 807 property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier; 808 end; 809 810 GExpression = class(TBaseComplexRemotable) 811 private 812 FBinary : TBinaryConstantExpression; 813 FBool : TBoolConstantExpression; 814 FDate : TDateConstantExpression; 815 FDateTimeOffset : TDateTimeOffsetConstantExpression; 816 FDecimal : TDecimalConstantExpression; 817 FDuration : TDurationConstantExpression; 818 FEnumMember : TEnumMemberList; 819 FFloat : TFloatConstantExpression; 820 FGuid : TGuidConstantExpression; 821 FInt : TIntConstantExpression; 822 F_String : TStringConstantExpression; 823 FTimeOfDay : TTimeOfDayConstantExpression; 824 FAnnotationPath : TPathExpression; 825 FApply : TApplyExpression; 826 FCast : TCastOrIsOfExpression; 827 FCollection : TCollectionExpression; 828 F_If : TIfExpression; 829 FEq : TTwoChildrenExpression; 830 FNe : TTwoChildrenExpression; 831 FGe : TTwoChildrenExpression; 832 FGt : TTwoChildrenExpression; 833 FLe : TTwoChildrenExpression; 834 FLt : TTwoChildrenExpression; 835 F_And : TTwoChildrenExpression; 836 F_Or : TTwoChildrenExpression; 837 F_Not : TOneChildExpression; 838 FIsOf : TCastOrIsOfExpression; 839 FLabeledElement : TLabeledElementExpression; 840 FLabeledElementReference : TLabeledElementReferenceExpression; 841 FNull : TNullExpression; 842 FNavigationPropertyPath : TPathExpression; 843 FPath : TPathExpression; 844 FPropertyPath : TPathExpression; 845 F_Record : TRecordExpression; 846 FUrlRef : TOneChildExpression; 847 private wstHas_Binarynull848 function wstHas_Binary() : Boolean; wstHas_Boolnull849 function wstHas_Bool() : Boolean; wstHas_Datenull850 function wstHas_Date() : Boolean; wstHas_DateTimeOffsetnull851 function wstHas_DateTimeOffset() : Boolean; wstHas_Decimalnull852 function wstHas_Decimal() : Boolean; wstHas_Durationnull853 function wstHas_Duration() : Boolean; wstHas_EnumMembernull854 function wstHas_EnumMember() : Boolean; wstHas_Floatnull855 function wstHas_Float() : Boolean; wstHas_Guidnull856 function wstHas_Guid() : Boolean; wstHas_Intnull857 function wstHas_Int() : Boolean; wstHas__Stringnull858 function wstHas__String() : Boolean; wstHas_TimeOfDaynull859 function wstHas_TimeOfDay() : Boolean; wstHas_AnnotationPathnull860 function wstHas_AnnotationPath() : Boolean; wstHas_Applynull861 function wstHas_Apply() : Boolean; wstHas_Castnull862 function wstHas_Cast() : Boolean; wstHas_Collectionnull863 function wstHas_Collection() : Boolean; wstHas__Ifnull864 function wstHas__If() : Boolean; wstHas_Eqnull865 function wstHas_Eq() : Boolean; wstHas_Nenull866 function wstHas_Ne() : Boolean; wstHas_Genull867 function wstHas_Ge() : Boolean; wstHas_Gtnull868 function wstHas_Gt() : Boolean; wstHas_Lenull869 function wstHas_Le() : Boolean; wstHas_Ltnull870 function wstHas_Lt() : Boolean; wstHas__Andnull871 function wstHas__And() : Boolean; wstHas__Ornull872 function wstHas__Or() : Boolean; wstHas__Notnull873 function wstHas__Not() : Boolean; wstHas_IsOfnull874 function wstHas_IsOf() : Boolean; wstHas_LabeledElementnull875 function wstHas_LabeledElement() : Boolean; wstHas_LabeledElementReferencenull876 function wstHas_LabeledElementReference() : Boolean; wstHas_Nullnull877 function wstHas_Null() : Boolean; wstHas_NavigationPropertyPathnull878 function wstHas_NavigationPropertyPath() : Boolean; wstHas_Pathnull879 function wstHas_Path() : Boolean; wstHas_PropertyPathnull880 function wstHas_PropertyPath() : Boolean; wstHas__Recordnull881 function wstHas__Record() : Boolean; wstHas_UrlRefnull882 function wstHas_UrlRef() : Boolean; 883 public 884 constructor Create();override; 885 procedure FreeObjectProperties();override; 886 published 887 property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary; 888 property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool; 889 property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date; 890 property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset; 891 property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal; 892 property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration; 893 property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember; 894 property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float; 895 property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid; 896 property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int; 897 property _String : TStringConstantExpression read F_String write F_String stored wstHas__String; 898 property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay; 899 property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath; 900 property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply; 901 property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast; 902 property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection; 903 property _If : TIfExpression read F_If write F_If stored wstHas__If; 904 property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq; 905 property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne; 906 property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge; 907 property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt; 908 property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le; 909 property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt; 910 property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And; 911 property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or; 912 property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not; 913 property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf; 914 property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement; 915 property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference; 916 property Null : TNullExpression read FNull write FNull stored wstHas_Null; 917 property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath; 918 property Path : TPathExpression read FPath write FPath stored wstHas_Path; 919 property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath; 920 property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record; 921 property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef; 922 end; 923 924 GInlineExpressions = class(TBaseComplexRemotable) 925 private 926 FBinary : edm.binary; 927 FBool : boolean; 928 FDate : TDateRemotable; 929 FDateTimeOffset : dateTimeStamp; 930 FDecimal : Currency; 931 FDuration : dayTimeDuration; 932 FEnumMember : TEnumMemberList; 933 FFloat : Double; 934 FGuid : TGuidLiteral; 935 FInt : integer; 936 F_String : UnicodeString; 937 FTimeOfDay : TTimeRemotable; 938 FAnnotationPath : TPathWithTermSegments; 939 FNavigationPropertyPath : TPathWithTermSegments; 940 FPath : TPathWithTermSegments; 941 FPropertyPath : TPathWithTermSegments; 942 FUrlRef : anyURI; 943 private wstHas_Binarynull944 function wstHas_Binary() : Boolean; wstHas_Boolnull945 function wstHas_Bool() : Boolean; wstHas_Datenull946 function wstHas_Date() : Boolean; wstHas_DateTimeOffsetnull947 function wstHas_DateTimeOffset() : Boolean; wstHas_Decimalnull948 function wstHas_Decimal() : Boolean; wstHas_Durationnull949 function wstHas_Duration() : Boolean; wstHas_EnumMembernull950 function wstHas_EnumMember() : Boolean; wstHas_Floatnull951 function wstHas_Float() : Boolean; wstHas_Guidnull952 function wstHas_Guid() : Boolean; wstHas_Intnull953 function wstHas_Int() : Boolean; wstHas__Stringnull954 function wstHas__String() : Boolean; wstHas_TimeOfDaynull955 function wstHas_TimeOfDay() : Boolean; wstHas_AnnotationPathnull956 function wstHas_AnnotationPath() : Boolean; wstHas_NavigationPropertyPathnull957 function wstHas_NavigationPropertyPath() : Boolean; wstHas_Pathnull958 function wstHas_Path() : Boolean; wstHas_PropertyPathnull959 function wstHas_PropertyPath() : Boolean; wstHas_UrlRefnull960 function wstHas_UrlRef() : Boolean; 961 public 962 constructor Create();override; 963 procedure FreeObjectProperties();override; 964 published 965 property Binary : edm.binary read FBinary write FBinary stored wstHas_Binary; 966 property Bool : boolean read FBool write FBool stored wstHas_Bool; 967 property Date : TDateRemotable read FDate write FDate stored wstHas_Date; 968 property DateTimeOffset : dateTimeStamp read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset; 969 property Decimal : Currency read FDecimal write FDecimal stored wstHas_Decimal; 970 property Duration : dayTimeDuration read FDuration write FDuration stored wstHas_Duration; 971 property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember; 972 property Float : Double read FFloat write FFloat stored wstHas_Float; 973 property Guid : TGuidLiteral read FGuid write FGuid stored wstHas_Guid; 974 property Int : integer read FInt write FInt stored wstHas_Int; 975 property _String : UnicodeString read F_String write F_String stored wstHas__String; 976 property TimeOfDay : TTimeRemotable read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay; 977 property AnnotationPath : TPathWithTermSegments read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath; 978 property NavigationPropertyPath : TPathWithTermSegments read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath; 979 property Path : TPathWithTermSegments read FPath write FPath stored wstHas_Path; 980 property PropertyPath : TPathWithTermSegments read FPropertyPath write FPropertyPath stored wstHas_PropertyPath; 981 property UrlRef : anyURI read FUrlRef write FUrlRef stored wstHas_UrlRef; 982 end; 983 984 Annotation_Type = class(TBaseComplexRemotable) 985 private 986 FAnnotation : Annotation_AnnotationArray; 987 FTerm : TQualifiedName; 988 FQualifier : TSimpleIdentifier; 989 FBinary : TBinaryConstantExpression; 990 FBool : TBoolConstantExpression; 991 FDate : TDateConstantExpression; 992 FDateTimeOffset : TDateTimeOffsetConstantExpression; 993 FDecimal : TDecimalConstantExpression; 994 FDuration : TDurationConstantExpression; 995 FEnumMember : TEnumMemberList; 996 FFloat : TFloatConstantExpression; 997 FGuid : TGuidConstantExpression; 998 FInt : TIntConstantExpression; 999 F_String : TStringConstantExpression; 1000 FTimeOfDay : TTimeOfDayConstantExpression; 1001 FAnnotationPath : TPathExpression; 1002 FApply : TApplyExpression; 1003 FCast : TCastOrIsOfExpression; 1004 FCollection : TCollectionExpression; 1005 F_If : TIfExpression; 1006 FEq : TTwoChildrenExpression; 1007 FNe : TTwoChildrenExpression; 1008 FGe : TTwoChildrenExpression; 1009 FGt : TTwoChildrenExpression; 1010 FLe : TTwoChildrenExpression; 1011 FLt : TTwoChildrenExpression; 1012 F_And : TTwoChildrenExpression; 1013 F_Or : TTwoChildrenExpression; 1014 F_Not : TOneChildExpression; 1015 FIsOf : TCastOrIsOfExpression; 1016 FLabeledElement : TLabeledElementExpression; 1017 FLabeledElementReference : TLabeledElementReferenceExpression; 1018 FNull : TNullExpression; 1019 FNavigationPropertyPath : TPathExpression; 1020 FPath : TPathExpression; 1021 FPropertyPath : TPathExpression; 1022 F_Record : TRecordExpression; 1023 FUrlRef : TOneChildExpression; 1024 FBinaryAtt : binary; 1025 FBoolAtt : boolean; 1026 FDateAtt : TDateRemotable; 1027 FDateTimeOffsetAtt : dateTimeStamp; 1028 FDecimalAtt : Currency; 1029 FDurationAtt : dayTimeDuration; 1030 FEnumMemberAtt : TEnumMemberList; 1031 FFloatAtt : Double; 1032 FGuidAtt : TGuidLiteral; 1033 FIntAtt : integer; 1034 F_StringAtt : UnicodeString; 1035 FTimeOfDayAtt : TTimeRemotable; 1036 FAnnotationPathAtt : TPathWithTermSegments; 1037 FNavigationPropertyPathAtt : TPathWithTermSegments; 1038 FPathAtt : TPathWithTermSegments; 1039 FPropertyPathAtt : TPathWithTermSegments; 1040 FUrlRefAtt : anyURI; 1041 private wstHas_Annotationnull1042 function wstHas_Annotation() : Boolean; wstHas_Qualifiernull1043 function wstHas_Qualifier() : Boolean; wstHas_Binarynull1044 function wstHas_Binary() : Boolean; wstHas_Boolnull1045 function wstHas_Bool() : Boolean; wstHas_Datenull1046 function wstHas_Date() : Boolean; wstHas_DateTimeOffsetnull1047 function wstHas_DateTimeOffset() : Boolean; wstHas_Decimalnull1048 function wstHas_Decimal() : Boolean; wstHas_Durationnull1049 function wstHas_Duration() : Boolean; wstHas_EnumMembernull1050 function wstHas_EnumMember() : Boolean; wstHas_Floatnull1051 function wstHas_Float() : Boolean; wstHas_Guidnull1052 function wstHas_Guid() : Boolean; wstHas_Intnull1053 function wstHas_Int() : Boolean; wstHas__Stringnull1054 function wstHas__String() : Boolean; wstHas_TimeOfDaynull1055 function wstHas_TimeOfDay() : Boolean; wstHas_AnnotationPathnull1056 function wstHas_AnnotationPath() : Boolean; wstHas_Applynull1057 function wstHas_Apply() : Boolean; wstHas_Castnull1058 function wstHas_Cast() : Boolean; wstHas_Collectionnull1059 function wstHas_Collection() : Boolean; wstHas__Ifnull1060 function wstHas__If() : Boolean; wstHas_Eqnull1061 function wstHas_Eq() : Boolean; wstHas_Nenull1062 function wstHas_Ne() : Boolean; wstHas_Genull1063 function wstHas_Ge() : Boolean; wstHas_Gtnull1064 function wstHas_Gt() : Boolean; wstHas_Lenull1065 function wstHas_Le() : Boolean; wstHas_Ltnull1066 function wstHas_Lt() : Boolean; wstHas__Andnull1067 function wstHas__And() : Boolean; wstHas__Ornull1068 function wstHas__Or() : Boolean; wstHas__Notnull1069 function wstHas__Not() : Boolean; wstHas_IsOfnull1070 function wstHas_IsOf() : Boolean; wstHas_LabeledElementnull1071 function wstHas_LabeledElement() : Boolean; wstHas_LabeledElementReferencenull1072 function wstHas_LabeledElementReference() : Boolean; wstHas_Nullnull1073 function wstHas_Null() : Boolean; wstHas_NavigationPropertyPathnull1074 function wstHas_NavigationPropertyPath() : Boolean; wstHas_Pathnull1075 function wstHas_Path() : Boolean; wstHas_PropertyPathnull1076 function wstHas_PropertyPath() : Boolean; wstHas__Recordnull1077 function wstHas__Record() : Boolean; wstHas_UrlRefnull1078 function wstHas_UrlRef() : Boolean; wstHas_BinaryAttnull1079 function wstHas_BinaryAtt() : Boolean; wstHas_BoolAttnull1080 function wstHas_BoolAtt() : Boolean; wstHas_DateAttnull1081 function wstHas_DateAtt() : Boolean; wstHas_DateTimeOffsetAttnull1082 function wstHas_DateTimeOffsetAtt() : Boolean; wstHas_DecimalAttnull1083 function wstHas_DecimalAtt() : Boolean; wstHas_DurationAttnull1084 function wstHas_DurationAtt() : Boolean; wstHas_EnumMemberAttnull1085 function wstHas_EnumMemberAtt() : Boolean; wstHas_FloatAttnull1086 function wstHas_FloatAtt() : Boolean; wstHas_GuidAttnull1087 function wstHas_GuidAtt() : Boolean; wstHas_IntAttnull1088 function wstHas_IntAtt() : Boolean; wstHas__StringAttnull1089 function wstHas__StringAtt() : Boolean; wstHas_TimeOfDayAttnull1090 function wstHas_TimeOfDayAtt() : Boolean; wstHas_AnnotationPathAttnull1091 function wstHas_AnnotationPathAtt() : Boolean; wstHas_NavigationPropertyPathAttnull1092 function wstHas_NavigationPropertyPathAtt() : Boolean; wstHas_PathAttnull1093 function wstHas_PathAtt() : Boolean; wstHas_PropertyPathAttnull1094 function wstHas_PropertyPathAtt() : Boolean; wstHas_UrlRefAttnull1095 function wstHas_UrlRefAtt() : Boolean; 1096 public 1097 constructor Create();override; 1098 procedure FreeObjectProperties();override; 1099 published 1100 property Annotation : Annotation_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 1101 property Term : TQualifiedName read FTerm write FTerm; 1102 property Qualifier : TSimpleIdentifier read FQualifier write FQualifier stored wstHas_Qualifier; 1103 property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary; 1104 property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool; 1105 property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date; 1106 property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset; 1107 property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal; 1108 property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration; 1109 property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember; 1110 property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float; 1111 property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid; 1112 property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int; 1113 property _String : TStringConstantExpression read F_String write F_String stored wstHas__String; 1114 property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay; 1115 property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath; 1116 property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply; 1117 property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast; 1118 property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection; 1119 property _If : TIfExpression read F_If write F_If stored wstHas__If; 1120 property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq; 1121 property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne; 1122 property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge; 1123 property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt; 1124 property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le; 1125 property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt; 1126 property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And; 1127 property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or; 1128 property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not; 1129 property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf; 1130 property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement; 1131 property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference; 1132 property Null : TNullExpression read FNull write FNull stored wstHas_Null; 1133 property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath; 1134 property Path : TPathExpression read FPath write FPath stored wstHas_Path; 1135 property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath; 1136 property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record; 1137 property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef; 1138 property BinaryAtt : binary read FBinaryAtt write FBinaryAtt stored wstHas_BinaryAtt; 1139 property BoolAtt : boolean read FBoolAtt write FBoolAtt stored wstHas_BoolAtt; 1140 property DateAtt : TDateRemotable read FDateAtt write FDateAtt stored wstHas_DateAtt; 1141 property DateTimeOffsetAtt : dateTimeStamp read FDateTimeOffsetAtt write FDateTimeOffsetAtt stored wstHas_DateTimeOffsetAtt; 1142 property DecimalAtt : Currency read FDecimalAtt write FDecimalAtt stored wstHas_DecimalAtt; 1143 property DurationAtt : dayTimeDuration read FDurationAtt write FDurationAtt stored wstHas_DurationAtt; 1144 property EnumMemberAtt : TEnumMemberList read FEnumMemberAtt write FEnumMemberAtt stored wstHas_EnumMemberAtt; 1145 property FloatAtt : Double read FFloatAtt write FFloatAtt stored wstHas_FloatAtt; 1146 property GuidAtt : TGuidLiteral read FGuidAtt write FGuidAtt stored wstHas_GuidAtt; 1147 property IntAtt : integer read FIntAtt write FIntAtt stored wstHas_IntAtt; 1148 property _StringAtt : UnicodeString read F_StringAtt write F_StringAtt stored wstHas__StringAtt; 1149 property TimeOfDayAtt : TTimeRemotable read FTimeOfDayAtt write FTimeOfDayAtt stored wstHas_TimeOfDayAtt; 1150 property AnnotationPathAtt : TPathWithTermSegments read FAnnotationPathAtt write FAnnotationPathAtt stored wstHas_AnnotationPathAtt; 1151 property NavigationPropertyPathAtt : TPathWithTermSegments read FNavigationPropertyPathAtt write FNavigationPropertyPathAtt stored wstHas_NavigationPropertyPathAtt; 1152 property PathAtt : TPathWithTermSegments read FPathAtt write FPathAtt stored wstHas_PathAtt; 1153 property PropertyPathAtt : TPathWithTermSegments read FPropertyPathAtt write FPropertyPathAtt stored wstHas_PropertyPathAtt; 1154 property UrlRefAtt : anyURI read FUrlRefAtt write FUrlRefAtt stored wstHas_UrlRefAtt; 1155 end; 1156 1157 TBinaryConstantExpression = class(TComplexUnicodeStringContentRemotable) 1158 end; 1159 1160 TBoolConstantExpression = class(TComplexBooleanContentRemotable) 1161 end; 1162 1163 TDateConstantExpression = class(date) 1164 end; 1165 1166 TDateTimeOffsetConstantExpression = class(dateTimeStamp) 1167 end; 1168 1169 TDecimalConstantExpression = class(TComplexCurrencyContentRemotable) 1170 end; 1171 1172 TDurationConstantExpression = class(dayTimeDuration) 1173 end; 1174 1175 TFloatConstantExpression = class(TComplexFloatDoubleContentRemotable) 1176 end; 1177 1178 TGuidConstantExpression = class(TComplexUnicodeStringContentRemotable) 1179 end; 1180 1181 TIntConstantExpression = class(TComplexInt32SContentRemotable) 1182 end; 1183 1184 TStringConstantExpression = class(TComplexUnicodeStringContentRemotable) 1185 end; 1186 1187 TTimeOfDayConstantExpression = class(time) 1188 end; 1189 1190 TApplyExpression = class(TBaseComplexRemotable) 1191 private 1192 FAnnotation : TApplyExpression_AnnotationArray; 1193 F_Function : TClientFunction; 1194 FBinary : TBinaryConstantExpression; 1195 FBool : TBoolConstantExpression; 1196 FDate : TDateConstantExpression; 1197 FDateTimeOffset : TDateTimeOffsetConstantExpression; 1198 FDecimal : TDecimalConstantExpression; 1199 FDuration : TDurationConstantExpression; 1200 FEnumMember : TEnumMemberList; 1201 FFloat : TFloatConstantExpression; 1202 FGuid : TGuidConstantExpression; 1203 FInt : TIntConstantExpression; 1204 F_String : TStringConstantExpression; 1205 FTimeOfDay : TTimeOfDayConstantExpression; 1206 FAnnotationPath : TPathExpression; 1207 FApply : TApplyExpression; 1208 FCast : TCastOrIsOfExpression; 1209 FCollection : TCollectionExpression; 1210 F_If : TIfExpression; 1211 FEq : TTwoChildrenExpression; 1212 FNe : TTwoChildrenExpression; 1213 FGe : TTwoChildrenExpression; 1214 FGt : TTwoChildrenExpression; 1215 FLe : TTwoChildrenExpression; 1216 FLt : TTwoChildrenExpression; 1217 F_And : TTwoChildrenExpression; 1218 F_Or : TTwoChildrenExpression; 1219 F_Not : TOneChildExpression; 1220 FIsOf : TCastOrIsOfExpression; 1221 FLabeledElement : TLabeledElementExpression; 1222 FLabeledElementReference : TLabeledElementReferenceExpression; 1223 FNull : TNullExpression; 1224 FNavigationPropertyPath : TPathExpression; 1225 FPath : TPathExpression; 1226 FPropertyPath : TPathExpression; 1227 F_Record : TRecordExpression; 1228 FUrlRef : TOneChildExpression; 1229 private wstHas_Annotationnull1230 function wstHas_Annotation() : Boolean; wstHas__Functionnull1231 function wstHas__Function() : Boolean; wstHas_Binarynull1232 function wstHas_Binary() : Boolean; wstHas_Boolnull1233 function wstHas_Bool() : Boolean; wstHas_Datenull1234 function wstHas_Date() : Boolean; wstHas_DateTimeOffsetnull1235 function wstHas_DateTimeOffset() : Boolean; wstHas_Decimalnull1236 function wstHas_Decimal() : Boolean; wstHas_Durationnull1237 function wstHas_Duration() : Boolean; wstHas_EnumMembernull1238 function wstHas_EnumMember() : Boolean; wstHas_Floatnull1239 function wstHas_Float() : Boolean; wstHas_Guidnull1240 function wstHas_Guid() : Boolean; wstHas_Intnull1241 function wstHas_Int() : Boolean; wstHas__Stringnull1242 function wstHas__String() : Boolean; wstHas_TimeOfDaynull1243 function wstHas_TimeOfDay() : Boolean; wstHas_AnnotationPathnull1244 function wstHas_AnnotationPath() : Boolean; wstHas_Applynull1245 function wstHas_Apply() : Boolean; wstHas_Castnull1246 function wstHas_Cast() : Boolean; wstHas_Collectionnull1247 function wstHas_Collection() : Boolean; wstHas__Ifnull1248 function wstHas__If() : Boolean; wstHas_Eqnull1249 function wstHas_Eq() : Boolean; wstHas_Nenull1250 function wstHas_Ne() : Boolean; wstHas_Genull1251 function wstHas_Ge() : Boolean; wstHas_Gtnull1252 function wstHas_Gt() : Boolean; wstHas_Lenull1253 function wstHas_Le() : Boolean; wstHas_Ltnull1254 function wstHas_Lt() : Boolean; wstHas__Andnull1255 function wstHas__And() : Boolean; wstHas__Ornull1256 function wstHas__Or() : Boolean; wstHas__Notnull1257 function wstHas__Not() : Boolean; wstHas_IsOfnull1258 function wstHas_IsOf() : Boolean; wstHas_LabeledElementnull1259 function wstHas_LabeledElement() : Boolean; wstHas_LabeledElementReferencenull1260 function wstHas_LabeledElementReference() : Boolean; wstHas_Nullnull1261 function wstHas_Null() : Boolean; wstHas_NavigationPropertyPathnull1262 function wstHas_NavigationPropertyPath() : Boolean; wstHas_Pathnull1263 function wstHas_Path() : Boolean; wstHas_PropertyPathnull1264 function wstHas_PropertyPath() : Boolean; wstHas__Recordnull1265 function wstHas__Record() : Boolean; wstHas_UrlRefnull1266 function wstHas_UrlRef() : Boolean; 1267 public 1268 constructor Create();override; 1269 procedure FreeObjectProperties();override; 1270 published 1271 property Annotation : TApplyExpression_AnnotationArray read FAnnotation write FAnnotation stored wstHas_Annotation; 1272 property _Function : TClientFunction read F_Function write F_Function stored wstHas__Function; 1273 property Binary : TBinaryConstantExpression read FBinary write FBinary stored wstHas_Binary; 1274 property Bool : TBoolConstantExpression read FBool write FBool stored wstHas_Bool; 1275 property Date : TDateConstantExpression read FDate write FDate stored wstHas_Date; 1276 property DateTimeOffset : TDateTimeOffsetConstantExpression read FDateTimeOffset write FDateTimeOffset stored wstHas_DateTimeOffset; 1277 property Decimal : TDecimalConstantExpression read FDecimal write FDecimal stored wstHas_Decimal; 1278 property Duration : TDurationConstantExpression read FDuration write FDuration stored wstHas_Duration; 1279 property EnumMember : TEnumMemberList read FEnumMember write FEnumMember stored wstHas_EnumMember; 1280 property Float : TFloatConstantExpression read FFloat write FFloat stored wstHas_Float; 1281 property Guid : TGuidConstantExpression read FGuid write FGuid stored wstHas_Guid; 1282 property Int : TIntConstantExpression read FInt write FInt stored wstHas_Int; 1283 property _String : TStringConstantExpression read F_String write F_String stored wstHas__String; 1284 property TimeOfDay : TTimeOfDayConstantExpression read FTimeOfDay write FTimeOfDay stored wstHas_TimeOfDay; 1285 property AnnotationPath : TPathExpression read FAnnotationPath write FAnnotationPath stored wstHas_AnnotationPath; 1286 property Apply : TApplyExpression read FApply write FApply stored wstHas_Apply; 1287 property Cast : TCastOrIsOfExpression read FCast write FCast stored wstHas_Cast; 1288 property Collection : TCollectionExpression read FCollection write FCollection stored wstHas_Collection; 1289 property _If : TIfExpression read F_If write F_If stored wstHas__If; 1290 property Eq : TTwoChildrenExpression read FEq write FEq stored wstHas_Eq; 1291 property Ne : TTwoChildrenExpression read FNe write FNe stored wstHas_Ne; 1292 property Ge : TTwoChildrenExpression read FGe write FGe stored wstHas_Ge; 1293 property Gt : TTwoChildrenExpression read FGt write FGt stored wstHas_Gt; 1294 property Le : TTwoChildrenExpression read FLe write FLe stored wstHas_Le; 1295 property Lt : TTwoChildrenExpression read FLt write FLt stored wstHas_Lt; 1296 property _And : TTwoChildrenExpression read F_And write F_And stored wstHas__And; 1297 property _Or : TTwoChildrenExpression read F_Or write F_Or stored wstHas__Or; 1298 property _Not : TOneChildExpression read F_Not write F_Not stored wstHas__Not; 1299 property IsOf : TCastOrIsOfExpression read FIsOf write FIsOf stored wstHas_IsOf; 1300 property LabeledElement : TLabeledElementExpression read FLabeledElement write FLabeledElement stored wstHas_LabeledElement; 1301 property LabeledElementReference : TLabeledElementReferenceExpression read FLabeledElementReference write FLabeledElementReference stored wstHas_LabeledElementReference; 1302 property Null : TNullExpression read FNull write FNull stored wstHas_Null; 1303 property NavigationPropertyPath : TPathExpression read FNavigationPropertyPath write FNavigationPropertyPath stored wstHas_NavigationPropertyPath; 1304 property Path : TPathExpression read FPath write FPath stored wstHas_Path; 1305 property PropertyPath : TPathExpression read FPropertyPath write FPropertyPath stored wstHas_PropertyPath; 1306 property _Record : TRecordExpression read F_Record write F_Record stored wstHas__Record; 1307 property UrlRef : TOneChildExpression read FUrlRef write FUrlRef stored wstHas_UrlRef; 1308 end; 1309 1310 TCastOrIsOfExpression = class(TBaseComplexRemotable) 1311 private 1312 FAnnotation : TCastOrIsOfExpression_AnnotationArray; 1313 F_Type : TTypeName; 1314 FBinary : TBinaryConstantExpression; 1315 FBool : TBoolConstantExpression; 1316 FDate : TDateConstantExpression; 1317 FDateTimeOffset : TDateTimeOffsetConstantExpression; 1318 FDecimal : TDecimalConstantExpression; 1319 FDuration : TDurationConstantExpression; 1320 FEnumMember : TEnumMemberList; 1321 FFloat : TFloatConstantExpression; 1322 FGuid : TGuidConstantExpression; 1323 FInt : TIntConstantExpression; 1324 F_String : TStringConstantExpression; 1325 FTimeOfDay : TTimeOfDayConstantExpression; 1326 FAnnotationPath : TPathExpression; 1327 FApply : TApplyExpression; 1328 FCast : TCastOrIsOfExpression; 1329 FCollection : TCollectionExpression; 1330 F_If : TIfExpression; 1331 FEq : TTwoChildrenExpression; 1332 FNe : TTwoChildrenExpression; 1333 FGe : TTwoChildrenExpression; 1334 FGt : TTwoChildrenExpression; 1335 FLe : TTwoChildrenExpression; 1336 FLt : TTwoChildrenExpression; 1337 F_And : TTwoChildrenExpression; 1338 F_Or : TTwoChildrenExpression; 1339 F_Not : TOneChildExpression; 1340 FIsOf : TCastOrIsOfExpression; 1341 FLabeledElement : TLabeledElementExpression; 1342 FLabeledElementReference : TLabeledElementReferenceExpression; 1343 FNull : TNullExpression; 1344 FNavigationPropertyPath : TPathExpression; 1345 FPath : TPathExpression; 1346 FPropertyPath : TPathExpression; 1347 F_Record : TRecordExpression; 1348 FUrlRef : TOneChildExpression; 1349 FMaxLength : TMaxLengthFacet; 1350 FPrecision : TPrecisionFacet; 1351 FScale : TScaleFacet; 1352 FSRID : TSridFacet; 1353 private wstHas_Annotationnull1354 function wstHas_Annotation() : Boolean; wstHas__Typenull1355 function wstHas__Type() : Boolean; wstHas_Binarynull1356 function wstHas_Binary() : Boolean; wstHas_Boolnull1357 function wstHas_Bool() : Boolean; wstHas_Datenull1358 function wstHas_Date() : Boolean; wstHas_DateTimeOffsetnull1359 function wstHas_DateTimeOffset() : Boolean; wstHas_Decimalnull1360 function wstHas_Decimal() : Boolean; wstHas_Durationnull1361 function wstHas_Duration() : Boolean; wstHas_EnumMembernull1362 function wstHas_EnumMember() : Boolean; wstHas_Floatnull1363 function wstHas_Float() : Boolean; wstHas_Guidnull1364 function wstHas_Guid() : Boolean; wstHas_Intnull1365 function wstHas_Int() : Boolean; wstHas__Stringnull1366 function wstHas__String() : Boolean; wstHas_TimeOfDaynull1367 function wstHas_TimeOfDay() : Boolean; wstHas_AnnotationPathnull1368 function wstHas_AnnotationPath() : Boolean; wstHas_Applynull1369 function wstHas_Apply() : Boolean; wstHas_Castnull1370 function wstHas_Cast() : Boolean; wstHas_Collectionnull1371 function wstHas_Collection() : Boolean; wstHas__Ifnull1372 function wstHas__If() : Boolean; wstHas_Eqnull1373 function wstHas_Eq() : Boolean; wstHas_Nenull1374 function wstHas_Ne() : Boolean; wstHas_Genull1375 function wstHas_Ge() : Boolean; wstHas_Gtnull1376 function wstHas_Gt() : Boolean; wstHas_Lenull1377 function wstHas_Le() : Boolean; wstHas_Ltnull1378