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

29
components/tparadoxdataset/paradoxds.pas
View File

@ -45,15 +45,15 @@ type
PLongWord = ^Longword;
{ field information record used in TPxHeader below }
PFldInfoRec = ^TFldInfoRec;
TFldInfoRec = packed RECORD
fType : byte;
fSize : byte;
PFldInfoRec = ^TFldInfoRec;
TFldInfoRec = packed record
fType: byte;
fSize: byte;
end;
PPxHeader = ^TPxHeader;
TPxHeader = packed RECORD
PPxHeader = ^TPxHeader;
TPxHeader = packed record
recordSize : word;
headerSize : word;
fileType : byte;
@ -143,13 +143,13 @@ type
TParadoxDataSet = class(TDataSet)
private
FActive : Boolean;
FStream : TFileStream;
FActive: Boolean;
FStream: TFileStream;
FFileName: TFileName;
FHeader : PPxHeader;
FaRecord : Longword;
FaBlockstart : LongInt;
FaBlock : PDataBlock;
FHeader: PPxHeader;
FaRecord: Longword;
FaBlockstart: LongInt;
FaBlock: PDataBlock;
FaBlockIdx: word;
FBlockReaded: Boolean;
FBookmarkOfs: LongWord;
@ -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;