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

Fixes bug 0016003 using patch from Lagunov Aleksey. Zero length read stream reads ALL the stream instead nothing.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1181 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2010-03-15 19:05:59 +00:00
parent 5bccf8036a
commit fa1a92f38d
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/xlsbiff8.pas
View File

@ -1390,7 +1390,10 @@ begin
Dec(PendingRecordSize,2); Dec(PendingRecordSize,2);
LString:=''; LString:='';
while PendingRecordSize>0 do begin while PendingRecordSize>0 do begin
LString:=LString+ReadString(AStream,StringLength); if StringLength>0 then begin
//Read a stream of zero length reads all the stream.
LString:=LString+ReadString(AStream,StringLength);
end;
if (PendingRecordSize=0) and (Items>1) then begin if (PendingRecordSize=0) and (Items>1) then begin
//A continue will happend, read the continue //A continue will happend, read the continue
//tag and continue linking... //tag and continue linking...