paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #26117, as proposed by reporter

Browse Source 
git-svn-id: trunk@27747 -
This commit is contained in:
michael 2014-05-10 14:45:03 +00:00
parent eb32f7bc2e
commit c861384366
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/export/fpdbexport.pp
View File

@ -456,7 +456,8 @@ begin
If (FDataset<>Nil) then
FDataset.RemoveFreeNotification(Self);
FDataset:=AValue;
FDataset.FreeNotification(Self);
if (FDataset<>Nil) then
FDataset.FreeNotification(Self);
UnbindFields;
end;
end;