* Added check for circular datasource reference

git-svn-id: trunk@8167 -

packages/fcl-db/src/dbconst.pas

@@ -95,7 +95,8 @@ Resourcestring
   SNoFieldIndexes          = 'No index currently active';
   SNotIndexField           = 'Field ''%s'' is not indexed and cannot be modified';
   SErrUnknownConnectorType = 'Unknown connector type';
-
+  SErrCircularDataSourceReferenceNotAllowed = 'Circular datasource references are not allowed.';
+  
 
 Implementation
 

packages/fcl-db/src/sqldb/sqldb.pp

@@ -1413,6 +1413,8 @@ begin
   DS:=DataSource;
   If (AValue<>DS) then
     begin
+    If (AValue.Dataset=Self) then
+      DatabaseError(SErrCircularDataSourceReferenceNotAllowed,Self);
     If Assigned(DS) then
       DS.RemoveFreeNotification(Self);
     If Assigned(AValue) then