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

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

Browse Source
This commit is contained in:
florian 2024-03-26 15:02:29 +01:00
parent 14d4b0808b
commit 961e8fb749
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

@ -1258,15 +1258,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;