fpspreadsheet: Fix compilation of new Excel unit test for non-Windows systems.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4536 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-03-09 09:55:28 +00:00
parent 8440fb8206
commit 8fcf90d13a

View File

@ -8,6 +8,7 @@ interface
Will be skipped if Excel is not available. Will be skipped if Excel is not available.
} }
{$ifdef windows}
uses uses
// Not using Lazarus package as the user may be working with multiple versions // Not using Lazarus package as the user may be working with multiple versions
// Instead, add .. to unit search path // Instead, add .. to unit search path
@ -61,8 +62,11 @@ type
end; end;
{$endif}
implementation implementation
{$ifdef windows}
uses uses
TypInfo, comobj; TypInfo, comobj;
@ -387,5 +391,7 @@ end;
initialization initialization
RegisterTest(TSpreadExcelTests); RegisterTest(TSpreadExcelTests);
{$endif}
end. end.