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

fpspreadsheet: Initial implementation of a number format parser. Not complete yet.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3061 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-05-19 22:26:42 +00:00
parent 16cce8f134
commit cb9d07d0dd
11 changed files with 1052 additions and 224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/examples/excel8demo/excel8write.lpr
View File

@ -42,16 +42,19 @@ begin
MyWorksheet := MyWorkbook.AddWorksheet(Str_Worksheet1); MyWorksheet := MyWorkbook.AddWorksheet(Str_Worksheet1);
MyWorksheet.Options := MyWorksheet.Options - [soShowGridLines]; MyWorksheet.Options := MyWorksheet.Options - [soShowGridLines];
{
MyWorksheet.Options := MyWorksheet.Options + [soHasFrozenPanes]; MyWorksheet.Options := MyWorksheet.Options + [soHasFrozenPanes];
myWorksheet.LeftPaneWidth := 1; myWorksheet.LeftPaneWidth := 1;
MyWorksheet.TopPaneHeight := 2; MyWorksheet.TopPaneHeight := 2;
}
{ non-frozen panes not working, at the moment. Requires SELECTION records? { non-frozen panes not working, at the moment. Requires SELECTION records?
MyWorksheet.LeftPaneWidth := 20*72*2; // 72 pt = inch --> 2 inches = 5 cm MyWorksheet.LeftPaneWidth := 20*72*2; // 72 pt = inch --> 2 inches = 5 cm
} }
// Write some cells // Write some cells
MyWorksheet.WriteNumber(0, 0, 1.0);// A1 // MyWorksheet.WriteNumber(0, 0, 1.0);// A1
MyWorksheet.WriteNumber(0, 0, 1.0, nfFixed, 3);// A1
MyWorksheet.WriteNumber(0, 1, 2.0);// B1 MyWorksheet.WriteNumber(0, 1, 2.0);// B1
MyWorksheet.WriteNumber(0, 2, 3.0);// C1 MyWorksheet.WriteNumber(0, 2, 3.0);// C1
MyWorksheet.WriteNumber(0, 3, 4.0);// D1 MyWorksheet.WriteNumber(0, 3, 4.0);// D1

415
components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi
View File

