|
@@ -819,31 +819,6 @@ begin
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
-{ TSqlObjectIdentifierList }
|
|
|
|
-
|
|
|
|
-function TSqlObjectIdentifierList.GetIdentifier(Index: integer): TSqlObjectIdenfier;
|
|
|
|
-begin
|
|
|
|
- Result := Items[Index] as TSqlObjectIdenfier;
|
|
|
|
-end;
|
|
|
|
-
|
|
|
|
-procedure TSqlObjectIdentifierList.SetIdentifier(Index: integer; AValue: TSqlObjectIdenfier);
|
|
|
|
-begin
|
|
|
|
- Items[Index] := AValue;
|
|
|
|
-end;
|
|
|
|
-
|
|
|
|
-function TSqlObjectIdentifierList.AddIdentifier: TSqlObjectIdenfier;
|
|
|
|
-begin
|
|
|
|
- Result:=Add as TSqlObjectIdenfier;
|
|
|
|
-end;
|
|
|
|
-
|
|
|
|
-function TSqlObjectIdentifierList.AddIdentifier(Const AObjectName: String;
|
|
|
|
- Const ASchemaName: String = ''): TSqlObjectIdenfier;
|
|
|
|
-begin
|
|
|
|
- Result:=AddIdentifier();
|
|
|
|
- Result.SchemaName:=ASchemaName;
|
|
|
|
- Result.ObjectName:=AObjectName;
|
|
|
|
-end;
|
|
|
|
-
|
|
|
|
{ TSQLDBFieldDefs }
|
|
{ TSQLDBFieldDefs }
|
|
|
|
|
|
class function TSQLDBFieldDefs.FieldDefClass: TFieldDefClass;
|
|
class function TSQLDBFieldDefs.FieldDefClass: TFieldDefClass;
|
|
@@ -3647,6 +3622,7 @@ begin
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+
|
|
{ TSqlObjectIdenfier }
|
|
{ TSqlObjectIdenfier }
|
|
|
|
|
|
constructor TSqlObjectIdenfier.Create(ACollection: TSqlObjectIdentifierList;
|
|
constructor TSqlObjectIdenfier.Create(ACollection: TSqlObjectIdentifierList;
|
|
@@ -3657,6 +3633,32 @@ begin
|
|
FObjectName:=AObjectName;
|
|
FObjectName:=AObjectName;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+{ TSqlObjectIdentifierList }
|
|
|
|
+
|
|
|
|
+function TSqlObjectIdentifierList.GetIdentifier(Index: integer): TSqlObjectIdenfier;
|
|
|
|
+begin
|
|
|
|
+ Result := Items[Index] as TSqlObjectIdenfier;
|
|
|
|
+end;
|
|
|
|
+
|
|
|
|
+procedure TSqlObjectIdentifierList.SetIdentifier(Index: integer; AValue: TSqlObjectIdenfier);
|
|
|
|
+begin
|
|
|
|
+ Items[Index] := AValue;
|
|
|
|
+end;
|
|
|
|
+
|
|
|
|
+function TSqlObjectIdentifierList.AddIdentifier: TSqlObjectIdenfier;
|
|
|
|
+begin
|
|
|
|
+ Result:=Add as TSqlObjectIdenfier;
|
|
|
|
+end;
|
|
|
|
+
|
|
|
|
+function TSqlObjectIdentifierList.AddIdentifier(Const AObjectName: String;
|
|
|
|
+ Const ASchemaName: String = ''): TSqlObjectIdenfier;
|
|
|
|
+begin
|
|
|
|
+ Result:=AddIdentifier();
|
|
|
|
+ Result.SchemaName:=ASchemaName;
|
|
|
|
+ Result.ObjectName:=AObjectName;
|
|
|
|
+end;
|
|
|
|
+
|
|
|
|
+
|
|
Initialization
|
|
Initialization
|
|
|
|
|
|
Finalization
|
|
Finalization
|