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

Fixed missing assignment of "DIF first sector", now xls files can be bigger than 7 megabytes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2758 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
joshy 2013-07-02 23:27:25 +00:00
parent a624b7f671
commit 3517fb8a2c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/uvirtuallayer_ole_helpers.pas
View File

@ -501,7 +501,7 @@ var
NextDIFC: SECT; NextDIFC: SECT;
Index: SizeUint; Index: SizeUint;
begin begin
if not Assigned(FDIFArray) then begin if Length(FDIFArray)=0 then begin
//Nothing to be freed. //Nothing to be freed.
Result:=true; Result:=true;
exit; exit;
@ -659,6 +659,9 @@ begin
FATInDIF:=0; FATInDIF:=0;
OffsetInFAT:=0; OffsetInFAT:=0;
Sector:=ComposeFATEntry(DIFIndex,FATInDIF,OffsetInFAT); Sector:=ComposeFATEntry(DIFIndex,FATInDIF,OffsetInFAT);
if DIFIndex=1 then begin
FHeader._sectDifStart:=Sector
end;
//Empty free sector //Empty free sector
GetMem(DIFData,FSectorSize); //This memblock will be freed by UnloadDIF GetMem(DIFData,FSectorSize); //This memblock will be freed by UnloadDIF
FillByte(PBYTE(DIFData)^,FSectorSize,$FF); FillByte(PBYTE(DIFData)^,FSectorSize,$FF);