@ -107,7 +107,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="59"> <Units Count="60">
<Unit0> <Unit0>
<Filename Value="fpsgrid.lpr"/> <Filename Value="fpsgrid.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -131,26 +131,24 @@
<TopLine Value="394"/> <TopLine Value="394"/>
<CursorPos X="40" Y="412"/> <CursorPos X="40" Y="412"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="1">
<Item0 X="3" Y="361" ID="1"/>
</Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<UnitName Value="fpspreadsheet"/> <UnitName Value="fpspreadsheet"/>
<EditorIndex Value="4"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="6"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2748"/> <TopLine Value="132"/>
<CursorPos X="1" Y="2748"/> <CursorPos X="16" Y="164"/>
<UsageCount Value="100"/> <UsageCount Value="100"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<UnitName Value="fpspreadsheetgrid"/> <UnitName Value="fpspreadsheetgrid"/>
<EditorIndex Value="5"/> <EditorIndex Value="8"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="636"/> <TopLine Value="636"/>
<CursorPos X="20" Y="647"/> <CursorPos X="20" Y="647"/>
@ -163,7 +161,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="25"/> <TopLine Value="25"/>
<CursorPos X="4" Y="44"/> <CursorPos X="4" Y="44"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="c:\lazarus27\fpc\2.2.4\source\packages\winunits-base\src\activex.pp"/> <Filename Value="c:\lazarus27\fpc\2.2.4\source\packages\winunits-base\src\activex.pp"/>
@ -171,7 +169,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="49"/> <TopLine Value="49"/>
<CursorPos X="10" Y="24"/> <CursorPos X="10" Y="24"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="c:\lazarus27\fpc\2.2.4\source\packages\fcl-base\src\avl_tree.pp"/> <Filename Value="c:\lazarus27\fpc\2.2.4\source\packages\fcl-base\src\avl_tree.pp"/>
@ -179,7 +177,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="37"/> <TopLine Value="37"/>
<CursorPos X="14" Y="83"/> <CursorPos X="14" Y="83"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="c:\Lazarus\lcl\grids.pas"/> <Filename Value="c:\Lazarus\lcl\grids.pas"/>
@ -187,14 +185,14 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1516"/> <TopLine Value="1516"/>
<CursorPos X="28" Y="1534"/> <CursorPos X="28" Y="1534"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="c:\Lazarus\lcl\include\customform.inc"/> <Filename Value="c:\Lazarus\lcl\include\customform.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2021"/> <TopLine Value="2021"/>
<CursorPos X="1" Y="2041"/> <CursorPos X="1" Y="2041"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="..\..\fpsallformats.pas"/> <Filename Value="..\..\fpsallformats.pas"/>
@ -202,7 +200,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="62" Y="13"/> <CursorPos X="62" Y="13"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="..\..\wikitable.pas"/> <Filename Value="..\..\wikitable.pas"/>
@ -210,7 +208,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="48"/> <TopLine Value="48"/>
<CursorPos X="41" Y="60"/> <CursorPos X="41" Y="60"/>
<UsageCount Value="11"/> <UsageCount Value="9"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="..\..\fpsopendocument.pas"/> <Filename Value="..\..\fpsopendocument.pas"/>
@ -218,7 +216,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/> <Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
@ -226,7 +224,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="4852"/> <TopLine Value="4852"/>
<CursorPos X="16" Y="4884"/> <CursorPos X="16" Y="4884"/>
<UsageCount Value="47"/> <UsageCount Value="45"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="..\..\fpsutils.pas"/> <Filename Value="..\..\fpsutils.pas"/>
@ -235,7 +233,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1206"/> <TopLine Value="1206"/>
<CursorPos X="21" Y="1222"/> <CursorPos X="21" Y="1222"/>
<UsageCount Value="54"/> <UsageCount Value="62"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
@ -243,7 +241,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1212"/> <TopLine Value="1212"/>
<CursorPos X="3" Y="1218"/> <CursorPos X="3" Y="1218"/>
<UsageCount Value="3"/> <UsageCount Value="1"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="d:\lazarus-svn\lcl\graphics.pp"/> <Filename Value="d:\lazarus-svn\lcl\graphics.pp"/>
@ -251,24 +249,23 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1937"/> <TopLine Value="1937"/>
<CursorPos X="11" Y="1956"/> <CursorPos X="11" Y="1956"/>
<UsageCount Value="32"/> <UsageCount Value="30"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="d:\lazarus-svn\fpc\2.6.2\source\rtl\objpas\classes\classesh.inc"/> <Filename Value="d:\lazarus-svn\fpc\2.6.2\source\rtl\objpas\classes\classesh.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="248"/> <TopLine Value="248"/>
<CursorPos X="22" Y="263"/> <CursorPos X="22" Y="263"/>
<UsageCount Value="11"/> <UsageCount Value="9"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlsbiff8.pas"/>
<UnitName Value="xlsbiff8"/> <UnitName Value="xlsbiff8"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1920"/> <TopLine Value="1920"/>
<CursorPos X="11" Y="1932"/> <CursorPos X="21" Y="1924"/>
<UsageCount Value="84"/> <UsageCount Value="92"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
@ -277,22 +274,27 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1091"/> <TopLine Value="1091"/>
<CursorPos X="12" Y="1122"/> <CursorPos X="12" Y="1122"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="d:\lazarus-svn\lcl\include\wincontrol.inc"/> <Filename Value="d:\lazarus-svn\lcl\include\wincontrol.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="7344"/> <TopLine Value="7344"/>
<CursorPos X="30" Y="7349"/> <CursorPos X="30" Y="7349"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="..\..\xlscommon.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<UnitName Value="xlscommon"/> <UnitName Value="xlscommon"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="509"/> <TopLine Value="1181"/>
<CursorPos X="68" Y="517"/> <CursorPos X="31" Y="1194"/>
<UsageCount Value="80"/> <UsageCount Value="88"/>
<Bookmarks Count="1">
<Item0 X="41" Y="1209" ID="1"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="..\..\xlsbiff5.pas"/> <Filename Value="..\..\xlsbiff5.pas"/>
@ -300,7 +302,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="76"/> <TopLine Value="76"/>
<CursorPos X="49" Y="92"/> <CursorPos X="49" Y="92"/>
<UsageCount Value="67"/> <UsageCount Value="65"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="..\..\xlsbiff2.pas"/> <Filename Value="..\..\xlsbiff2.pas"/>
@ -308,7 +310,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="548"/> <TopLine Value="548"/>
<CursorPos X="1" Y="560"/> <CursorPos X="1" Y="560"/>
<UsageCount Value="68"/> <UsageCount Value="66"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="d:\lazarus-svn\lcl\lclproc.pas"/> <Filename Value="d:\lazarus-svn\lcl\lclproc.pas"/>
@ -316,7 +318,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="841"/> <TopLine Value="841"/>
<CursorPos X="19" Y="852"/> <CursorPos X="19" Y="852"/>
<UsageCount Value="10"/> <UsageCount Value="8"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="d:\lazarus-svn\fpc\2.6.2\source\packages\fcl-image\src\fpcanvas.pp"/> <Filename Value="d:\lazarus-svn\fpc\2.6.2\source\packages\fcl-image\src\fpcanvas.pp"/>
@ -324,384 +326,394 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="111"/> <TopLine Value="111"/>
<CursorPos X="3" Y="112"/> <CursorPos X="3" Y="112"/>
<UsageCount Value="13"/> <UsageCount Value="11"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="d:\lazarus-svn\fpc\2.6.2\source\packages\fcl-image\src\fpimage.pp"/>
<UnitName Value="FPimage"/>
<WindowIndex Value="0"/>
<TopLine Value="74"/>
<CursorPos X="3" Y="93"/>
<UsageCount Value="1"/>
</Unit25>
<Unit26>
<Filename Value="d:\lazarus-svn\fpc\2.6.2\source\rtl\objpas\classes\lists.inc"/> <Filename Value="d:\lazarus-svn\fpc\2.6.2\source\rtl\objpas\classes\lists.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="141"/> <TopLine Value="141"/>
<CursorPos X="3" Y="143"/> <CursorPos X="3" Y="143"/>
<UsageCount Value="9"/> <UsageCount Value="7"/>
</Unit26> </Unit25>
<Unit27> <Unit26>
<Filename Value="d:\Prog_Delphi\common\units\XLS.pas"/> <Filename Value="d:\Prog_Delphi\common\units\XLS.pas"/>
<UnitName Value="Xls"/> <UnitName Value="Xls"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="114"/> <TopLine Value="114"/>
<CursorPos X="42" Y="152"/> <CursorPos X="42" Y="152"/>
<UsageCount Value="9"/> <UsageCount Value="7"/>
</Unit27> </Unit26>
<Unit28> <Unit27>
<Filename Value="d:\lazarus-svn\lcl\include\pen.inc"/> <Filename Value="d:\lazarus-svn\lcl\include\pen.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="354"/> <TopLine Value="354"/>
<CursorPos X="1" Y="385"/> <CursorPos X="1" Y="385"/>
<UsageCount Value="14"/> <UsageCount Value="12"/>
</Unit28> </Unit27>
<Unit29> <Unit28>
<Filename Value="d:\lazarus-svn\lcl\controls.pp"/> <Filename Value="d:\lazarus-svn\lcl\controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2222"/> <TopLine Value="2222"/>
<CursorPos X="14" Y="2242"/> <CursorPos X="14" Y="2242"/>
<UsageCount Value="9"/> <UsageCount Value="7"/>
</Unit29> </Unit28>
<Unit30> <Unit29>
<Filename Value="d:\lazarus-svn\lcl\include\control.inc"/> <Filename Value="d:\lazarus-svn\lcl\include\control.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2696"/> <TopLine Value="2696"/>
<CursorPos X="23" Y="2712"/> <CursorPos X="23" Y="2712"/>
<UsageCount Value="10"/> <UsageCount Value="8"/>
</Unit30> </Unit29>
<Unit31> <Unit30>
<Filename Value="..\..\fpspreadsheetchart.pas"/> <Filename Value="..\..\fpspreadsheetchart.pas"/>
<UnitName Value="fpspreadsheetchart"/> <UnitName Value="fpspreadsheetchart"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="170"/> <TopLine Value="170"/>
<CursorPos X="37" Y="204"/> <CursorPos X="37" Y="204"/>
<UsageCount Value="4"/> <UsageCount Value="2"/>
</Unit31> </Unit30>
<Unit32> <Unit31>
<Filename Value="d:\lazarus-svn\components\lazutils\lazutf8.pas"/> <Filename Value="d:\lazarus-svn\components\lazutils\lazutf8.pas"/>
<UnitName Value="LazUTF8"/> <UnitName Value="LazUTF8"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="3180"/> <TopLine Value="3180"/>
<CursorPos X="1" Y="3212"/> <CursorPos X="1" Y="3212"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit32> </Unit31>
<Unit33> <Unit32>
<Filename Value="d:\lazarus-svn\lcl\colorbox.pas"/> <Filename Value="d:\lazarus-svn\lcl\colorbox.pas"/>
<UnitName Value="ColorBox"/> <UnitName Value="ColorBox"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="584"/> <TopLine Value="584"/>
<CursorPos X="3" Y="598"/> <CursorPos X="3" Y="598"/>
<UsageCount Value="13"/> <UsageCount Value="11"/>
</Unit33> </Unit32>
<Unit34> <Unit33>
<Filename Value="d:\lazarus-svn\lcl\dialogs.pp"/> <Filename Value="d:\lazarus-svn\lcl\dialogs.pp"/>
<UnitName Value="Dialogs"/> <UnitName Value="Dialogs"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="222"/> <TopLine Value="222"/>
<CursorPos X="3" Y="253"/> <CursorPos X="3" Y="253"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit34> </Unit33>
<Unit35> <Unit34>
<Filename Value="d:\lazarus-svn\lcl\forms.pp"/> <Filename Value="d:\lazarus-svn\lcl\forms.pp"/>
<UnitName Value="Forms"/> <UnitName Value="Forms"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="932"/> <TopLine Value="932"/>
<CursorPos X="3" Y="939"/> <CursorPos X="3" Y="939"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit35> </Unit34>
<Unit36> <Unit35>
<Filename Value="C:\development\lazarus\lcl\graphics.pp"/> <Filename Value="C:\development\lazarus\lcl\graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2053"/> <TopLine Value="2053"/>
<CursorPos X="30" Y="1945"/> <CursorPos X="30" Y="1945"/>
<UsageCount Value="8"/> <UsageCount Value="6"/>
</Unit36> </Unit35>
<Unit37> <Unit36>
<Filename Value="C:\development\fpc\packages\fcl-image\src\fpcanvas.pp"/> <Filename Value="C:\development\fpc\packages\fcl-image\src\fpcanvas.pp"/>
<UnitName Value="FPCanvas"/> <UnitName Value="FPCanvas"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="89"/> <TopLine Value="89"/>
<CursorPos X="15" Y="97"/> <CursorPos X="15" Y="97"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit37> </Unit36>
<Unit38> <Unit37>
<Filename Value="C:\development\fpc\packages\fcl-image\src\fpfont.inc"/> <Filename Value="C:\development\fpc\packages\fcl-image\src\fpfont.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="54"/> <TopLine Value="54"/>
<CursorPos X="3" Y="57"/> <CursorPos X="3" Y="57"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit38> </Unit37>
<Unit39> <Unit38>
<Filename Value="C:\development\lazarus\lcl\graphmath.pp"/> <Filename Value="C:\development\lazarus\lcl\graphmath.pp"/>
<UnitName Value="GraphMath"/> <UnitName Value="GraphMath"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="584"/> <TopLine Value="584"/>
<CursorPos X="3" Y="439"/> <CursorPos X="3" Y="439"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit39> </Unit38>
<Unit40> <Unit39>
<Filename Value="C:\development\lazarus\lcl\graphtype.pp"/> <Filename Value="C:\development\lazarus\lcl\graphtype.pp"/>
<UnitName Value="GraphType"/> <UnitName Value="GraphType"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="234"/> <TopLine Value="234"/>
<CursorPos X="3" Y="33"/> <CursorPos X="3" Y="33"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit40> </Unit39>
<Unit41> <Unit40>
<Filename Value="C:\development\lazarus\lcl\lcltype.pp"/> <Filename Value="C:\development\lazarus\lcl\lcltype.pp"/>
<UnitName Value="LCLType"/> <UnitName Value="LCLType"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1628"/> <TopLine Value="1628"/>
<CursorPos X="3" Y="1643"/> <CursorPos X="3" Y="1643"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit41> </Unit40>
<Unit42> <Unit41>
<Filename Value="C:\development\lazarus\lcl\graphutil.pp"/> <Filename Value="C:\development\lazarus\lcl\graphutil.pp"/>
<UnitName Value="GraphUtil"/> <UnitName Value="GraphUtil"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="128"/> <TopLine Value="128"/>
<CursorPos X="12" Y="143"/> <CursorPos X="12" Y="143"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit42> </Unit41>
<Unit43> <Unit42>
<Filename Value="C:\development\fpc\rtl\objpas\math.pp"/> <Filename Value="C:\development\fpc\rtl\objpas\math.pp"/>
<UnitName Value="math"/> <UnitName Value="math"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="144"/> <TopLine Value="144"/>
<CursorPos X="10" Y="159"/> <CursorPos X="10" Y="159"/>
<UsageCount Value="10"/> <UsageCount Value="8"/>
</Unit43> </Unit42>
<Unit44> <Unit43>
<Filename Value="C:\development\fpc\rtl\i386\i386.inc"/> <Filename Value="C:\development\fpc\rtl\i386\i386.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1497"/> <TopLine Value="1497"/>
<CursorPos X="1" Y="1515"/> <CursorPos X="1" Y="1515"/>
<UsageCount Value="13"/> <UsageCount Value="11"/>
</Unit44> </Unit43>
<Unit45> <Unit44>
<Filename Value="C:\development\lazarus\lcl\grids.pas"/> <Filename Value="C:\development\lazarus\lcl\grids.pas"/>
<UnitName Value="Grids"/> <UnitName Value="Grids"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="794"/> <TopLine Value="794"/>
<CursorPos X="15" Y="1010"/> <CursorPos X="15" Y="1010"/>
<UsageCount Value="14"/> <UsageCount Value="12"/>
</Unit45> </Unit44>
<Unit46> <Unit45>
<Filename Value="..\..\..\spktoolbar\SpkGraphTools\SpkGraphTools.pas"/> <Filename Value="..\..\..\spktoolbar\SpkGraphTools\SpkGraphTools.pas"/>
<UnitName Value="SpkGraphTools"/> <UnitName Value="SpkGraphTools"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="136"/> <TopLine Value="136"/>
<CursorPos X="1" Y="143"/> <CursorPos X="1" Y="143"/>
<UsageCount Value="5"/> <UsageCount Value="3"/>
</Unit46> </Unit45>
<Unit47> <Unit46>
<Filename Value="C:\development\fpc\rtl\objpas\classes\lists.inc"/> <Filename Value="C:\development\fpc\rtl\objpas\classes\lists.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="34"/> <TopLine Value="34"/>
<CursorPos X="1" Y="49"/> <CursorPos X="1" Y="49"/>
<UsageCount Value="13"/> <UsageCount Value="11"/>
</Unit47> </Unit46>
<Unit48> <Unit47>
<Filename Value="C:\development\lazarus\lcl\include\canvas.inc"/> <Filename Value="C:\development\lazarus\lcl\include\canvas.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1705"/> <TopLine Value="1705"/>
<CursorPos X="1" Y="1720"/> <CursorPos X="1" Y="1720"/>
<UsageCount Value="13"/> <UsageCount Value="11"/>
</Unit48> </Unit47>
<Unit49> <Unit48>
<Filename Value="C:\development\lazarus\lcl\include\font.inc"/> <Filename Value="C:\development\lazarus\lcl\include\font.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1139"/> <TopLine Value="1139"/>
<CursorPos X="25" Y="1161"/> <CursorPos X="25" Y="1161"/>
<UsageCount Value="13"/> <UsageCount Value="11"/>
</Unit49> </Unit48>
<Unit50> <Unit49>
<Filename Value="C:\development\lazarus\lcl\include\winapih.inc"/> <Filename Value="C:\development\lazarus\lcl\include\winapih.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="156"/> <TopLine Value="156"/>
<CursorPos X="10" Y="171"/> <CursorPos X="10" Y="171"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit50> </Unit49>
<Unit51> <Unit50>
<Filename Value="C:\development\lazarus\lcl\include\intfbasewinapi.inc"/> <Filename Value="C:\development\lazarus\lcl\include\intfbasewinapi.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1577"/> <TopLine Value="1577"/>
<CursorPos X="3" Y="1579"/> <CursorPos X="3" Y="1579"/>
<UsageCount Value="7"/> <UsageCount Value="5"/>
</Unit51> </Unit50>
<Unit52> <Unit51>
<Filename Value="C:\development\fpc\rtl\inc\except.inc"/> <Filename Value="C:\development\fpc\rtl\inc\except.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="202"/> <TopLine Value="202"/>
<CursorPos X="1" Y="227"/> <CursorPos X="1" Y="227"/>
<UsageCount Value="12"/> <UsageCount Value="10"/>
</Unit52> </Unit51>
<Unit53> <Unit52>
<Filename Value="d:\lazarus-svn\lcl\include\menuitem.inc"/> <Filename Value="d:\lazarus-svn\lcl\include\menuitem.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="69"/> <TopLine Value="69"/>
<CursorPos X="28" Y="82"/> <CursorPos X="28" Y="82"/>
<UsageCount Value="13"/> <UsageCount Value="11"/>
</Unit53> </Unit52>
<Unit54> <Unit53>
<Filename Value="d:\lazarus-svn\lcl\include\application.inc"/> <Filename Value="d:\lazarus-svn\lcl\include\application.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1371"/> <TopLine Value="1371"/>
<CursorPos X="1" Y="1390"/> <CursorPos X="1" Y="1390"/>
<UsageCount Value="12"/> <UsageCount Value="10"/>
</Unit54> </Unit53>
<Unit55> <Unit54>
<Filename Value="d:\lazarus-svn\lcl\include\font.inc"/> <Filename Value="d:\lazarus-svn\lcl\include\font.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="648"/> <TopLine Value="648"/>
<CursorPos X="1" Y="675"/> <CursorPos X="1" Y="675"/>
<UsageCount Value="11"/> <UsageCount Value="9"/>
</Unit55> </Unit54>
<Unit56> <Unit55>
<Filename Value="d:\lazarus-svn\lcl\include\fontdialog.inc"/> <Filename Value="d:\lazarus-svn\lcl\include\fontdialog.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="24"/> <TopLine Value="24"/>
<CursorPos X="1" Y="49"/> <CursorPos X="1" Y="49"/>
<UsageCount Value="11"/> <UsageCount Value="9"/>
</Unit56> </Unit55>
<Unit57> <Unit56>
<Filename Value="C:\development\fpc\rtl\objpas\sysutils\sysinth.inc"/> <Filename Value="C:\development\fpc\rtl\objpas\sysutils\sysinth.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="50"/> <TopLine Value="50"/>
<CursorPos X="3" Y="57"/> <CursorPos X="3" Y="57"/>
<UsageCount Value="10"/> <UsageCount Value="8"/>
</Unit57> </Unit56>
<Unit58> <Unit57>
<Filename Value="C:\development\fpc\rtl\inc\wstrings.inc"/> <Filename Value="C:\development\fpc\rtl\inc\wstrings.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="169"/> <TopLine Value="169"/>
<CursorPos X="1" Y="185"/> <CursorPos X="1" Y="185"/>
<UsageCount Value="10"/> <UsageCount Value="8"/>
</Unit57>
<Unit58>
<Filename Value="d:\lazarus-svn\fpc\2.6.2\source\rtl\objpas\sysutils\dati.inc"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="890"/>
<CursorPos X="16" Y="796"/>
<UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit58> </Unit58>
<Unit59>
<Filename Value="d:\lazarus-svn\fpc\2.6.2\source\rtl\objpas\sysutils\sysinth.inc"/>
<EditorIndex Value="7"/>
<WindowIndex Value="0"/>
<TopLine Value="36"/>
<CursorPos X="5" Y="43"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit59>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="1437" Column="1" TopLine="1407"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="1410" Column="1" TopLine="1403"/> <Caret Line="164" Column="60" TopLine="132"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="1411" Column="1" TopLine="1403"/> <Caret Line="1511" Column="15" TopLine="1478"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1412" Column="1" TopLine="1403"/> <Caret Line="1170" Column="36" TopLine="1170"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1414" Column="1" TopLine="1403"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1416" Column="1" TopLine="1403"/> <Caret Line="940" Column="14" TopLine="908"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1417" Column="1" TopLine="1403"/> <Caret Line="960" Column="14" TopLine="928"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1423" Column="1" TopLine="1403"/> <Caret Line="1013" Column="14" TopLine="982"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1437" Column="1" TopLine="1406"/> <Caret Line="1059" Column="14" TopLine="1027"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1929" Column="3" TopLine="1920"/> <Caret Line="1081" Column="41" TopLine="1049"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1567" Column="1" TopLine="1548"/> <Caret Line="1089" Column="43" TopLine="1057"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1934" Column="1" TopLine="1915"/> <Caret Line="1093" Column="14" TopLine="1061"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1937" Column="1" TopLine="1915"/> <Caret Line="1157" Column="14" TopLine="1126"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1940" Column="1" TopLine="1915"/> <Caret Line="1197" Column="20" TopLine="1177"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="2761" Column="1" TopLine="2742"/> <Caret Line="403" Column="16" TopLine="397"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="2762" Column="1" TopLine="2742"/> <Caret Line="924" Column="14" TopLine="893"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="2763" Column="1" TopLine="2742"/> <Caret Line="413" Column="19" TopLine="402"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1925" Column="17" TopLine="1915"/> <Caret Line="414" Column="33" TopLine="388"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="2765" Column="3" TopLine="2751"/> <Caret Line="854" Column="39" TopLine="825"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1567" Column="1" TopLine="1548"/> <Caret Line="672" Column="1" TopLine="648"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1934" Column="1" TopLine="1915"/> <Caret Line="870" Column="1" TopLine="832"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1937" Column="1" TopLine="1915"/> <Caret Line="867" Column="24" TopLine="848"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1940" Column="1" TopLine="1915"/> <Caret Line="926" Column="34" TopLine="907"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="2761" Column="1" TopLine="2751"/> <Caret Line="956" Column="1" TopLine="937"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="2762" Column="1" TopLine="2751"/> <Caret Line="1024" Column="63" TopLine="1006"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="2772" Column="1" TopLine="2751"/> <Caret Line="1478" Column="48" TopLine="1478"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="1934" Column="1" TopLine="1915"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1937" Column="1" TopLine="1915"/> <Caret Line="1058" Column="9" TopLine="1039"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1940" Column="1" TopLine="1915"/> <Caret Line="1055" Column="44" TopLine="1039"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="..\..\xlsbiff8.pas"/> <Filename Value="..\..\xlscommon.pas"/>
<Caret Line="1439" Column="1" TopLine="1421"/> <Caret Line="1135" Column="22" TopLine="1120"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
@ -731,6 +743,15 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\xlscommon.pas"/>
<Line Value="664"/>
</Item1>
</BreakPoints>
<Watches Count="2"> <Watches Count="2">
<Item1> <Item1>
<Expression Value="recordtype"/> <Expression Value="recordtype"/>

