paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 04:09:33 +02: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
MustReleaseDbfFile := false;
with FieldDefs do
begin
try
if FDbfFile = nil then
begin
MustReleaseDbfFile := true;
// do not AutoCreate file
InitDbfFile(pfReadOnly);
FDbfFile.Open;
MustReleaseDbfFile := true;
end;
GetFieldDefsFromDbfFieldDefs;
finally
if MustReleaseDbfFile then
FreeAndNil(FDbfFile);
end;