paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TParadoxDataset: Fix memory leak

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6898 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2019-05-09 20:56:40 +00:00
parent 60842879dd
commit cc2171f8cf
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tparadoxdataset/paradoxds.pas
View File

@ -46,14 +46,14 @@ type
{ field information record used in TPxHeader below }
PFldInfoRec = ^TFldInfoRec;
TFldInfoRec = packed RECORD
TFldInfoRec = packed record
fType: byte;
fSize: byte;
end;
PPxHeader = ^TPxHeader;
TPxHeader = packed RECORD
TPxHeader = packed record
recordSize : word;
headerSize : word;
fileType : byte;
@ -348,8 +348,9 @@ begin
BindFields(FALSE);
if DefaultFields then // Destroy the TField
DestroyFields;
Freemem(FHeader);
Freemem(FaBlock);
FreeMem(FHeader);
FreeMem(FaBlock);
FreeAndNil(FStream);
FHeader := nil;
FActive := False;
end;