598
components/fpspreadsheet/fpsnumformatparser.pas Normal file
View File

@ -0,0 +1,598 @@
unit fpsNumFormatParser;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses
SysUtils, fpspreadsheet;
const
psOK = 0;
psErrNoValidColorIndex = 1;
psErrNoValidCompareNumber = 2;
psErrUnknownInfoInBrackets = 3;
psErrConditionalFormattingNotSupported = 4;
psErrNoUsableFormat = 5;
psErrNoValidNumberFormat = 6;
psErrNoValidDateTimeFormat = 7;
{ TsNumFormatParser }
type
TsCompareOperation = (coNotUsed,
coEqual, coNotEqual, coLess, coGreater, coLessEqual, coGreaterEqual
);
TsNumFormatSection = record
FormatString: String;
CompareOperation: TsCompareOperation;
CompareValue: Double;
Color: TsColor;
CountryCode: String;
CurrencySymbol: String;
Decimals: Byte;
NumFormat: TsNumberFormat;
end;
TsNumFormatParser = class
private
FWorkbook: TsWorkbook;
FCurrent: PChar;
FStart: PChar;
FEnd: PChar;
FCurrSection: Integer;
FSections: array of TsNumFormatSection;
FFormatSettings: TFormatSettings;
FFormatString: String;
FStatus: Integer;
function GetParsedSectionCount: Integer;
function GetParsedSections(AIndex: Integer): TsNumFormatSection;
protected
procedure AddChar(AChar: Char);
procedure AddSection;
procedure AnalyzeBracket(const AValue: String);
procedure AnalyzeText(const AValue: String);
procedure CheckSections;
procedure Parse(const AFormatString: String);
procedure ScanAMPM(var s: String);
procedure ScanBrackets;
procedure ScanDateTime;
procedure ScanDateTimeParts(TestToken, Replacement: Char; var s: String);
procedure ScanFormat;
procedure ScanNumber;
procedure ScanText;
public
constructor Create(AWorkbook: TsWorkbook; const AFormatString: String);
destructor Destroy; override;
property FormatString: String read FFormatString;
property ParsedSectionCount: Integer read GetParsedSectionCount;
property ParsedSections[AIndex: Integer]: TsNumFormatSection read GetParsedSections;
property Status: Integer read FStatus;
end;
implementation
uses
fpsutils;
const
COMPARE_STR: array[TsCompareOperation] of string = (
'', '=', '<>', '<', '>', '<=', '>'
);
{ TsNumFormatParser }
constructor TsNumFormatParser.Create(AWorkbook: TsWorkbook;
const AFormatString: String);
begin
inherited Create;
FWorkbook := AWorkbook;
FFormatSettings := DefaultFormatSettings;
FFormatSettings.DecimalSeparator := '.';
FFormatSettings.ThousandSeparator := ',';
Parse(AFormatString);
end;
destructor TsNumFormatParser.Destroy;
begin
FSections := nil;
inherited Destroy;
end;
procedure TsNumFormatParser.AddChar(AChar: Char);
begin
with FSections[FCurrSection] do
FormatString := FormatString + AChar;
end;
procedure TsNumFormatParser.AddSection;
begin
FCurrSection := Length(FSections);
SetLength(FSections, FCurrSection + 1);
with FSections[FCurrSection] do begin
FormatString := '';
CompareOperation := coNotUsed;
CompareValue := 0.0;
Color := scBlack;
CountryCode := '';
CurrencySymbol := '';
Decimals := 0;
NumFormat := nfGeneral;
end;
end;
procedure TsNumFormatParser.AnalyzeBracket(const AValue: String);
var
lValue: String;
n: Integer;
begin
lValue := lowercase(AValue);
// Colors
if lValue = 'red' then
FSections[FCurrSection].Color := scRed
else
if lValue = 'black' then
FSections[FCurrSection].Color := scBlack
else
if lValue = 'blue' then
FSections[FCurrSection].Color := scBlue
else
if lValue = 'white' then
FSections[FCurrSection].Color := scWhite
else
if lValue = 'green' then
FSections[FCurrSection].Color := scGreen
else
if lValue = 'cyan' then
FSections[FCurrSection].Color := scCyan
else
if lValue = 'magenta' then
FSections[FCurrSection].Color := scMagenta
else
if copy(lValue, 1, 5) = 'color' then begin
lValue := copy(lValue, 6, Length(lValue));
if not TryStrToInt(trim(lValue), n) then begin
FStatus := psErrNoValidColorIndex;
exit;
end;
FSections[FCurrSection].Color := n;
end
else
// Conditions
if lValue[1] in ['=', '<', '>'] then begin
n := 1;
case lValue[1] of
'=': FSections[FCurrSection].CompareOperation := coEqual;
'<': case lValue[2] of
'>': begin FSections[FCurrSection].CompareOperation := coNotEqual; inc(n); end;
'=': begin FSections[FCurrSection].CompareOperation := coLessEqual; inc(n); end;
else FSections[FCurrSection].CompareOperation := coLess;
end;
'>': case lValue[2] of
'=': begin FSections[FCurrSection].CompareOperation := coGreaterEqual; inc(n); end;
else FSections[FCurrSection].CompareOperation := coGreater;
end;
end;
Delete(lValue, 1, n);
if not TryStrToFloat(trim(lValue), FSections[FCurrSection].CompareValue) then
FStatus := psErrNoValidCompareNumber;
end else
// Locale information
if lValue[1] = '$' then begin
FSections[FCurrSection].CountryCode := Copy(AValue, 2, Length(AValue));
end else
FStatus := psErrUnknownInfoInBrackets;
end;
procedure TsNumFormatParser.AnalyzeText(const AValue: String);
var
uValue: String;
begin
uValue := Uppercase(AValue);
if (uValue = '$') or (uValue = 'USD') or (uValue = '�') or (uValue = 'EUR') or
(uValue = '�') or (uValue = 'GBP') or (uValue = '�') or (uValue = 'JPY')
then
FSections[FCurrSection].CurrencySymbol := AValue;
end;
procedure TsNumFormatParser.CheckSections;
var
i: Integer;
ns: Integer;
s: String;
begin
ns := Length(FSections);
for i:=0 to ns-1 do begin
if FSections[i].FormatString = '' then
FSections[i].NumFormat := nfGeneral;
if (FSections[i].CurrencySymbol <> '') and (FSections[i].NumFormat = nfFixedTh) then
FSections[i].NumFormat := nfCurrency;
if FSections[i].CompareOperation <> coNotUsed then begin
FStatus := psErrConditionalFormattingNotSupported;
exit;
end;
case FSections[i].NumFormat of
nfGeneral, nfFixed, nfFixedTh, nfPercentage, nfExp, nfSci, nfCurrency:
try
s := FormatFloat(FSections[i].FormatString, 1.0, FWorkBook.FormatSettings);
except
FStatus := psErrNoValidNumberFormat;
exit;
end;
nfShortDateTime, nfShortDate, nfShortTime, nfShortTimeAM,
nfLongDate, nfLongTime, nfLongTimeAM, nfFmtDateTime:
try
s := FormatDateTimeEx(FSections[i].FormatString, now(), FWorkbook.FormatSettings);
except
FStatus := psErrNoValidDateTimeFormat;
exit;
end;
end;
end;
if ns = 2 then
FFormatString := Format('%s;%s;%s', [
FSections[0].FormatString,
FSections[1].FormatString,
FSections[0].FormatString // make sure that fpc understands the "zero"
])
else
if ns > 0 then begin
FFormatString := FSections[0].FormatString;
for i:=1 to ns-1 do
FFormatString := Format('%s;%s', [FFormatString, FSections[i].FormatString]);
end else
FStatus := psErrNoUsableFormat;
end;
{
function TsNumFormatParser.GetNumFormat: TsNumberFormat;
var
i: Integer;
begin
if FStatus <> psOK then
Result := nfGeneral
else
if (FSections[0].NumFormat = nfCurrency) and (FSections[1].NumFormat = nfCurrency) and
(FSections[2].NumFormat = nfCurrency)
then begin
if (FSections[1].Color = scNotDefined) then begin
if (FSections[2].FormatString = '-') then
Result := nfCurrencyDash
else
Result := nfCurrency;
end else
if FSections[1].Color = scRed then begin
if (FSections[2].Formatstring = '-') then
Result := nfCurrencyDashRed
else
Result := nfCurrencyRed;
end;
end else
Result := FSections[0].NumFormat;
end;
}
function TsNumFormatParser.GetParsedSectionCount: Integer;
begin
Result := Length(FSections);
end;
function TsNumFormatParser.GetParsedSections(AIndex: Integer): TsNumFormatSection;
begin
Result := FSections[AIndex];
end;
procedure TsNumFormatParser.Parse(const AFormatString: String);
var
token: Char;
begin
FStatus := psOK;
AddSection;
FStart := @AFormatString[1];
FEnd := FStart + Length(AFormatString) - 1;
FCurrent := FStart;
while (FCurrent <= FEnd) and (FStatus = psOK) do begin
token := FCurrent^;
case token of
'[': ScanBrackets;
';': AddSection;
else ScanFormat;
end;
inc(FCurrent);
end;
CheckSections;
end;
{ Extracts the text between square brackets --> AnalyzeBracket }
procedure TsNumFormatParser.ScanBrackets;
var
s: String;
token: Char;
begin
inc(FCurrent); // cursor stands at '['
while (FCurrent <= FEnd) and (FStatus = psOK) do begin
token := FCurrent^;
case token of
']': begin
AnalyzeBracket(s);
break;
end;
else
s := s + token;
end;
inc(FCurrent);
end;
end;
procedure TsNumFormatParser.ScanDateTime;
var
token: Char;
done: Boolean;
s: String;
i: Integer;
nf: TsNumberFormat;
partStr: String;
isTime: Boolean;
isAMPM: Boolean;
begin
done := false;
s := '';
isTime := false;
isAMPM := false;
while (FCurrent <= FEnd) and (FStatus = psOK) and (not done) do begin
token := FCurrent^;
case token of
'\' : begin
inc(FCurrent);
token := FCurrent^;
s := s + token;
end;
'Y', 'y' : begin
ScanDateTimeParts(token, token, s);
isTime := false;
end;
'M', 'm' : if isTime then // help fpc to separate "month" and "minute"
ScanDateTimeParts(token, 'n', s)
else // both "month" and "minute" work in fpc to some degree
ScanDateTimeParts(token, token, s);
'D', 'd' : begin
ScanDateTimeParts(token, token, s);
isTime := false;
end;
'H', 'h' : begin
ScanDateTimeParts(token, token, s);
isTime := true;
end;
'S', 's' : begin
ScanDateTimeParts(token, token, s);
isTime := true;
end;
'/', ':', '.', ']', '[', ' '
: s := s + token;
'0' : ScanDateTimeParts(token, 'z', s);
'A', 'a' : begin
ScanAMPM(s);
isAMPM := true;
end;
else begin
done := true;
dec(FCurrent);
// char pointer must be at end of date/time mask.
end;
end;
if not done then inc(FCurrent);
end;
FSections[FCurrSection].FormatString := FSections[FCurrSection].FormatString + s;
s := FSections[FCurrSection].FormatString;
// Check format
try
if s <> '' then begin
FormatDateTime(s, now);
// !!!! MODIFY TO USE EXTENDED SYNTAX !!!!!
if s = FWorkbook.FormatSettings.LongDateFormat then
nf := nfLongDate
else
if s = FWorkbook.FormatSettings.ShortDateFormat then
nf := nfShortDate
else
if s = FWorkbook.FormatSettings.LongTimeFormat then
nf := nfLongTime
else
if s = FWorkbook.FormatSettings.ShortTimeFormat then
nf := nfShortTime
else
nf := nfFmtDateTime;
FSections[FCurrSection].NumFormat := nf;
end;
except
FStatus := psErrNoValidDateTimeFormat;
end;
end;
procedure TsNumFormatParser.ScanAMPM(var s: String);
var
token: Char;
begin
while (FCurrent <= FEnd) do begin
token := FCurrent^;
if token in ['A', 'a', 'P', 'p', 'm', 'M', '/'] then
s := s + token
else begin
dec(FCurrent);
exit;
end;
inc(FCurrent);
end;
end;
procedure TsNumFormatParser.ScanDateTimeParts(TestToken, Replacement: Char;
var s: String);
var
token: Char;
begin
s := s + Replacement;
while (FCurrent <= FEnd) do begin
inc(FCurrent);
token := FCurrent^;
if token = TestToken then
s := s + Replacement
else begin
dec(FCurrent);
break;
end;
end;
end;
procedure TsNumFormatParser.ScanFormat;
var
token: Char;
done: Boolean;
begin
done := false;
while (FCurrent <= FEnd) and (FStatus = psOK) and (not done) do begin
token := FCurrent^;
case token of
// Strip Excel's formatting symbols
'\', '*' : ;
'_' : inc(FCurrent);
'"' : begin
inc(FCurrent);
ScanText;
end;
'0', '#', '.', ',', '-': ScanNumber;
'y', 'Y', 'm', 'M',
'd', 'D', 'h', 's', '[': ScanDateTime;
' ' : AddChar(token);
';' : begin
done := true;
dec(FCurrent);
// Cursor must stay on the ";"
end;
end;
if not done then inc(FCurrent);
end;
end;
procedure TsNumFormatParser.ScanNumber;
var
token: Char;
done: Boolean;
countdecs: Boolean;
s: String;
hasThSep: Boolean;
isExp: Boolean;
isSci: Boolean;
hasHash: Boolean;
hasPerc: Boolean;
nf: TsNumberFormat;
begin
countdecs := false;
done := false;
hasThSep := false;
hasHash := false;
hasPerc := false;
isExp := false;
isSci := false;
s := '';
while (FCurrent <= FEnd) and (FStatus = psOK) and (not done) do begin
token := FCurrent^;
case token of
',': begin
hasThSep := true;
s := s + token;
end;
'.': begin
countdecs := true;
FSections[FCurrSection].Decimals := 0;
s := s + token;
end;
'0': begin
if countdecs then inc(FSections[FCurrSection].Decimals);
s := s + token;
end;
'E', 'e':
begin
if hasHash and countdecs then isSci := true else isExp := true;
countdecs := false;
s := s + token;
end;
'+', '-':
s := s + token;
'#': begin
hasHash := true;
countdecs := false;
s := s + token;
end;
'%': begin
hasPerc := true;
s := s + token;
end;
else begin
done := true;
dec(FCurrent);
end;
end;
if not done then
inc(FCurrent);
end;
if s <> '' then begin
if isExp then
nf := nfExp
else if isSci then
nf := nfSci
else if hasPerc then
nf := nfPercentage
else if hasThSep then
nf := nfFixedTh
else
nf := nfFixed;
end else
nf := nfGeneral;
FSections[FCurrSection].NumFormat := nf;
FSections[FCurrSection].FormatString := FSections[FCurrSection].FormatString + s;
end;
{ Scans a text in quotation marks. Tries to interpret the text as a currency
symbol (--> AnalyzeText) }
procedure TsNumFormatParser.ScanText;
var
token: Char;
done: Boolean;
s: String;
begin
done := false;
s := '';
while (FCurrent <= FEnd) and (FStatus = psOK) and not done do begin
token := FCurrent^;
if token = '"' then begin
done := true;
AnalyzeText(s);
end else begin
s := s + token;
inc(FCurrent);
end;
end;
FSections[FCurrSection].FormatString := Format('%s"%s"',
[FSections[FCurrSection].FormatString, s]);
end;
end.

