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

* Replace XLSDEBUG define for writeln debug output to FPSPREADDEBUG as it is used beyond just xls support.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2932 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-04-08 09:53:02 +00:00
parent 27498ff548
commit 435cc15729
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/fpsopendocument.pas
View File

@ -24,6 +24,7 @@ unit fpsopendocument;
{$mode delphi} {$mode delphi}
{$endif} {$endif}
{.$define FPSPREADDEBUG} //used to be XLSDEBUG
interface interface
uses uses
@ -343,7 +344,7 @@ begin
Value:=GetAttrValue(ACellNode,'office:date-value'); Value:=GetAttrValue(ACellNode,'office:date-value');
if Value<>'' then if Value<>'' then
begin begin
{$IFDEF XLSDEBUG} {$IFDEF FPSPREADDEBUG}
writeln('Row (1based): ',ARow+1,'office:date-value: '+Value); writeln('Row (1based): ',ARow+1,'office:date-value: '+Value);
{$ENDIF} {$ENDIF}
// Date or date/time string // Date or date/time string
@ -362,7 +363,7 @@ begin
// Try time only, e.g. PT23H59M59S // Try time only, e.g. PT23H59M59S
// 12345678901 // 12345678901
Value:=GetAttrValue(ACellNode,'office:time-value'); Value:=GetAttrValue(ACellNode,'office:time-value');
{$IFDEF XLSDEBUG} {$IFDEF FPSPREADDEBUG}
writeln('Row (1based): ',ARow+1,'office:time-value: '+Value); writeln('Row (1based): ',ARow+1,'office:time-value: '+Value);
{$ENDIF} {$ENDIF}
if (Value<>'') and (Pos('PT',Value)=1) then if (Value<>'') and (Pos('PT',Value)=1) then

6
components/fpspreadsheet/xlsbiff8.pas
View File

@ -48,7 +48,7 @@ unit xlsbiff8;
// The new OLE code is much better, so always use it // The new OLE code is much better, so always use it
{$define USE_NEW_OLE} {$define USE_NEW_OLE}
{.$define XLSDEBUG} {.$define FPSPREADDEBUG} //used to be XLSDEBUG
interface interface
@ -2242,7 +2242,7 @@ begin
end; end;
end; end;
FSharedStringTable.Add(LString); FSharedStringTable.Add(LString);
{$ifdef XLSDEBUG} {$ifdef FPSPREADDEBUG}
WriteLn('Adding shared string: ' + LString); WriteLn('Adding shared string: ' + LString);
{$endif} {$endif}
dec(Items); dec(Items);
@ -2369,7 +2369,7 @@ begin
{ Character set } { Character set }
lCodepage := AStream.ReadByte(); lCodepage := AStream.ReadByte();
{$ifdef XLSDEBUG} {$ifdef FPSPREADDEBUG}
WriteLn('Reading Font Codepage='+IntToStr(lCodepage)); WriteLn('Reading Font Codepage='+IntToStr(lCodepage));
{$endif} {$endif}