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

Fixed a bug in UnloadDIFArray when a file open was not successful.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2111 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2011-11-03 13:04:22 +00:00
parent 2c03552fdf
commit 3985c8f1a3
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/uvirtuallayer_ole_helpers.pas
View File

@ -501,6 +501,11 @@ var
NextDIFC: SECT; NextDIFC: SECT;
Index: SizeUint; Index: SizeUint;
begin begin
if not Assigned(FDIFArray) then begin
//Nothing to be freed.
Result:=true;
exit;
end;
//The first DIF is an special one and do not need to be //The first DIF is an special one and do not need to be
//written as it is written with the header updates. //written as it is written with the header updates.
FDIFArray[0]:=PSECT(@FHeader._sectFat[0]); FDIFArray[0]:=PSECT(@FHeader._sectFat[0]);