4
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -538,6 +538,7 @@ type
function GetItem(AIndex: Integer): TsNumFormatData; function GetItem(AIndex: Integer): TsNumFormatData;
procedure SetItem(AIndex: Integer; AValue: TsNumFormatData); procedure SetItem(AIndex: Integer; AValue: TsNumFormatData);
protected protected
FWorkbook: TsWorkbook;
FFirstFormatIndexInFile: Integer; FFirstFormatIndexInFile: Integer;
FNextFormatIndex: Integer; FNextFormatIndex: Integer;
procedure AddBuiltinFormats; virtual; procedure AddBuiltinFormats; virtual;
@ -562,6 +563,7 @@ type
function FormatStringForWriting(AIndex: Integer): String; virtual; function FormatStringForWriting(AIndex: Integer): String; virtual;
procedure Sort; procedure Sort;
property Workbook: TsWorkbook read FWorkbook;
property FirstFormatIndexInFile: Integer read FFirstFormatIndexInFile; property FirstFormatIndexInFile: Integer read FFirstFormatIndexInFile;
property Items[AIndex: Integer]: TsNumFormatData read GetItem write SetItem; default; property Items[AIndex: Integer]: TsNumFormatData read GetItem write SetItem; default;
end; end;
@ -2938,6 +2940,7 @@ begin
inherited Create; inherited Create;
FWorkbook := AWorkbook; FWorkbook := AWorkbook;
CreateNumFormatList; CreateNumFormatList;
FNumFormatList.FWorkbook := AWorkbook;
end; end;
destructor TsCustomSpreadReader.Destroy; destructor TsCustomSpreadReader.Destroy;
@ -3008,6 +3011,7 @@ begin
inherited Create; inherited Create;
FWorkbook := AWorkbook; FWorkbook := AWorkbook;
CreateNumFormatList; CreateNumFormatList;
FNumFormatList.FWorkbook := AWorkbook;
end; end;
destructor TsCustomSpreadWriter.Destroy; destructor TsCustomSpreadWriter.Destroy;

