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

Removed uneeded test code.

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

4
components/fpspreadsheet/uvirtuallayer_ole_helpers.pas
View File

@ -1094,12 +1094,8 @@ var
Sector: SECT; Sector: SECT;
DIFIndex,FATInDIF,OffSetInFAT: SECT; DIFIndex,FATInDIF,OffSetInFAT: SECT;
begin begin
try
DecomposeFATEntry(AFATEntryIndex,DIFIndex,FATInDIF,OffSetInFAT); DecomposeFATEntry(AFATEntryIndex,DIFIndex,FATInDIF,OffSetInFAT);
Sector:=FDIFArray[DIFIndex][FATInDIF]; Sector:=FDIFArray[DIFIndex][FATInDIF];
except
beep;
end;
ReadFATSector(Sector); ReadFATSector(Sector);
Result:=FFATCache.Cache[OffSetInFAT]; Result:=FFATCache.Cache[OffSetInFAT];
end; end;