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

fpspreadsheet: Fix xlsx reader truncating strings after 255 characters due to missing $H+ directive. Check that all units use the $H+.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3637 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2014-10-07 22:53:52 +00:00
parent c3f65eac18
commit 46a94e0abf
15 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/fpolestorage.pas
View File

@ -30,7 +30,7 @@ but should work for most documents. Some limitations are:
unit fpolestorage; unit fpolestorage;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
interface interface

2
components/fpspreadsheet/fpsfunc.pas
View File

@ -4,7 +4,7 @@
unit fpsfunc; unit fpsfunc;
{$mode objfpc} {$mode objfpc}{$H+}
interface interface

2
components/fpspreadsheet/fpsnumformatparser.pas
View File

@ -1,7 +1,7 @@
unit fpsNumFormatParser; unit fpsNumFormatParser;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
interface interface

2
components/fpspreadsheet/fpsopendocument.pas
View File

@ -23,7 +23,7 @@ AUTHORS: Felipe Monteiro de Carvalho / Jose Luis Jurado Rincon
unit fpsopendocument; unit fpsopendocument;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
{.$define FPSPREADDEBUG} //used to be XLSDEBUG {.$define FPSPREADDEBUG} //used to be XLSDEBUG

2
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -8,7 +8,7 @@ AUTHORS: Felipe Monteiro de Carvalho
unit fpspreadsheet; unit fpspreadsheet;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
interface interface

2
components/fpspreadsheet/fpsrpn.pas
View File

@ -3,7 +3,7 @@
unit fpsRPN; unit fpsRPN;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
interface interface

4
components/fpspreadsheet/fpsstreams.pas
View File

@ -1,5 +1,9 @@
unit fpsStreams; unit fpsStreams;
{$ifdef fpc}
{$mode delphi}{$H+}
{$endif}
interface interface
uses uses

2
components/fpspreadsheet/fpsstrings.pas
View File

@ -3,7 +3,7 @@
unit fpsStrings; unit fpsStrings;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}

2
components/fpspreadsheet/fpsxmlcommon.pas
View File

@ -3,7 +3,7 @@
unit fpsxmlcommon; unit fpsxmlcommon;
{$mode objfpc} {$mode objfpc}{$H+}
interface interface

1
components/fpspreadsheet/wikitable.pas
View File

@ -21,6 +21,7 @@ Format mediawiki:
AUTHORS: Felipe Monteiro de Carvalho AUTHORS: Felipe Monteiro de Carvalho
*) *)
unit wikitable; unit wikitable;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}

2
components/fpspreadsheet/xlsbiff2.pas
View File

@ -27,7 +27,7 @@ AUTHORS: Felipe Monteiro de Carvalho
unit xlsbiff2; unit xlsbiff2;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
interface interface

2
components/fpspreadsheet/xlsbiff5.pas
View File

@ -53,7 +53,7 @@ AUTHORS: Felipe Monteiro de Carvalho
unit xlsbiff5; unit xlsbiff5;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
{$define USE_NEW_OLE} {$define USE_NEW_OLE}

2
components/fpspreadsheet/xlsbiff8.pas
View File

@ -45,7 +45,7 @@ AUTHORS: Felipe Monteiro de Carvalho
unit xlsbiff8; unit xlsbiff8;
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
// The new OLE code is much better, so always use it // The new OLE code is much better, so always use it

2
components/fpspreadsheet/xlscommon.pas
View File

@ -4,7 +4,7 @@ unit xlscommon;
OpenOffice Microsoft Excel File Format document } OpenOffice Microsoft Excel File Format document }
{$ifdef fpc} {$ifdef fpc}
{$mode delphi} {$mode delphi}{$H+}
{$endif} {$endif}
interface interface

4
components/fpspreadsheet/xlsconst.pas
View File

@ -3,6 +3,10 @@
unit xlsconst; unit xlsconst;
{$ifdef fpc}
{$mode delphi}{$H+}
{$endif}
interface interface
const const