10
components/fpspreadsheet/fpsutils.pas
View File

@ -78,7 +78,9 @@ function SciFloat(AValue: Double; ADecimals: Byte): String;
//function TimeIntervalToString(AValue: TDateTime; AFormatStr: String): String; //function TimeIntervalToString(AValue: TDateTime; AFormatStr: String): String;
procedure MakeTimeIntervalMask(Src: String; var Dest: String); procedure MakeTimeIntervalMask(Src: String; var Dest: String);
function FormatDateTimeEx(const FormatStr: string; DateTime: TDateTime): string; function FormatDateTimeEx(const FormatStr: string; DateTime: TDateTime): String; overload;
function FormatDateTimeEx(const FormatStr: string; DateTime: TDateTime;
AFormatSettings: TFormatSettings): string; overload;
implementation implementation
@ -1248,5 +1250,11 @@ begin
DateTimeToString(Result, FormatStr, DateTime, DefaultFormatSettings); DateTimeToString(Result, FormatStr, DateTime, DefaultFormatSettings);
end; end;
function FormatDateTimeEx(const FormatStr: string; DateTime: TDateTime;
AFormatSettings: TFormatSettings): string;
begin
DateTimeToString(Result, FormatStr, DateTime, AFormatSettings);
end;
end. end.

11
components/fpspreadsheet/laz_fpspreadsheet.lpk
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="4">
<PathDelim Value="\"/> <PathDelim Value="\"/>
@ -27,7 +27,7 @@
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Files Count="19"> <Files Count="20">
<Item1> <Item1>
<Filename Value="fpolestorage.pas"/> <Filename Value="fpolestorage.pas"/>
<UnitName Value="fpolestorage"/> <UnitName Value="fpolestorage"/>
@ -104,6 +104,10 @@
<Filename Value="wikitable.pas"/> <Filename Value="wikitable.pas"/>
<UnitName Value="wikitable"/> <UnitName Value="wikitable"/>
</Item19> </Item19>
<Item20>
<Filename Value="fpsnumformatparser.pas"/>
<UnitName Value="fpsNumFormatParser"/>
</Item20>
</Files> </Files>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2"> <RequiredPkgs Count="2">
@ -122,5 +126,8 @@
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
</PublishOptions> </PublishOptions>
<CustomOptions Items="ExternHelp" Version="2">
<_ExternHelp Items="Count"/>
</CustomOptions>
</Package> </Package>
</CONFIG> </CONFIG>

