diff --git a/packages/fcl-db/src/base/sqltypes.pp b/packages/fcl-db/src/base/sqltypes.pp
index 81c3bb99c8..1e8b2d9d0a 100644
--- a/packages/fcl-db/src/base/sqltypes.pp
+++ b/packages/fcl-db/src/base/sqltypes.pp
@@ -28,6 +28,7 @@ type
     FSchemaName: String;
   public
     constructor Create(ACollection: TSqlObjectIdentifierList; Const AObjectName: String; Const ASchemaName: String = '');
+    function FullName: String;
     property SchemaName: String read FSchemaName write FSchemaName;
     property ObjectName: String read FObjectName write FObjectName;
   end;
@@ -49,14 +50,22 @@ implementation
 
 { TSqlObjectIdenfier }
 
-constructor TSqlObjectIdenfier.Create(ACollection: TSqlObjectIdentifierList;
-  const AObjectName: String; Const ASchemaName: String = '');
+constructor TSqlObjectIdenfier.Create(ACollection: TSqlObjectIdentifierList; const AObjectName: String; const ASchemaName: String = '');
+
 begin
   inherited Create(ACollection);
   FSchemaName:=ASchemaName;
   FObjectName:=AObjectName;
 end;
 
+function TSqlObjectIdenfier.FullName: String;
+
+begin
+  Result:=FObjectName;
+  if FSchemaName<>'' then
+    Result:=FSchemaName+'.'+FObjectName;
+end;
+
 { TSqlObjectIdentifierList }
 
 function TSqlObjectIdentifierList.GetIdentifier(Index: integer): TSqlObjectIdenfier;
@@ -82,5 +91,4 @@ begin
   Result.ObjectName:=AObjectName;
 end;
 
-
-end.
\ No newline at end of file
+end.