Преглед на файлове

* Fix bug #33411 (memleak in CSV Dataset)

git-svn-id: trunk@38541 -
michael преди 7 години
родител
ревизия
55402a2182
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  1. 1 0
      packages/fcl-db/src/base/csvdataset.pp

+ 1 - 0
packages/fcl-db/src/base/csvdataset.pp

@@ -173,6 +173,7 @@ begin
   If FOwnsOptions then
     FreeAndNil(FOPtions);
   FreeAndNil(Fline);
+  FreeAndNil(FParser);
   inherited Destroy;
 end;