paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 01:17:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Joeny Ang: fix TDbf memory leak, resolves #40709

Browse Source 
(cherry picked from commit 961e8fb749)
This commit is contained in:
florian 2024-03-26 15:02:29 +01:00 committed by marcoonthegit
parent ff15ecd853
commit fdc63b3918
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/dbase/dbf.pas
View File

@ -1219,15 +1219,16 @@ var
begin begin
MustReleaseDbfFile := false; MustReleaseDbfFile := false;
with FieldDefs do with FieldDefs do
begin try
if FDbfFile = nil then if FDbfFile = nil then
begin begin
MustReleaseDbfFile := true;
// do not AutoCreate file // do not AutoCreate file
InitDbfFile(pfReadOnly); InitDbfFile(pfReadOnly);
FDbfFile.Open; FDbfFile.Open;
MustReleaseDbfFile := true;
end; end;
GetFieldDefsFromDbfFieldDefs; GetFieldDefsFromDbfFieldDefs;
finally
if MustReleaseDbfFile then if MustReleaseDbfFile then
FreeAndNil(FDbfFile); FreeAndNil(FDbfFile);
end; end;