Browse Source

fcl-db: sqldb: cosmetic

git-svn-id: trunk@33078 -
lacak 9 years ago
parent
commit
b5ef41b2be
1 changed files with 27 additions and 25 deletions
  1. 27 25
      packages/fcl-db/src/sqldb/sqldb.pp

+ 27 - 25
packages/fcl-db/src/sqldb/sqldb.pp

@@ -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