6
components/fpspreadsheet/laz_fpspreadsheet.pas
View File

@ -8,12 +8,10 @@ interface
uses uses
fpolestorage, fpsallformats, fpsopendocument, fpspreadsheet, xlsbiff2, fpolestorage, fpsallformats, fpsopendocument, fpspreadsheet, xlsbiff2,
xlsbiff5, xlsbiff8, xlsxooxml, fpsutils, xlsbiff5, xlsbiff8, xlsxooxml, fpsutils, fpszipper, uvirtuallayer_types,
fpszipper,
uvirtuallayer_types,
uvirtuallayer, uvirtuallayer_ole, uvirtuallayer_ole_helpers, uvirtuallayer, uvirtuallayer_ole, uvirtuallayer_ole_helpers,
uvirtuallayer_ole_types, uvirtuallayer_stream, fpolebasic, xlscommon, uvirtuallayer_ole_types, uvirtuallayer_stream, fpolebasic, xlscommon,
wikitable, LazarusPackageIntf; wikitable, fpsNumFormatParser, LazarusPackageIntf;
implementation implementation

182
components/fpspreadsheet/tests/numformatparsertests.pas Normal file
View File

@ -0,0 +1,182 @@
unit numformatparsertests;
{$mode objfpc}{$H+}
interface
uses
// Not using Lazarus package as the user may be working with multiple versions
// Instead, add .. to unit search path
Classes, SysUtils, fpcunit, testutils, testregistry,
fpsallformats, fpspreadsheet, fpsnumformatparser, xlsbiff8
{and a project requirement for lclbase for utf8 handling},
testsutility;
type
TParserTestData = record
FormatString: String;
SollFormatString: String;
SollNumFormat: TsNumberFormat;
SollSectionCount: Integer;
SollDecimals: Byte;
SollCurrencySymbol: String;
end;
var
ParserTestData: Array[0..5] of TParserTestData;
procedure InitParserTestData;
type
TSpreadNumFormatParserTests = class(TTestCase)
private
protected
// Set up expected values:
procedure SetUp; override;
procedure TearDown; override;
// Reads numbers values from spreadsheet and checks against list
// One cell per test so some tests can fail and those further below may still work
published
procedure TestNumFormatParser;
end;
implementation
uses
TypInfo;
procedure InitParserTestData;
begin
// Tests with 1 format section only
with ParserTestData[0] do begin
FormatString := '0';
SollFormatString := '0';
SollNumFormat := nfFixed;
SollSectionCount := 1;
SollDecimals := 0;
SollCurrencySymbol := '';
end;
with ParserTestData[1] do begin
FormatString := '0.000';
SollFormatString := '0.000';
SollNumFormat := nfFixed;
SollSectionCount := 1;
SollDecimals := 3;
SollCurrencySymbol := '';
end;
with ParserTestData[2] do begin
FormatString := '#,##0.000';
SollFormatString := '#,##0.000';
SollNumFormat := nfFixedTh;
SollSectionCount := 1;
SollDecimals := 3;
SollCurrencySymbol := '';
end;
with ParserTestData[3] do begin
FormatString := '0.000%';
SollFormatString := '0.000%';
SollNumFormat := nfPercentage;
SollSectionCount := 1;
SollDecimals := 3;
SollCurrencySymbol := '';
end;
with ParserTestData[4] do begin
FormatString := 'hh:mm:ss';
SollFormatString := 'hh:nn:ss';
SollNumFormat := nfLongTime;
SollSectionCount := 1;
SollDecimals := 0;
SollCurrencySymbol := '';
end;
with ParserTestData[5] do begin
FormatString := 'hh:mm:ss AM/PM';
SollFormatString := 'hh:nn:ss AM/PM';
SollNumFormat := nfLongTimeAM;
SollSectionCount := 1;
SollDecimals := 0;
SollCurrencySymbol := '';
end;
{
with ParserTestData[4] do begin
FormatString := '#,##0.00 "$";-#,##0.00 "$";0.00 "$"';
SollFormatString := '#,##0.00 "$";-#,##0.00 "$";0.00 "$"';
SollNumFormat := nfCurrency;
SollSectionCount := 3;
SollDecimals := 2;
SollCurrencySymbol := '$';
end;
with ParserTestData[5] do begin
FormatString := '#,##0.00 "$";-#,##0.00 "$";-';
SollFormatString := '#,##0.00 "$";-#,##0.00 "$";-';
SollNumFormat := nfCurrencyDash;
SollSectionCount := 3;
SollDecimals := 2;
SollCurrencySymbol := '$';
end; }
{
// This case will report a mismatching FormatString because of the [RED] --> ignore
with ParserTestData[6] do begin
FormatString := '#,##0.00 "$";[RED]-#,##0.00 "$";-';
SollFormatString := '#,##0.00 "$";-#,##0.00 "$";-';
SollNumFormat := nfCurrencyDashRed;
SollSectionCount := 3;
SollDecimals := 2;
SollCurrencySymbol := '$';
end;
}
end;
{ TSpreadNumFormatParserTests }
procedure TSpreadNumFormatParserTests.SetUp;
begin
inherited SetUp;
InitParserTestData;
end;
procedure TSpreadNumFormatParserTests.TearDown;
begin
inherited TearDown;
end;
procedure TSpreadNumFormatParserTests.TestNumFormatParser;
var
i: Integer;
parser: TsNumFormatParser;
MyWorkbook: TsWorkbook;
begin
MyWorkbook := TsWorkbook.Create; // needed to provide the FormatSettings for the parser
try
for i:=0 to 6 do begin
parser := TsNumFormatParser.Create(MyWorkbook, ParserTestData[i].FormatString);
try
CheckEquals(ParserTestData[i].SollFormatString, parser.FormatString,
'Test format string ' + ParserTestData[i].FormatString + ' construction mismatch');
CheckEquals(ord(ParserTestData[i].SollNumFormat), ord(parser.ParsedSections[0].NumFormat),
'Test format (' + GetEnumName(TypeInfo(TsNumberFormat), integer(ParserTestData[i].SollNumFormat)) +
') detection mismatch');
CheckEquals(ParserTestData[i].SollDecimals, parser.ParsedSections[0].Decimals,
'Test format (' + ParserTestData[i].FormatString + ') decimal detection mismatch');
CheckEquals(ParserTestData[i].SollCurrencySymbol, parser.ParsedSections[0].CurrencySymbol,
'Test format (' + ParserTestData[i].FormatString + ') currency symbol detection mismatch');
CheckEquals(ParserTestData[i].SollSectionCount, parser.ParsedSectionCount,
'Test format (' + ParserTestData[i].FormatString + ') section count mismatch');
finally
parser.Free;
end;
end;
finally
MyWorkbook.Free;
end;
end;
initialization
// Register so these tests are included in a full run
RegisterTest(TSpreadNumFormatParserTests);
InitParserTestData; //useful to have norm data if other code want to use this unit
end.
end.

