pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fixed memory leak on destroy.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2371 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2012-03-30 19:25:26 +00:00
parent 768e780780
commit e061c01c66
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/xlsbiff8.pas
View File

@ -1679,7 +1679,11 @@ begin
end; end;
destructor TsSpreadBIFF8Reader.Destroy; destructor TsSpreadBIFF8Reader.Destroy;
var
j: integer;
begin begin
for j := FXFList.Count-1 downto 0 do TObject(FXFList[j]).Free;
for j := FFormatList.Count-1 downto 0 do TObject(FFormatList[j]).Free;
FXFList.Free; FXFList.Free;
FFormatList.Free; FFormatList.Free;
if Assigned(FSharedStringTable) then FSharedStringTable.Free; if Assigned(FSharedStringTable) then FSharedStringTable.Free;