mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-16 00:18:29 +02:00
47 lines
926 B
ObjectPascal
47 lines
926 B
ObjectPascal
{
|
|
This unit has been produced by ws_helper.
|
|
Input unit name : "System_Data_Resources_AnnotationSchema".
|
|
This unit name : "ras".
|
|
Date : "12-5-16 15:37:59".
|
|
}
|
|
unit ras;
|
|
{$IFDEF FPC}
|
|
{$mode objfpc} {$H+}
|
|
{$ENDIF}
|
|
{$DEFINE WST_RECORD_RTTI}
|
|
interface
|
|
|
|
uses SysUtils, Classes, TypInfo, base_service_intf, service_intf;
|
|
|
|
const
|
|
sNAME_SPACE = 'http://schemas.microsoft.com/ado/2009/02/edm/annotation';
|
|
sUNIT_NAME = 'System_Data_Resources_AnnotationSchema';
|
|
|
|
type
|
|
|
|
|
|
TStoreGeneratedPattern = (
|
|
None
|
|
,Identity
|
|
,Computed
|
|
);
|
|
|
|
StoreGeneratedPattern_Type = TStoreGeneratedPattern;
|
|
|
|
LazyLoadingEnabled_Type = boolean;
|
|
|
|
Implementation
|
|
uses metadata_repository, record_rtti;
|
|
|
|
|
|
var
|
|
typeRegistryInstance : TTypeRegistry = nil;
|
|
initialization
|
|
typeRegistryInstance := GetTypeRegistry();
|
|
|
|
typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(TStoreGeneratedPattern),'TStoreGeneratedPattern');
|
|
|
|
|
|
|
|
End.
|