paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 13:10:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #0030379: detect circular refences

Browse Source 
git-svn-id: trunk@43143 -
This commit is contained in:
michael 2019-10-06 13:11:17 +00:00
parent 436d73c20f
commit 7e9e0e1965
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-db/src/base/datasource.inc
View File

@ -559,10 +559,21 @@ begin
end;
Function TDataSource.IsLinkedTo(ADataSet: TDataSet): Boolean;
Function TDataSource.IsLinkedTo(ADataset: TDataSet): Boolean;
var
DS: TDataSource;
begin
Result:=False;
Repeat
DS:=aDataset.GetDataSource;
Result:=(DS=Self);
if Assigned(DS) then
aDataSet := DS.DataSet
else
aDataSet := Nil;
Until Result or (aDataset=Nil)
end;
@ -615,6 +626,8 @@ begin
End;
If ADataset<>Nil Then
begin
if IsLinkedTo(aDataset) then
DatabaseError(SErrCircularDataSourceReferenceNotAllowed,Self);
FDataSet:=ADataset;
ADataset.RegisterDatasource(Self);
ProcessEvent(deUpdateState,0);

2
packages/fcl-db/src/base/db.pas
View File

@ -1926,7 +1926,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Edit;
function IsLinkedTo(ADataSet: TDataSet): Boolean;
function IsLinkedTo(ADataset: TDataSet): Boolean;
property State: TDataSetState read FState;
published
property AutoEdit: Boolean read FAutoEdit write FAutoEdit default True;