7
components/fpspreadsheet/tests/spreadtestgui.lpi
View File

@ -78,7 +78,7 @@
<PackageName Value="FCL"/> <PackageName Value="FCL"/>
</Item4> </Item4>
</RequiredPackages> </RequiredPackages>
<Units Count="11"> <Units Count="12">
<Unit0> <Unit0>
<Filename Value="spreadtestgui.lpr"/> <Filename Value="spreadtestgui.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -134,6 +134,11 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="optiontests"/> <UnitName Value="optiontests"/>
</Unit10> </Unit10>
<Unit11>
<Filename Value="numformatparsertests.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="numformatparsertests"/>
</Unit11>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

2
components/fpspreadsheet/tests/spreadtestgui.lpr
View File

@ -5,7 +5,7 @@ program spreadtestgui;
uses uses
Interfaces, Forms, GuiTestRunner, datetests, stringtests, numberstests, Interfaces, Forms, GuiTestRunner, datetests, stringtests, numberstests,
manualtests, testsutility, internaltests, formattests, colortests, fonttests, manualtests, testsutility, internaltests, formattests, colortests, fonttests,
optiontests; optiontests, numformatparsertests;
begin begin
Application.Initialize; Application.Initialize;

36
components/fpspreadsheet/xlscommon.pas
View File

