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

fpspreadsheet: Fix "unknown fileformat" error in fpsspeedtest; add option to test 1 million of rows.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8002 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-04-23 07:28:06 +00:00
parent f190ffd0b5
commit c50e2a4f0a
3 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/examples/fpsspeedtest/fpsspeedtest.lpi
View File

@ -67,7 +67,7 @@
</Parsing>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options>
<Win32>

9
components/fpspreadsheet/examples/fpsspeedtest/mainform.lfm
View File

@ -11,7 +11,7 @@ object Form1: TForm1
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyPress = FormKeyPress
LCLVersion = '1.8.4.0'
LCLVersion = '2.1.0.0'
object StatusBar: TStatusBar
Left = 0
Height = 23
@ -167,10 +167,11 @@ object Form1: TForm1
'50k'
'60k'
'100k (not for BIFF)'
'1000k (not for BIFF)'
)
TabOrder = 3
Data = {
0700000002020202020202
080000000202020202020202
}
end
object RgColCount: TRadioGroup
@ -223,7 +224,7 @@ object Form1: TForm1
DefaultExt = '.txt'
Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail]
left = 708
top = 65
Left = 708
Top = 65
end
end

2
components/fpspreadsheet/examples/fpsspeedtest/mainform.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, iniFiles,
fpstypes, fpSpreadsheet;
fpstypes, fpSpreadsheet, fpsallformats;
type