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

fpspreadsheet: Fix non-Windows compilation failure due to missing variable declaration in fpolestorage

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3212 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-06-22 09:59:40 +00:00
parent 6c875eaaa9
commit cb7a21cf9d
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/fpolestorage.pas
View File

@ -695,6 +695,9 @@ procedure TOLEStorage.WriteOLEFile(AFileName: string;
var
cbWritten: Cardinal;
lMode: Word;
{$IFNDEF FPOLESTORAGE_USE_COM}
AFileStream: TStream;
{$ENDIF}
begin
// The behavior of LCL classes is failling to write to existing file,
// But here we make this settable