@ -480,7 +480,7 @@ type
implementation implementation
uses uses
StrUtils; StrUtils, fpsNumFormatParser;
function ConvertExcelDateTimeToDateTime( function ConvertExcelDateTimeToDateTime(
const AExcelDateNum: Double; ADateMode: TDateMode): TDateTime; const AExcelDateNum: Double; ADateMode: TDateMode): TDateTime;
@ -533,21 +533,6 @@ begin
end; end;
{ TsBIFFNumFormatParser } (*
constructor TsBIFFNumFormatParser.Create(AFormatString: String);
begin
inherited;
FFormatString := AFormatString;
Parse;
end;
procedure TsBIFFNumFormatParser.Parse;
begin
//
end;
*)
{ TsBIFFNumFormatList } { TsBIFFNumFormatList }
{ These are the built-in number formats as used by fpc. Before writing to file { These are the built-in number formats as used by fpc. Before writing to file
@ -608,12 +593,29 @@ procedure TsBIFFNumFormatList.Analyze(AFormatIndex: Integer;
var AFormatString: String; var ANumFormat: TsNumberFormat; var AFormatString: String; var ANumFormat: TsNumberFormat;
var ADecimals: Byte; var ACurrencySymbol: String); var ADecimals: Byte; var ACurrencySymbol: String);
var var
parser: TsNumFormatParser;
fmt: String; fmt: String;
begin begin
{
AFormatString := 'hh:mm AM/PM'; //"€" #,##.0;[red]"$" -#,##.000;-';
parser := TsNumFormatParser.Create(Workbook, AFormatString);
try
fmt := parser.FormatString;
ANumFormat := parser.ParsedSections[0].NumFormat;
ADecimals := parser.ParsedSections[0].Decimals;
ACurrencySymbol := parser.ParsedSections[0].CurrencySymbol;
finally
parser.Free;
end;
}
fmt := Lowercase(AFormatString); fmt := Lowercase(AFormatString);
{ Check the built-in formats first: { Check the built-in formats first:
The prefix "[$-F400]" before the formatting string means that the system's The prefix "[$-F400]" before the formatting string means that the system's
long Time format string is used. } long time format string is used. }
if (pos('[$-F400]', AFormatString) = 1) then begin if (pos('[$-F400]', AFormatString) = 1) then begin
ANumFormat := nfLongTime; ANumFormat := nfLongTime;
AFormatString := ''; // will be replaced by system's format setting AFormatString := ''; // will be replaced by system's format setting