You've already forked lazarus-ccr
fpspreadsheet: Starts adding read support
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@656 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
273
components/fpspreadsheet/examples/excel2demo/excel2read.lpi
Normal file
273
components/fpspreadsheet/examples/excel2demo/excel2read.lpi
Normal file
@ -0,0 +1,273 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Version Value="7"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<LRSInOutputDirectory Value="False"/>
|
||||||
|
</Flags>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<TargetFileExt Value=".exe"/>
|
||||||
|
<Title Value="excel2read"/>
|
||||||
|
<ActiveEditorIndexAtStart Value="4"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<ProjectVersion Value=""/>
|
||||||
|
<Language Value=""/>
|
||||||
|
<CharSet Value=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="laz_fpspreadsheet"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="13">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="excel2read.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="excel2read"/>
|
||||||
|
<CursorPos X="6" Y="23"/>
|
||||||
|
<TopLine Value="12"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<UsageCount Value="309"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="..\fpolestorage.pas"/>
|
||||||
|
<UnitName Value="fpolestorage"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="19"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\lcl\interfaces\win32\win32wsstdctrls.pp"/>
|
||||||
|
<UnitName Value="Win32WSStdCtrls"/>
|
||||||
|
<CursorPos X="35" Y="720"/>
|
||||||
|
<TopLine Value="713"/>
|
||||||
|
<UsageCount Value="76"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\ideintf\componenteditors.pas"/>
|
||||||
|
<UnitName Value="ComponentEditors"/>
|
||||||
|
<CursorPos X="40" Y="332"/>
|
||||||
|
<TopLine Value="330"/>
|
||||||
|
<UsageCount Value="74"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="..\..\xlsbiff5.pas"/>
|
||||||
|
<UnitName Value="xlsbiff5"/>
|
||||||
|
<CursorPos X="29" Y="1"/>
|
||||||
|
<TopLine Value="22"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<UsageCount Value="140"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="..\..\fpsutils.pas"/>
|
||||||
|
<UnitName Value="fpsutils"/>
|
||||||
|
<CursorPos X="1" Y="49"/>
|
||||||
|
<TopLine Value="30"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<UsageCount Value="140"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<UnitName Value="xlsbiff2"/>
|
||||||
|
<CursorPos X="16" Y="357"/>
|
||||||
|
<TopLine Value="347"/>
|
||||||
|
<EditorIndex Value="4"/>
|
||||||
|
<UsageCount Value="139"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<UnitName Value="fpolestorage"/>
|
||||||
|
<CursorPos X="30" Y="654"/>
|
||||||
|
<TopLine Value="642"/>
|
||||||
|
<EditorIndex Value="5"/>
|
||||||
|
<UsageCount Value="139"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\classesh.inc"/>
|
||||||
|
<CursorPos X="19" Y="562"/>
|
||||||
|
<TopLine Value="553"/>
|
||||||
|
<UsageCount Value="41"/>
|
||||||
|
</Unit8>
|
||||||
|
<Unit9>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\streams.inc"/>
|
||||||
|
<CursorPos X="21" Y="158"/>
|
||||||
|
<TopLine Value="151"/>
|
||||||
|
<UsageCount Value="41"/>
|
||||||
|
</Unit9>
|
||||||
|
<Unit10>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<UnitName Value="fpspreadsheet"/>
|
||||||
|
<CursorPos X="2" Y="714"/>
|
||||||
|
<TopLine Value="701"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<UsageCount Value="92"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit10>
|
||||||
|
<Unit11>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\lcl\include\customtrayicon.inc"/>
|
||||||
|
<CursorPos X="22" Y="203"/>
|
||||||
|
<TopLine Value="197"/>
|
||||||
|
<UsageCount Value="67"/>
|
||||||
|
</Unit11>
|
||||||
|
<Unit12>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\sysutils\sysstrh.inc"/>
|
||||||
|
<CursorPos X="26" Y="154"/>
|
||||||
|
<TopLine Value="144"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit12>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="30" HistoryIndex="29">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="309" Column="1" TopLine="299"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="310" Column="1" TopLine="300"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="312" Column="1" TopLine="302"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="314" Column="1" TopLine="304"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="317" Column="1" TopLine="307"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="326" Column="1" TopLine="316"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="328" Column="1" TopLine="318"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="309" Column="1" TopLine="299"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="310" Column="1" TopLine="300"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="312" Column="1" TopLine="302"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="314" Column="1" TopLine="304"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="317" Column="1" TopLine="307"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="326" Column="1" TopLine="316"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="328" Column="1" TopLine="318"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="309" Column="1" TopLine="299"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="310" Column="1" TopLine="300"/>
|
||||||
|
</Position16>
|
||||||
|
<Position17>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="312" Column="1" TopLine="302"/>
|
||||||
|
</Position17>
|
||||||
|
<Position18>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="314" Column="1" TopLine="304"/>
|
||||||
|
</Position18>
|
||||||
|
<Position19>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="317" Column="1" TopLine="307"/>
|
||||||
|
</Position19>
|
||||||
|
<Position20>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="326" Column="1" TopLine="316"/>
|
||||||
|
</Position20>
|
||||||
|
<Position21>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="328" Column="1" TopLine="318"/>
|
||||||
|
</Position21>
|
||||||
|
<Position22>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="309" Column="1" TopLine="299"/>
|
||||||
|
</Position22>
|
||||||
|
<Position23>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="310" Column="1" TopLine="300"/>
|
||||||
|
</Position23>
|
||||||
|
<Position24>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="312" Column="1" TopLine="302"/>
|
||||||
|
</Position24>
|
||||||
|
<Position25>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="314" Column="1" TopLine="304"/>
|
||||||
|
</Position25>
|
||||||
|
<Position26>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="320" Column="1" TopLine="310"/>
|
||||||
|
</Position26>
|
||||||
|
<Position27>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="100" Column="16" TopLine="87"/>
|
||||||
|
</Position27>
|
||||||
|
<Position28>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="357" Column="16" TopLine="348"/>
|
||||||
|
</Position28>
|
||||||
|
<Position29>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="354" Column="6" TopLine="344"/>
|
||||||
|
</Position29>
|
||||||
|
<Position30>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<Caret Line="356" Column="14" TopLine="340"/>
|
||||||
|
</Position30>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="8"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<OtherUnitFiles Value="..\"/>
|
||||||
|
<SrcPath Value="..\"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
</CONFIG>
|
||||||
49
components/fpspreadsheet/examples/excel2demo/excel2read.lpr
Normal file
49
components/fpspreadsheet/examples/excel2demo/excel2read.lpr
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
{
|
||||||
|
excel2read.dpr
|
||||||
|
|
||||||
|
Demonstrates how to read an Excel 2.x file using the fpspreadsheet library
|
||||||
|
|
||||||
|
AUTHORS: Felipe Monteiro de Carvalho
|
||||||
|
}
|
||||||
|
program excel2read;
|
||||||
|
|
||||||
|
{$mode delphi}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, fpspreadsheet, xlsbiff2, laz_fpspreadsheet;
|
||||||
|
|
||||||
|
var
|
||||||
|
MyWorkbook: TsWorkbook;
|
||||||
|
MyWorksheet: TsWorksheet;
|
||||||
|
InputFilename: string;
|
||||||
|
MyDir: string;
|
||||||
|
i: Integer;
|
||||||
|
CurCell: PCell;
|
||||||
|
begin
|
||||||
|
// Open the input file
|
||||||
|
MyDir := ExtractFilePath(ParamStr(0));
|
||||||
|
InputFileName := MyDir + 'test' + STR_EXCEL_EXTENSION;
|
||||||
|
WriteLn('Opening input file ', InputFilename);
|
||||||
|
|
||||||
|
// Create the spreadsheet
|
||||||
|
MyWorkbook := TsWorkbook.Create;
|
||||||
|
MyWorkbook.ReadFromFile(InputFilename, sfExcel2);
|
||||||
|
|
||||||
|
MyWorksheet := MyWorkbook.GetFirstWorksheet;
|
||||||
|
|
||||||
|
// Write all cells with contents to the console
|
||||||
|
WriteLn('');
|
||||||
|
WriteLn('Contents of the first worksheet of the file:');
|
||||||
|
WriteLn('');
|
||||||
|
|
||||||
|
for i := 0 to MyWorksheet.GetCellCount - 1 do
|
||||||
|
begin
|
||||||
|
CurCell := MyWorkSheet.GetCellByIndex(i);
|
||||||
|
WriteLn('Row: ', CurCell^.Row, ' Col: ', CurCell^.Col, ' Value: ',
|
||||||
|
MyWorkSheet.ReadAsAnsiText(CurCell^.Row, CurCell^.Col));
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Finalization
|
||||||
|
MyWorkbook.Free;
|
||||||
|
end.
|
||||||
|
|
||||||
251
components/fpspreadsheet/examples/excel2demo/excel2write.lpi
Normal file
251
components/fpspreadsheet/examples/excel2demo/excel2write.lpi
Normal file
@ -0,0 +1,251 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Version Value="7"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<LRSInOutputDirectory Value="False"/>
|
||||||
|
</Flags>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<TargetFileExt Value=".exe"/>
|
||||||
|
<Title Value="excel2write"/>
|
||||||
|
<ActiveEditorIndexAtStart Value="0"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<ProjectVersion Value=""/>
|
||||||
|
<Language Value=""/>
|
||||||
|
<CharSet Value=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="laz_fpspreadsheet"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="12">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="excel2write.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="excel2write"/>
|
||||||
|
<CursorPos X="30" Y="37"/>
|
||||||
|
<TopLine Value="19"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<UsageCount Value="309"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="..\fpolestorage.pas"/>
|
||||||
|
<UnitName Value="fpolestorage"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="19"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\lcl\interfaces\win32\win32wsstdctrls.pp"/>
|
||||||
|
<UnitName Value="Win32WSStdCtrls"/>
|
||||||
|
<CursorPos X="35" Y="720"/>
|
||||||
|
<TopLine Value="713"/>
|
||||||
|
<UsageCount Value="76"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\ideintf\componenteditors.pas"/>
|
||||||
|
<UnitName Value="ComponentEditors"/>
|
||||||
|
<CursorPos X="40" Y="332"/>
|
||||||
|
<TopLine Value="330"/>
|
||||||
|
<UsageCount Value="74"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="..\..\xlsbiff5.pas"/>
|
||||||
|
<UnitName Value="xlsbiff5"/>
|
||||||
|
<CursorPos X="1" Y="224"/>
|
||||||
|
<TopLine Value="215"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<UsageCount Value="140"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="..\..\fpsutils.pas"/>
|
||||||
|
<UnitName Value="fpsutils"/>
|
||||||
|
<CursorPos X="1" Y="49"/>
|
||||||
|
<TopLine Value="30"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<UsageCount Value="140"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<UnitName Value="xlsbiff2"/>
|
||||||
|
<CursorPos X="1" Y="69"/>
|
||||||
|
<TopLine Value="57"/>
|
||||||
|
<EditorIndex Value="4"/>
|
||||||
|
<UsageCount Value="139"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<UnitName Value="fpolestorage"/>
|
||||||
|
<CursorPos X="30" Y="654"/>
|
||||||
|
<TopLine Value="642"/>
|
||||||
|
<EditorIndex Value="5"/>
|
||||||
|
<UsageCount Value="139"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\classesh.inc"/>
|
||||||
|
<CursorPos X="19" Y="562"/>
|
||||||
|
<TopLine Value="553"/>
|
||||||
|
<UsageCount Value="41"/>
|
||||||
|
</Unit8>
|
||||||
|
<Unit9>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\streams.inc"/>
|
||||||
|
<CursorPos X="21" Y="158"/>
|
||||||
|
<TopLine Value="151"/>
|
||||||
|
<UsageCount Value="41"/>
|
||||||
|
</Unit9>
|
||||||
|
<Unit10>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<UnitName Value="fpspreadsheet"/>
|
||||||
|
<CursorPos X="3" Y="428"/>
|
||||||
|
<TopLine Value="420"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<UsageCount Value="92"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit10>
|
||||||
|
<Unit11>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\lcl\include\customtrayicon.inc"/>
|
||||||
|
<CursorPos X="22" Y="203"/>
|
||||||
|
<TopLine Value="197"/>
|
||||||
|
<UsageCount Value="67"/>
|
||||||
|
</Unit11>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="26" HistoryIndex="25">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="40" Column="5" TopLine="31"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="472" Column="49" TopLine="461"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="405" Column="5" TopLine="386"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="404" Column="14" TopLine="401"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="79" Column="42" TopLine="72"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="78" Column="31" TopLine="67"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="314" Column="39" TopLine="296"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="479" Column="1" TopLine="469"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="470" Column="1" TopLine="460"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="..\..\xlsbiff5.pas"/>
|
||||||
|
<Caret Line="217" Column="3" TopLine="205"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="..\..\xlsbiff5.pas"/>
|
||||||
|
<Caret Line="218" Column="23" TopLine="208"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="78" Column="10" TopLine="66"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="375" Column="1" TopLine="367"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="76" Column="17" TopLine="65"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="363" Column="1" TopLine="357"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="77" Column="7" TopLine="76"/>
|
||||||
|
</Position16>
|
||||||
|
<Position17>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="137" Column="40" TopLine="129"/>
|
||||||
|
</Position17>
|
||||||
|
<Position18>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="563" Column="5" TopLine="544"/>
|
||||||
|
</Position18>
|
||||||
|
<Position19>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="486" Column="5" TopLine="467"/>
|
||||||
|
</Position19>
|
||||||
|
<Position20>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="510" Column="5" TopLine="491"/>
|
||||||
|
</Position20>
|
||||||
|
<Position21>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="94" Column="46" TopLine="84"/>
|
||||||
|
</Position21>
|
||||||
|
<Position22>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="686" Column="5" TopLine="667"/>
|
||||||
|
</Position22>
|
||||||
|
<Position23>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="567" Column="5" TopLine="548"/>
|
||||||
|
</Position23>
|
||||||
|
<Position24>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="622" Column="1" TopLine="618"/>
|
||||||
|
</Position24>
|
||||||
|
<Position25>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="621" Column="29" TopLine="611"/>
|
||||||
|
</Position25>
|
||||||
|
<Position26>
|
||||||
|
<Filename Value="excel2write.lpr"/>
|
||||||
|
<Caret Line="30" Column="21" TopLine="19"/>
|
||||||
|
</Position26>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="8"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<OtherUnitFiles Value="..\"/>
|
||||||
|
<SrcPath Value="..\"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
</CONFIG>
|
||||||
43
components/fpspreadsheet/examples/excel2demo/excel2write.lpr
Normal file
43
components/fpspreadsheet/examples/excel2demo/excel2write.lpr
Normal file
@ -0,0 +1,43 @@
|
|||||||
|
{
|
||||||
|
excel2write.dpr
|
||||||
|
|
||||||
|
Demonstrates how to write an Excel 2.x file using the fpspreadsheet library
|
||||||
|
|
||||||
|
AUTHORS: Felipe Monteiro de Carvalho
|
||||||
|
}
|
||||||
|
program excel2write;
|
||||||
|
|
||||||
|
{$mode delphi}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, fpspreadsheet, xlsbiff2, laz_fpspreadsheet;
|
||||||
|
|
||||||
|
var
|
||||||
|
MyWorkbook: TsWorkbook;
|
||||||
|
MyWorksheet: TsWorksheet;
|
||||||
|
MyDir: string;
|
||||||
|
begin
|
||||||
|
// Open the output file
|
||||||
|
MyDir := ExtractFilePath(ParamStr(0));
|
||||||
|
|
||||||
|
// Create the spreadsheet
|
||||||
|
MyWorkbook := TsWorkbook.Create;
|
||||||
|
MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet');
|
||||||
|
|
||||||
|
// Write some number cells
|
||||||
|
MyWorksheet.WriteNumber(0, 0, 1.0);
|
||||||
|
MyWorksheet.WriteNumber(0, 1, 2.0);
|
||||||
|
MyWorksheet.WriteNumber(0, 2, 3.0);
|
||||||
|
MyWorksheet.WriteNumber(0, 3, 4.0);
|
||||||
|
|
||||||
|
// Write some string cells
|
||||||
|
MyWorksheet.WriteAnsiText(1, 0, 'First');
|
||||||
|
MyWorksheet.WriteAnsiText(1, 1, 'Second');
|
||||||
|
MyWorksheet.WriteAnsiText(1, 2, 'Third');
|
||||||
|
MyWorksheet.WriteAnsiText(1, 3, 'Fourth');
|
||||||
|
|
||||||
|
// Save the spreadsheet to a file
|
||||||
|
MyWorkbook.WriteToFile(MyDir + 'test' + STR_EXCEL_EXTENSION, sfExcel2);
|
||||||
|
MyWorkbook.Free;
|
||||||
|
end.
|
||||||
|
|
||||||
@ -0,0 +1,2 @@
|
|||||||
|
excel2read.exe
|
||||||
|
pause
|
||||||
@ -1,3 +1,3 @@
|
|||||||
del test.xls
|
del test.xls
|
||||||
excel5demo.exe
|
excel2write.exe
|
||||||
pause
|
pause
|
||||||
273
components/fpspreadsheet/examples/excel5demo/excel5read.lpi
Normal file
273
components/fpspreadsheet/examples/excel5demo/excel5read.lpi
Normal file
@ -0,0 +1,273 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Version Value="7"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<LRSInOutputDirectory Value="False"/>
|
||||||
|
</Flags>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<TargetFileExt Value=".exe"/>
|
||||||
|
<Title Value="excel5read"/>
|
||||||
|
<ActiveEditorIndexAtStart Value="1"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<ProjectVersion Value=""/>
|
||||||
|
<Language Value=""/>
|
||||||
|
<CharSet Value=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="laz_fpspreadsheet"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="13">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="excel5read.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="excel5read"/>
|
||||||
|
<CursorPos X="1" Y="21"/>
|
||||||
|
<TopLine Value="3"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<UsageCount Value="309"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="..\fpolestorage.pas"/>
|
||||||
|
<UnitName Value="fpolestorage"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="19"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\lcl\interfaces\win32\win32wsstdctrls.pp"/>
|
||||||
|
<UnitName Value="Win32WSStdCtrls"/>
|
||||||
|
<CursorPos X="35" Y="720"/>
|
||||||
|
<TopLine Value="713"/>
|
||||||
|
<UsageCount Value="76"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\ideintf\componenteditors.pas"/>
|
||||||
|
<UnitName Value="ComponentEditors"/>
|
||||||
|
<CursorPos X="40" Y="332"/>
|
||||||
|
<TopLine Value="330"/>
|
||||||
|
<UsageCount Value="74"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="..\..\xlsbiff5.pas"/>
|
||||||
|
<UnitName Value="xlsbiff5"/>
|
||||||
|
<CursorPos X="15" Y="64"/>
|
||||||
|
<TopLine Value="54"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<UsageCount Value="140"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="..\..\fpsutils.pas"/>
|
||||||
|
<UnitName Value="fpsutils"/>
|
||||||
|
<CursorPos X="1" Y="49"/>
|
||||||
|
<TopLine Value="30"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<UsageCount Value="140"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
|
<UnitName Value="xlsbiff2"/>
|
||||||
|
<CursorPos X="1" Y="69"/>
|
||||||
|
<TopLine Value="57"/>
|
||||||
|
<EditorIndex Value="4"/>
|
||||||
|
<UsageCount Value="139"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<UnitName Value="fpolestorage"/>
|
||||||
|
<CursorPos X="30" Y="654"/>
|
||||||
|
<TopLine Value="642"/>
|
||||||
|
<EditorIndex Value="5"/>
|
||||||
|
<UsageCount Value="139"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\classesh.inc"/>
|
||||||
|
<CursorPos X="19" Y="562"/>
|
||||||
|
<TopLine Value="553"/>
|
||||||
|
<UsageCount Value="41"/>
|
||||||
|
</Unit8>
|
||||||
|
<Unit9>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\streams.inc"/>
|
||||||
|
<CursorPos X="21" Y="158"/>
|
||||||
|
<TopLine Value="151"/>
|
||||||
|
<UsageCount Value="41"/>
|
||||||
|
</Unit9>
|
||||||
|
<Unit10>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<UnitName Value="fpspreadsheet"/>
|
||||||
|
<CursorPos X="1" Y="197"/>
|
||||||
|
<TopLine Value="189"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<UsageCount Value="92"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit10>
|
||||||
|
<Unit11>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus\lcl\include\customtrayicon.inc"/>
|
||||||
|
<CursorPos X="22" Y="203"/>
|
||||||
|
<TopLine Value="197"/>
|
||||||
|
<UsageCount Value="67"/>
|
||||||
|
</Unit11>
|
||||||
|
<Unit12>
|
||||||
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\sysutils\sysstrh.inc"/>
|
||||||
|
<CursorPos X="26" Y="154"/>
|
||||||
|
<TopLine Value="144"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit12>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="30" HistoryIndex="29">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="486" Column="5" TopLine="467"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="510" Column="5" TopLine="491"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="94" Column="46" TopLine="84"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="686" Column="5" TopLine="667"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="567" Column="5" TopLine="548"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="622" Column="1" TopLine="618"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
|
<Caret Line="621" Column="29" TopLine="611"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="excel5read.lpr"/>
|
||||||
|
<Caret Line="40" Column="17" TopLine="29"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="85" Column="3" TopLine="83"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="304" Column="5" TopLine="293"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="319" Column="32" TopLine="305"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="363" Column="15" TopLine="349"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="362" Column="36" TopLine="353"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="excel5read.lpr"/>
|
||||||
|
<Caret Line="40" Column="17" TopLine="29"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="excel5read.lpr"/>
|
||||||
|
<Caret Line="24" Column="1" TopLine="13"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="excel5read.lpr"/>
|
||||||
|
<Caret Line="29" Column="6" TopLine="19"/>
|
||||||
|
</Position16>
|
||||||
|
<Position17>
|
||||||
|
<Filename Value="excel5read.lpr"/>
|
||||||
|
<Caret Line="16" Column="17" TopLine="6"/>
|
||||||
|
</Position17>
|
||||||
|
<Position18>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="110" Column="3" TopLine="108"/>
|
||||||
|
</Position18>
|
||||||
|
<Position19>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="475" Column="5" TopLine="456"/>
|
||||||
|
</Position19>
|
||||||
|
<Position20>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="505" Column="42" TopLine="496"/>
|
||||||
|
</Position20>
|
||||||
|
<Position21>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="175" Column="24" TopLine="165"/>
|
||||||
|
</Position21>
|
||||||
|
<Position22>
|
||||||
|
<Filename Value="excel5read.lpr"/>
|
||||||
|
<Caret Line="16" Column="17" TopLine="6"/>
|
||||||
|
</Position22>
|
||||||
|
<Position23>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="143" Column="15" TopLine="115"/>
|
||||||
|
</Position23>
|
||||||
|
<Position24>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="119" Column="67" TopLine="108"/>
|
||||||
|
</Position24>
|
||||||
|
<Position25>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="485" Column="42" TopLine="474"/>
|
||||||
|
</Position25>
|
||||||
|
<Position26>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="161" Column="3" TopLine="159"/>
|
||||||
|
</Position26>
|
||||||
|
<Position27>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="141" Column="3" TopLine="139"/>
|
||||||
|
</Position27>
|
||||||
|
<Position28>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="669" Column="20" TopLine="658"/>
|
||||||
|
</Position28>
|
||||||
|
<Position29>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="158" Column="15" TopLine="143"/>
|
||||||
|
</Position29>
|
||||||
|
<Position30>
|
||||||
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
|
<Caret Line="116" Column="71" TopLine="106"/>
|
||||||
|
</Position30>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="8"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<OtherUnitFiles Value="..\"/>
|
||||||
|
<SrcPath Value="..\"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
</CONFIG>
|
||||||
49
components/fpspreadsheet/examples/excel5demo/excel5read.lpr
Normal file
49
components/fpspreadsheet/examples/excel5demo/excel5read.lpr
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
{
|
||||||
|
excel5read.dpr
|
||||||
|
|
||||||
|
Demonstrates how to read an Excel 5.x file using the fpspreadsheet library
|
||||||
|
|
||||||
|
AUTHORS: Felipe Monteiro de Carvalho
|
||||||
|
}
|
||||||
|
program excel5read;
|
||||||
|
|
||||||
|
{$mode delphi}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, fpspreadsheet, xlsbiff5, laz_fpspreadsheet;
|
||||||
|
|
||||||
|
var
|
||||||
|
MyWorkbook: TsWorkbook;
|
||||||
|
MyWorksheet: TsWorksheet;
|
||||||
|
InputFilename: string;
|
||||||
|
MyDir: string;
|
||||||
|
i: Integer;
|
||||||
|
CurCell: PCell;
|
||||||
|
begin
|
||||||
|
// Open the input file
|
||||||
|
MyDir := ExtractFilePath(ParamStr(0));
|
||||||
|
InputFileName := MyDir + 'test' + STR_EXCEL_EXTENSION;
|
||||||
|
WriteLn('Opening input file ', InputFilename);
|
||||||
|
|
||||||
|
// Create the spreadsheet
|
||||||
|
MyWorkbook := TsWorkbook.Create;
|
||||||
|
MyWorkbook.ReadFromFile(InputFilename, sfExcel5);
|
||||||
|
|
||||||
|
MyWorksheet := MyWorkbook.GetFirstWorksheet;
|
||||||
|
|
||||||
|
// Write all cells with contents to the console
|
||||||
|
WriteLn('');
|
||||||
|
WriteLn('Contents of the first worksheet of the file:');
|
||||||
|
WriteLn('');
|
||||||
|
|
||||||
|
for i := 0 to MyWorksheet.GetCellCount do
|
||||||
|
begin
|
||||||
|
CurCell := MyWorkSheet.GetCellByIndex(i);
|
||||||
|
WriteLn('Row: ', CurCell^.Row, ' Col: ', CurCell^.Col, ' Value: ',
|
||||||
|
MyWorkSheet.ReadAsAnsiText(CurCell^.Row, CurCell^.Col));
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Finalization
|
||||||
|
MyWorkbook.Free;
|
||||||
|
end.
|
||||||
|
|
||||||
204
components/fpspreadsheet/examples/excel5demo/excel5demo.lpi → components/fpspreadsheet/examples/excel5demo/excel5write.lpi
Executable file → Normal file
204
components/fpspreadsheet/examples/excel5demo/excel5demo.lpi → components/fpspreadsheet/examples/excel5demo/excel5write.lpi
Executable file → Normal file
@ -2,10 +2,14 @@
|
|||||||
<CONFIG>
|
<CONFIG>
|
||||||
<ProjectOptions>
|
<ProjectOptions>
|
||||||
<PathDelim Value="\"/>
|
<PathDelim Value="\"/>
|
||||||
<Version Value="6"/>
|
<Version Value="7"/>
|
||||||
<General>
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<LRSInOutputDirectory Value="False"/>
|
||||||
|
</Flags>
|
||||||
<MainUnit Value="0"/>
|
<MainUnit Value="0"/>
|
||||||
<TargetFileExt Value=".exe"/>
|
<TargetFileExt Value=".exe"/>
|
||||||
|
<Title Value="excel5write"/>
|
||||||
<ActiveEditorIndexAtStart Value="0"/>
|
<ActiveEditorIndexAtStart Value="0"/>
|
||||||
</General>
|
</General>
|
||||||
<VersionInfo>
|
<VersionInfo>
|
||||||
@ -30,243 +34,203 @@
|
|||||||
<PackageName Value="laz_fpspreadsheet"/>
|
<PackageName Value="laz_fpspreadsheet"/>
|
||||||
</Item1>
|
</Item1>
|
||||||
</RequiredPackages>
|
</RequiredPackages>
|
||||||
<Units Count="16">
|
<Units Count="12">
|
||||||
<Unit0>
|
<Unit0>
|
||||||
<Filename Value="excel5demo.lpr"/>
|
<Filename Value="excel5write.lpr"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
<UnitName Value="excel5demo"/>
|
<UnitName Value="excel5write"/>
|
||||||
<CursorPos X="8" Y="21"/>
|
<CursorPos X="8" Y="21"/>
|
||||||
<TopLine Value="52"/>
|
<TopLine Value="52"/>
|
||||||
<EditorIndex Value="0"/>
|
<EditorIndex Value="0"/>
|
||||||
<UsageCount Value="196"/>
|
<UsageCount Value="309"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
</Unit0>
|
</Unit0>
|
||||||
<Unit1>
|
<Unit1>
|
||||||
<Filename Value="..\fpspreadsheet.pas"/>
|
|
||||||
<UnitName Value="fpspreadsheet"/>
|
|
||||||
<CursorPos X="32" Y="414"/>
|
|
||||||
<TopLine Value="388"/>
|
|
||||||
<UsageCount Value="10"/>
|
|
||||||
</Unit1>
|
|
||||||
<Unit2>
|
|
||||||
<Filename Value="..\xlsbiff5.pas"/>
|
|
||||||
<UnitName Value="xlsbiff5"/>
|
|
||||||
<CursorPos X="16" Y="320"/>
|
|
||||||
<TopLine Value="300"/>
|
|
||||||
<UsageCount Value="10"/>
|
|
||||||
</Unit2>
|
|
||||||
<Unit3>
|
|
||||||
<Filename Value="..\fpolestorage.pas"/>
|
<Filename Value="..\fpolestorage.pas"/>
|
||||||
<UnitName Value="fpolestorage"/>
|
<UnitName Value="fpolestorage"/>
|
||||||
<CursorPos X="1" Y="1"/>
|
<CursorPos X="1" Y="1"/>
|
||||||
<TopLine Value="1"/>
|
<TopLine Value="1"/>
|
||||||
<UsageCount Value="30"/>
|
<UsageCount Value="19"/>
|
||||||
</Unit3>
|
</Unit1>
|
||||||
<Unit4>
|
<Unit2>
|
||||||
<Filename Value="..\xlsbiff2.pas"/>
|
|
||||||
<UnitName Value="xlsbiff2"/>
|
|
||||||
<CursorPos X="20" Y="277"/>
|
|
||||||
<TopLine Value="260"/>
|
|
||||||
<UsageCount Value="3"/>
|
|
||||||
</Unit4>
|
|
||||||
<Unit5>
|
|
||||||
<Filename Value="..\..\..\..\..\FPC220\source\rtl\objpas\fgl.pp"/>
|
|
||||||
<UnitName Value="fgl"/>
|
|
||||||
<CursorPos X="15" Y="86"/>
|
|
||||||
<TopLine Value="55"/>
|
|
||||||
<UsageCount Value="3"/>
|
|
||||||
</Unit5>
|
|
||||||
<Unit6>
|
|
||||||
<Filename Value="..\..\..\..\..\lazarus\lcl\interfaces\win32\win32wsstdctrls.pp"/>
|
<Filename Value="..\..\..\..\..\lazarus\lcl\interfaces\win32\win32wsstdctrls.pp"/>
|
||||||
<UnitName Value="Win32WSStdCtrls"/>
|
<UnitName Value="Win32WSStdCtrls"/>
|
||||||
<CursorPos X="11" Y="737"/>
|
<CursorPos X="35" Y="720"/>
|
||||||
<TopLine Value="713"/>
|
<TopLine Value="713"/>
|
||||||
<EditorIndex Value="7"/>
|
<UsageCount Value="76"/>
|
||||||
<UsageCount Value="88"/>
|
</Unit2>
|
||||||
<Loaded Value="True"/>
|
<Unit3>
|
||||||
</Unit6>
|
|
||||||
<Unit7>
|
|
||||||
<Filename Value="..\..\..\..\..\lazarus\ideintf\componenteditors.pas"/>
|
<Filename Value="..\..\..\..\..\lazarus\ideintf\componenteditors.pas"/>
|
||||||
<UnitName Value="ComponentEditors"/>
|
<UnitName Value="ComponentEditors"/>
|
||||||
<CursorPos X="54" Y="353"/>
|
<CursorPos X="40" Y="332"/>
|
||||||
<TopLine Value="330"/>
|
<TopLine Value="330"/>
|
||||||
<EditorIndex Value="6"/>
|
<UsageCount Value="74"/>
|
||||||
<UsageCount Value="86"/>
|
</Unit3>
|
||||||
<Loaded Value="True"/>
|
<Unit4>
|
||||||
</Unit7>
|
|
||||||
<Unit8>
|
|
||||||
<Filename Value="..\..\xlsbiff5.pas"/>
|
<Filename Value="..\..\xlsbiff5.pas"/>
|
||||||
<UnitName Value="xlsbiff5"/>
|
<UnitName Value="xlsbiff5"/>
|
||||||
<CursorPos X="1" Y="224"/>
|
<CursorPos X="1" Y="224"/>
|
||||||
<TopLine Value="215"/>
|
<TopLine Value="215"/>
|
||||||
<EditorIndex Value="3"/>
|
<EditorIndex Value="3"/>
|
||||||
<UsageCount Value="83"/>
|
<UsageCount Value="140"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
</Unit8>
|
</Unit4>
|
||||||
<Unit9>
|
<Unit5>
|
||||||
<Filename Value="..\..\fpsutils.pas"/>
|
<Filename Value="..\..\fpsutils.pas"/>
|
||||||
<UnitName Value="fpsutils"/>
|
<UnitName Value="fpsutils"/>
|
||||||
<CursorPos X="1" Y="49"/>
|
<CursorPos X="1" Y="49"/>
|
||||||
<TopLine Value="30"/>
|
<TopLine Value="30"/>
|
||||||
<EditorIndex Value="2"/>
|
<EditorIndex Value="2"/>
|
||||||
<UsageCount Value="83"/>
|
<UsageCount Value="140"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
</Unit9>
|
</Unit5>
|
||||||
<Unit10>
|
<Unit6>
|
||||||
<Filename Value="..\..\xlsbiff2.pas"/>
|
<Filename Value="..\..\xlsbiff2.pas"/>
|
||||||
<UnitName Value="xlsbiff2"/>
|
<UnitName Value="xlsbiff2"/>
|
||||||
<CursorPos X="1" Y="69"/>
|
<CursorPos X="1" Y="69"/>
|
||||||
<TopLine Value="57"/>
|
<TopLine Value="57"/>
|
||||||
<EditorIndex Value="4"/>
|
<EditorIndex Value="4"/>
|
||||||
<UsageCount Value="83"/>
|
<UsageCount Value="139"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
</Unit10>
|
</Unit6>
|
||||||
<Unit11>
|
<Unit7>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<UnitName Value="fpolestorage"/>
|
<UnitName Value="fpolestorage"/>
|
||||||
<CursorPos X="48" Y="534"/>
|
<CursorPos X="30" Y="654"/>
|
||||||
<TopLine Value="520"/>
|
<TopLine Value="642"/>
|
||||||
<EditorIndex Value="5"/>
|
<EditorIndex Value="5"/>
|
||||||
<UsageCount Value="83"/>
|
<UsageCount Value="139"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
</Unit11>
|
</Unit7>
|
||||||
<Unit12>
|
<Unit8>
|
||||||
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\classesh.inc"/>
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\classesh.inc"/>
|
||||||
<CursorPos X="19" Y="562"/>
|
<CursorPos X="19" Y="562"/>
|
||||||
<TopLine Value="553"/>
|
<TopLine Value="553"/>
|
||||||
<UsageCount Value="53"/>
|
<UsageCount Value="41"/>
|
||||||
</Unit12>
|
</Unit8>
|
||||||
<Unit13>
|
<Unit9>
|
||||||
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\streams.inc"/>
|
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\streams.inc"/>
|
||||||
<CursorPos X="21" Y="158"/>
|
<CursorPos X="21" Y="158"/>
|
||||||
<TopLine Value="151"/>
|
<TopLine Value="151"/>
|
||||||
<UsageCount Value="53"/>
|
<UsageCount Value="41"/>
|
||||||
</Unit13>
|
</Unit9>
|
||||||
<Unit14>
|
<Unit10>
|
||||||
<Filename Value="..\..\fpspreadsheet.pas"/>
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
<UnitName Value="fpspreadsheet"/>
|
<UnitName Value="fpspreadsheet"/>
|
||||||
<CursorPos X="40" Y="137"/>
|
<CursorPos X="40" Y="137"/>
|
||||||
<TopLine Value="129"/>
|
<TopLine Value="129"/>
|
||||||
<EditorIndex Value="1"/>
|
<EditorIndex Value="1"/>
|
||||||
<UsageCount Value="33"/>
|
<UsageCount Value="92"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
</Unit14>
|
</Unit10>
|
||||||
<Unit15>
|
<Unit11>
|
||||||
<Filename Value="..\..\..\..\..\lazarus26\fpc\2.2.2\source\rtl\objpas\classes\stringl.inc"/>
|
<Filename Value="..\..\..\..\..\lazarus\lcl\include\customtrayicon.inc"/>
|
||||||
<CursorPos X="20" Y="768"/>
|
<CursorPos X="22" Y="203"/>
|
||||||
<TopLine Value="761"/>
|
<TopLine Value="197"/>
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="67"/>
|
||||||
</Unit15>
|
</Unit11>
|
||||||
</Units>
|
</Units>
|
||||||
<JumpHistory Count="27" HistoryIndex="26">
|
<JumpHistory Count="25" HistoryIndex="24">
|
||||||
<Position1>
|
<Position1>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="246" Column="12" TopLine="237"/>
|
<Caret Line="40" Column="5" TopLine="31"/>
|
||||||
</Position1>
|
</Position1>
|
||||||
<Position2>
|
<Position2>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="79" Column="16" TopLine="78"/>
|
<Caret Line="472" Column="49" TopLine="461"/>
|
||||||
</Position2>
|
</Position2>
|
||||||
<Position3>
|
<Position3>
|
||||||
<Filename Value="..\..\xlsbiff5.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="87" Column="16" TopLine="77"/>
|
<Caret Line="405" Column="5" TopLine="386"/>
|
||||||
</Position3>
|
</Position3>
|
||||||
<Position4>
|
<Position4>
|
||||||
<Filename Value="..\..\xlsbiff5.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="218" Column="24" TopLine="207"/>
|
<Caret Line="404" Column="14" TopLine="401"/>
|
||||||
</Position4>
|
</Position4>
|
||||||
<Position5>
|
<Position5>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="235" Column="30" TopLine="224"/>
|
<Caret Line="79" Column="42" TopLine="72"/>
|
||||||
</Position5>
|
</Position5>
|
||||||
<Position6>
|
<Position6>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="80" Column="28" TopLine="68"/>
|
<Caret Line="78" Column="31" TopLine="67"/>
|
||||||
</Position6>
|
</Position6>
|
||||||
<Position7>
|
<Position7>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="40" Column="5" TopLine="31"/>
|
<Caret Line="314" Column="39" TopLine="296"/>
|
||||||
</Position7>
|
</Position7>
|
||||||
<Position8>
|
<Position8>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="472" Column="49" TopLine="461"/>
|
<Caret Line="479" Column="1" TopLine="469"/>
|
||||||
</Position8>
|
</Position8>
|
||||||
<Position9>
|
<Position9>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="405" Column="5" TopLine="386"/>
|
<Caret Line="470" Column="1" TopLine="460"/>
|
||||||
</Position9>
|
</Position9>
|
||||||
<Position10>
|
<Position10>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\xlsbiff5.pas"/>
|
||||||
<Caret Line="404" Column="14" TopLine="401"/>
|
<Caret Line="217" Column="3" TopLine="205"/>
|
||||||
</Position10>
|
</Position10>
|
||||||
<Position11>
|
<Position11>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\xlsbiff5.pas"/>
|
||||||
<Caret Line="79" Column="42" TopLine="72"/>
|
<Caret Line="218" Column="23" TopLine="208"/>
|
||||||
</Position11>
|
</Position11>
|
||||||
<Position12>
|
<Position12>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="78" Column="31" TopLine="67"/>
|
<Caret Line="78" Column="10" TopLine="66"/>
|
||||||
</Position12>
|
</Position12>
|
||||||
<Position13>
|
<Position13>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="314" Column="39" TopLine="296"/>
|
<Caret Line="375" Column="1" TopLine="367"/>
|
||||||
</Position13>
|
</Position13>
|
||||||
<Position14>
|
<Position14>
|
||||||
<Filename Value="excel5demo.lpr"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="34" Column="1" TopLine="25"/>
|
<Caret Line="76" Column="17" TopLine="65"/>
|
||||||
</Position14>
|
</Position14>
|
||||||
<Position15>
|
<Position15>
|
||||||
<Filename Value="excel5demo.lpr"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="35" Column="1" TopLine="25"/>
|
<Caret Line="363" Column="1" TopLine="357"/>
|
||||||
</Position15>
|
</Position15>
|
||||||
<Position16>
|
<Position16>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="479" Column="1" TopLine="469"/>
|
<Caret Line="77" Column="7" TopLine="76"/>
|
||||||
</Position16>
|
</Position16>
|
||||||
<Position17>
|
<Position17>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpspreadsheet.pas"/>
|
||||||
<Caret Line="470" Column="1" TopLine="460"/>
|
<Caret Line="137" Column="40" TopLine="129"/>
|
||||||
</Position17>
|
</Position17>
|
||||||
<Position18>
|
<Position18>
|
||||||
<Filename Value="..\..\xlsbiff5.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="217" Column="3" TopLine="205"/>
|
<Caret Line="563" Column="5" TopLine="544"/>
|
||||||
</Position18>
|
</Position18>
|
||||||
<Position19>
|
<Position19>
|
||||||
<Filename Value="..\..\xlsbiff5.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="218" Column="23" TopLine="208"/>
|
<Caret Line="486" Column="5" TopLine="467"/>
|
||||||
</Position19>
|
</Position19>
|
||||||
<Position20>
|
<Position20>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="78" Column="10" TopLine="66"/>
|
<Caret Line="510" Column="5" TopLine="491"/>
|
||||||
</Position20>
|
</Position20>
|
||||||
<Position21>
|
<Position21>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="375" Column="1" TopLine="367"/>
|
<Caret Line="94" Column="46" TopLine="84"/>
|
||||||
</Position21>
|
</Position21>
|
||||||
<Position22>
|
<Position22>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="76" Column="17" TopLine="65"/>
|
<Caret Line="686" Column="5" TopLine="667"/>
|
||||||
</Position22>
|
</Position22>
|
||||||
<Position23>
|
<Position23>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="363" Column="1" TopLine="357"/>
|
<Caret Line="567" Column="5" TopLine="548"/>
|
||||||
</Position23>
|
</Position23>
|
||||||
<Position24>
|
<Position24>
|
||||||
<Filename Value="..\..\fpolestorage.pas"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="77" Column="7" TopLine="76"/>
|
<Caret Line="622" Column="1" TopLine="618"/>
|
||||||
</Position24>
|
</Position24>
|
||||||
<Position25>
|
<Position25>
|
||||||
<Filename Value="excel5demo.lpr"/>
|
<Filename Value="..\..\fpolestorage.pas"/>
|
||||||
<Caret Line="67" Column="21" TopLine="51"/>
|
<Caret Line="621" Column="29" TopLine="611"/>
|
||||||
</Position25>
|
</Position25>
|
||||||
<Position26>
|
|
||||||
<Filename Value="..\..\fpspreadsheet.pas"/>
|
|
||||||
<Caret Line="137" Column="40" TopLine="129"/>
|
|
||||||
</Position26>
|
|
||||||
<Position27>
|
|
||||||
<Filename Value="excel5demo.lpr"/>
|
|
||||||
<Caret Line="21" Column="8" TopLine="6"/>
|
|
||||||
</Position27>
|
|
||||||
</JumpHistory>
|
</JumpHistory>
|
||||||
</ProjectOptions>
|
</ProjectOptions>
|
||||||
<CompilerOptions>
|
<CompilerOptions>
|
||||||
4
components/fpspreadsheet/examples/excel5demo/excel5demo.lpr → components/fpspreadsheet/examples/excel5demo/excel5write.lpr
Executable file → Normal file
4
components/fpspreadsheet/examples/excel5demo/excel5demo.lpr → components/fpspreadsheet/examples/excel5demo/excel5write.lpr
Executable file → Normal file
@ -1,11 +1,11 @@
|
|||||||
{
|
{
|
||||||
excel5demo.dpr
|
excel5write.dpr
|
||||||
|
|
||||||
Demonstrates how to write an Excel 5.x file using the fpspreadsheet library
|
Demonstrates how to write an Excel 5.x file using the fpspreadsheet library
|
||||||
|
|
||||||
AUTHORS: Felipe Monteiro de Carvalho
|
AUTHORS: Felipe Monteiro de Carvalho
|
||||||
}
|
}
|
||||||
program excel5demo;
|
program excel5write;
|
||||||
|
|
||||||
{$mode delphi}{$H+}
|
{$mode delphi}{$H+}
|
||||||
|
|
||||||
@ -0,0 +1,2 @@
|
|||||||
|
excel5read.exe
|
||||||
|
pause
|
||||||
@ -0,0 +1,3 @@
|
|||||||
|
del test.xls
|
||||||
|
excel5write.exe
|
||||||
|
pause
|
||||||
@ -60,16 +60,19 @@ type
|
|||||||
|
|
||||||
TOLEStorage = class
|
TOLEStorage = class
|
||||||
private
|
private
|
||||||
|
{ Information filled by the write routines for the helper routines }
|
||||||
{$ifdef FPOLESTORAGE_USE_COM}
|
{$ifdef FPOLESTORAGE_USE_COM}
|
||||||
FStorage: IStorage;
|
FStorage: IStorage;
|
||||||
FStream: IStream;
|
FStream: IStream;
|
||||||
{$endif}
|
{$endif}
|
||||||
{ Information filled by the write routines for the helper routines }
|
{ Fields for the read routines }
|
||||||
|
FReadingStreamSize: Int64;
|
||||||
|
{ Fields for both }
|
||||||
FOLEDocument: TOLEDocument;
|
FOLEDocument: TOLEDocument;
|
||||||
|
FUseShortSectors: Boolean;
|
||||||
FNumSATSectors, FNumStreamSectors, FNumTotalSectors: Cardinal;
|
FNumSATSectors, FNumStreamSectors, FNumTotalSectors: Cardinal;
|
||||||
FNumStreamShortSectors: Cardinal;
|
FNumStreamShortSectors: Cardinal;
|
||||||
FUseShortSectors: Boolean;
|
{ Writer Helper routines }
|
||||||
{ Helper routines }
|
|
||||||
procedure WriteOLEHeader(AStream: TStream);
|
procedure WriteOLEHeader(AStream: TStream);
|
||||||
procedure WriteSectorAllocationTable(AStream: TStream);
|
procedure WriteSectorAllocationTable(AStream: TStream);
|
||||||
procedure WriteDirectoryStream(AStream: TStream);
|
procedure WriteDirectoryStream(AStream: TStream);
|
||||||
@ -78,10 +81,21 @@ type
|
|||||||
AFirstSecID, AStreamSize: Cardinal);
|
AFirstSecID, AStreamSize: Cardinal);
|
||||||
procedure WriteShortSectorAllocationTable(AStream: TStream);
|
procedure WriteShortSectorAllocationTable(AStream: TStream);
|
||||||
procedure WriteUserStream(ADest, ASource: TStream);
|
procedure WriteUserStream(ADest, ASource: TStream);
|
||||||
|
{ Reader helper routines }
|
||||||
|
procedure ReadOLEHeader(AStream: TStream);
|
||||||
|
procedure ReadSectorAllocationTable(AStream: TStream);
|
||||||
|
procedure ReadDirectoryStream(AStream: TStream);
|
||||||
|
procedure ReadDirectoryEntry(AStream: TStream; var AName: widestring;
|
||||||
|
var EntryType, EntryColor: Byte; var AIsStorage: Boolean;
|
||||||
|
var AFirstSecID, AStreamSize: Cardinal);
|
||||||
|
procedure ReadShortSectorAllocationTable(AStream: TStream);
|
||||||
|
procedure ReadUserStream(ADest, ASource: TStream);
|
||||||
public
|
public
|
||||||
constructor Create;
|
constructor Create;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
procedure WriteOLEFile(AFileName: string; AOLEDocument: TOLEDocument);
|
procedure WriteOLEFile(AFileName: string; AOLEDocument: TOLEDocument);
|
||||||
|
procedure ReadOLEFile(AFileName: string; AOLEDocument: TOLEDocument);
|
||||||
|
procedure FreeOLEDocumentData(AOLEDocument: TOLEDocument);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -475,6 +489,183 @@ begin
|
|||||||
for i := 1 to PadSize do ADest.WriteByte($00);
|
for i := 1 to PadSize do ADest.WriteByte($00);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TOLEStorage.ReadOLEHeader(AStream: TStream);
|
||||||
|
var
|
||||||
|
BaseAddr: Int64;
|
||||||
|
begin
|
||||||
|
BaseAddr := AStream.Position;
|
||||||
|
|
||||||
|
{ 28 2 Byte order identifier (➜4.2): FEH FFH = Little-Endian
|
||||||
|
FFH FEH = Big-Endian }
|
||||||
|
|
||||||
|
// For now just assume little-endian
|
||||||
|
|
||||||
|
{ 30 2 Size of a sector in the compound document file (➜3.1) in power-of-two (ssz), real sector
|
||||||
|
size is sec_size = 2ssz bytes (minimum value is 7 which means 128 bytes, most used
|
||||||
|
value is 9 which means 512 bytes) }
|
||||||
|
|
||||||
|
// Assume default value
|
||||||
|
|
||||||
|
{ 32 2 Size of a short-sector in the short-stream container stream (➜6.1) in power-of-two (sssz),
|
||||||
|
real short-sector size is short_sec_size = 2sssz bytes (maximum value is sector size
|
||||||
|
ssz, see above, most used value is 6 which means 64 bytes) }
|
||||||
|
|
||||||
|
// Assume default value
|
||||||
|
|
||||||
|
{ 44 4 Total number of sectors used for the sector allocation table (➜5.2) }
|
||||||
|
|
||||||
|
// Assume 1
|
||||||
|
|
||||||
|
{ 48 4 SecID of first sector of the directory stream (➜7) }
|
||||||
|
|
||||||
|
// Assume 1
|
||||||
|
|
||||||
|
{ 56 4 Minimum size of a standard stream (in bytes, minimum allowed and most used size is 4096
|
||||||
|
bytes), streams with an actual size smaller than (and not equal to) this value are stored as
|
||||||
|
short-streams (➜6) }
|
||||||
|
|
||||||
|
// Assume 4096
|
||||||
|
|
||||||
|
{ 60 4 SecID of first sector of the short-sector allocation table (➜6.2), or –2 (End Of Chain
|
||||||
|
SecID, ➜3.1) if not extant }
|
||||||
|
|
||||||
|
// Assume 2
|
||||||
|
|
||||||
|
{ 64 4 Total number of sectors used for the short-sector allocation table (➜6.2) }
|
||||||
|
|
||||||
|
// Assume 1
|
||||||
|
|
||||||
|
{ 68 4 SecID of first sector of the master sector allocation table (➜5.1), or –2 (End Of Chain
|
||||||
|
SecID, ➜3.1) if no additional sectors used }
|
||||||
|
|
||||||
|
// Assume 2
|
||||||
|
|
||||||
|
{ 72 4 Total number of sectors used for the master sector allocation table (➜5.1) }
|
||||||
|
|
||||||
|
// Assume 0
|
||||||
|
|
||||||
|
{ 76 436 First part of the master sector allocation table (➜5.1) containing 109 SecIDs }
|
||||||
|
|
||||||
|
// Assume: 0, -1, -1, -1 ...
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOLEStorage.ReadSectorAllocationTable(AStream: TStream);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOLEStorage.ReadDirectoryStream(AStream: TStream);
|
||||||
|
var
|
||||||
|
EntryName: widestring;
|
||||||
|
EntryType, EntryColor: Byte;
|
||||||
|
EntryIsStorage: Boolean;
|
||||||
|
EntryFirstSecID, EntryStreamSize: Cardinal;
|
||||||
|
begin
|
||||||
|
ReadDirectoryEntry(AStream, EntryName,
|
||||||
|
EntryType, EntryColor, EntryIsStorage,
|
||||||
|
EntryFirstSecID, EntryStreamSize);
|
||||||
|
|
||||||
|
ReadDirectoryEntry(AStream, EntryName,
|
||||||
|
EntryType, EntryColor, EntryIsStorage,
|
||||||
|
EntryFirstSecID, EntryStreamSize);
|
||||||
|
|
||||||
|
FReadingStreamSize := EntryStreamSize;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOLEStorage.ReadDirectoryEntry(AStream: TStream;
|
||||||
|
var AName: widestring; var EntryType, EntryColor: Byte;
|
||||||
|
var AIsStorage: Boolean; var AFirstSecID, AStreamSize: Cardinal);
|
||||||
|
var
|
||||||
|
BaseAddr: Int64;
|
||||||
|
EntryName: array[0..63] of WideChar;
|
||||||
|
begin
|
||||||
|
BaseAddr := AStream.Position;
|
||||||
|
|
||||||
|
{ Contents of the directory entry structure:
|
||||||
|
Offset Size Contents
|
||||||
|
0 64 Character array of the name of the entry, always 16-bit Unicode characters, with trailing
|
||||||
|
zero character (results in a maximum name length of 31 characters)
|
||||||
|
|
||||||
|
00000400H 52 00 6F 00 6F 00 74 00 20 00 45 00 6E 00 74 00 }
|
||||||
|
|
||||||
|
AStream.ReadBuffer(EntryName, 64);
|
||||||
|
|
||||||
|
AName := EntryName;
|
||||||
|
|
||||||
|
{Root Storage #1
|
||||||
|
00000440H 16 00 05 00 FF FF FF FF FF FF FF FF 01 00 00 00
|
||||||
|
|
||||||
|
Book #2
|
||||||
|
000004C0H 0A 00 02 01 FF FF FF FF FF FF FF FF FF FF FF FF
|
||||||
|
|
||||||
|
Item #3 e #4
|
||||||
|
00000540H 00 00 00 00 FF FF FF FF FF FF FF FF FF FF FF FF
|
||||||
|
|
||||||
|
64 2 Size of the used area of the character buffer of the name (not character count), including
|
||||||
|
the trailing zero character (e.g. 12 for a name with 5 characters: (5+1)∙2 = 12)
|
||||||
|
66 1 Type of the entry: 00H = Empty 03H = LockBytes (unknown)
|
||||||
|
01H = User storage 04H = Property (unknown)
|
||||||
|
02H = User stream 05H = Root storage
|
||||||
|
67 1 Node colour of the entry: 00H = Red 01H = Black
|
||||||
|
68 4 DirID of the left child node inside the red-black tree of all direct members of the parent
|
||||||
|
storage (if this entry is a user storage or stream, ➜7.1), –1 if there is no left child
|
||||||
|
72 4 DirID of the right child node inside the red-black tree of all direct members of the parent
|
||||||
|
storage (if this entry is a user storage or stream, ➜7.1), –1 if there is no right child
|
||||||
|
76 4 DirID of the root node entry of the red-black tree of all storage members (if this entry is a
|
||||||
|
storage, ➜7.1), –1 otherwise
|
||||||
|
}
|
||||||
|
|
||||||
|
AStream.ReadWord();
|
||||||
|
|
||||||
|
EntryType := AStream.ReadByte();
|
||||||
|
EntryColor := AStream.ReadByte();
|
||||||
|
|
||||||
|
AStream.ReadDWord();
|
||||||
|
AStream.ReadDWord();
|
||||||
|
|
||||||
|
AIsStorage := AStream.ReadDWord() <> $FFFFFFFF;
|
||||||
|
|
||||||
|
{Root Storage #1
|
||||||
|
00000470H XX XX XX XX 03 00 00 00 40 03 00 00 00 00 00 00
|
||||||
|
|
||||||
|
Book #2
|
||||||
|
000004F0H XX XX XX XX 00 00 00 00 3F 03 00 00 00 00 00 00
|
||||||
|
|
||||||
|
Item #3 e #4
|
||||||
|
00000570H XX XX XX XX 00 00 00 00 00 00 00 00 00 00 00 00
|
||||||
|
|
||||||
|
First 4 bytes still with the timestamp.
|
||||||
|
|
||||||
|
116 4 SecID of first sector or short-sector, if this entry refers to a stream (➜7.2.2),
|
||||||
|
SecID of first sector of the short-stream container stream (➜6.1),
|
||||||
|
if this is the root storage entry, 0 otherwise
|
||||||
|
|
||||||
|
120 4 Total stream size in bytes, if this entry refers to a stream (➜7.2.2),
|
||||||
|
total size of the short-stream container stream (➜6.1),
|
||||||
|
if this is the root storage entry, 0 otherwise
|
||||||
|
|
||||||
|
124 4 Not used
|
||||||
|
}
|
||||||
|
|
||||||
|
AStream.Seek(BaseAddr + $74, soFromBeginning);
|
||||||
|
|
||||||
|
AFirstSecID := AStream.ReadDWord();
|
||||||
|
|
||||||
|
AStreamSize := AStream.ReadDWord();
|
||||||
|
|
||||||
|
AStream.ReadDWord();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOLEStorage.ReadShortSectorAllocationTable(AStream: TStream);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOLEStorage.ReadUserStream(ADest, ASource: TStream);
|
||||||
|
begin
|
||||||
|
ADest.CopyFrom(ASource, FReadingStreamSize);
|
||||||
|
end;
|
||||||
|
|
||||||
constructor TOLEStorage.Create;
|
constructor TOLEStorage.Create;
|
||||||
begin
|
begin
|
||||||
inherited Create;
|
inherited Create;
|
||||||
@ -487,6 +678,12 @@ begin
|
|||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
Writes the OLE document specified in AOLEDocument
|
||||||
|
to the file with name AFileName. The routine will fail
|
||||||
|
if the file already exists, or if the directory where
|
||||||
|
it should be placed doesn't exist.
|
||||||
|
}
|
||||||
procedure TOLEStorage.WriteOLEFile(AFileName: string; AOLEDocument: TOLEDocument);
|
procedure TOLEStorage.WriteOLEFile(AFileName: string; AOLEDocument: TOLEDocument);
|
||||||
var
|
var
|
||||||
cbWritten: Cardinal;
|
cbWritten: Cardinal;
|
||||||
@ -555,5 +752,58 @@ begin
|
|||||||
{$endif}
|
{$endif}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
Reads an OLE file. Experimental
|
||||||
|
}
|
||||||
|
procedure TOLEStorage.ReadOLEFile(AFileName: string;
|
||||||
|
AOLEDocument: TOLEDocument);
|
||||||
|
var
|
||||||
|
AFileStream: TFileStream;
|
||||||
|
CurrentSectorPos: Int64;
|
||||||
|
begin
|
||||||
|
AOLEDocument.Stream := TMemoryStream.Create;
|
||||||
|
AFileStream := TFileStream.Create(AFileName, fmOpenRead);
|
||||||
|
try
|
||||||
|
// Header
|
||||||
|
ReadOLEHeader(AFileStream);
|
||||||
|
|
||||||
|
// Record 0, the SAT
|
||||||
|
CurrentSectorPos := $200;
|
||||||
|
AFileStream.Seek(CurrentSectorPos, soFromBeginning);
|
||||||
|
ReadSectorAllocationTable(AFileStream);
|
||||||
|
|
||||||
|
// Record 1, the directory stream
|
||||||
|
CurrentSectorPos := $400;
|
||||||
|
AFileStream.Seek(CurrentSectorPos, soFromBeginning);
|
||||||
|
ReadDirectoryStream(AFileStream);
|
||||||
|
|
||||||
|
// FReadingStreamSize is filled by ReadDirectoryStream
|
||||||
|
FUseShortSectors := FReadingStreamSize < INT_OLE_MIN_SIZE_FOR_STANDARD_STREAMS;
|
||||||
|
|
||||||
|
CurrentSectorPos := $600;
|
||||||
|
|
||||||
|
// Record 2, the Short SAT, if exists
|
||||||
|
if FUseShortSectors then
|
||||||
|
begin
|
||||||
|
AFileStream.Seek(CurrentSectorPos, soFromBeginning);
|
||||||
|
ReadShortSectorAllocationTable(AFileStream);
|
||||||
|
CurrentSectorPos := $800;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
CurrentSectorPos := $600;
|
||||||
|
|
||||||
|
// Records 3 and on (or 2 and on without Short Sectors), the user data
|
||||||
|
AFileStream.Seek(CurrentSectorPos, soFromBeginning);
|
||||||
|
ReadUserStream(FOLEDocument.Stream, AFileStream);
|
||||||
|
finally
|
||||||
|
AFileStream.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOLEStorage.FreeOLEDocumentData(AOLEDocument: TOLEDocument);
|
||||||
|
begin
|
||||||
|
AOLEDocument.Stream.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|||||||
@ -76,10 +76,13 @@ type
|
|||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
TsCustomSpreadReader = class;
|
||||||
TsCustomSpreadWriter = class;
|
TsCustomSpreadWriter = class;
|
||||||
|
|
||||||
{@@ TsWorksheet }
|
{@@ TsWorksheet }
|
||||||
|
|
||||||
|
{ TsWorksheet }
|
||||||
|
|
||||||
TsWorksheet = class
|
TsWorksheet = class
|
||||||
private
|
private
|
||||||
procedure RemoveCallback(data, arg: pointer);
|
procedure RemoveCallback(data, arg: pointer);
|
||||||
@ -92,6 +95,9 @@ type
|
|||||||
{ Data manipulation methods }
|
{ Data manipulation methods }
|
||||||
function FindCell(ARow, ACol: Cardinal): PCell;
|
function FindCell(ARow, ACol: Cardinal): PCell;
|
||||||
function GetCell(ARow, ACol: Cardinal): PCell;
|
function GetCell(ARow, ACol: Cardinal): PCell;
|
||||||
|
function GetCellCount: Cardinal;
|
||||||
|
function GetCellByIndex(AIndex: Cardinal): PCell;
|
||||||
|
function ReadAsAnsiText(ARow, ACol: Cardinal): ansistring;
|
||||||
procedure RemoveAllCells;
|
procedure RemoveAllCells;
|
||||||
procedure WriteAnsiText(ARow, ACol: Cardinal; AText: ansistring);
|
procedure WriteAnsiText(ARow, ACol: Cardinal; AText: ansistring);
|
||||||
procedure WriteNumber(ARow, ACol: Cardinal; ANumber: double);
|
procedure WriteNumber(ARow, ACol: Cardinal; ANumber: double);
|
||||||
@ -100,15 +106,22 @@ type
|
|||||||
|
|
||||||
{@@ TsWorkbook }
|
{@@ TsWorkbook }
|
||||||
|
|
||||||
|
{ TsWorkbook }
|
||||||
|
|
||||||
TsWorkbook = class
|
TsWorkbook = class
|
||||||
private
|
private
|
||||||
|
{ Internal data }
|
||||||
FWorksheets: TFPList;
|
FWorksheets: TFPList;
|
||||||
|
{ Internal methods }
|
||||||
procedure RemoveCallback(data, arg: pointer);
|
procedure RemoveCallback(data, arg: pointer);
|
||||||
public
|
public
|
||||||
{ Base methods }
|
{ Base methods }
|
||||||
constructor Create;
|
constructor Create;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
function CreateSpreadReader(AFormat: TsSpreadsheetFormat): TsCustomSpreadReader;
|
||||||
function CreateSpreadWriter(AFormat: TsSpreadsheetFormat): TsCustomSpreadWriter;
|
function CreateSpreadWriter(AFormat: TsSpreadsheetFormat): TsCustomSpreadWriter;
|
||||||
|
procedure ReadFromFile(AFileName: string; AFormat: TsSpreadsheetFormat);
|
||||||
|
procedure ReadFromStream(AStream: TStream; AFormat: TsSpreadsheetFormat);
|
||||||
procedure WriteToFile(AFileName: string; AFormat: TsSpreadsheetFormat);
|
procedure WriteToFile(AFileName: string; AFormat: TsSpreadsheetFormat);
|
||||||
procedure WriteToStream(AStream: TStream; AFormat: TsSpreadsheetFormat);
|
procedure WriteToStream(AStream: TStream; AFormat: TsSpreadsheetFormat);
|
||||||
{ Worksheet list handling methods }
|
{ Worksheet list handling methods }
|
||||||
@ -125,6 +138,8 @@ type
|
|||||||
|
|
||||||
{@@ TsCustomSpreadReader }
|
{@@ TsCustomSpreadReader }
|
||||||
|
|
||||||
|
{ TsCustomSpreadReader }
|
||||||
|
|
||||||
TsCustomSpreadReader = class
|
TsCustomSpreadReader = class
|
||||||
protected
|
protected
|
||||||
FWorkbook: TsWorkbook;
|
FWorkbook: TsWorkbook;
|
||||||
@ -132,7 +147,7 @@ type
|
|||||||
public
|
public
|
||||||
{ General writing methods }
|
{ General writing methods }
|
||||||
procedure ReadFromFile(AFileName: string; AData: TsWorkbook); virtual;
|
procedure ReadFromFile(AFileName: string; AData: TsWorkbook); virtual;
|
||||||
procedure ReadFromStream(AStream: TStream; AData: TsWorkbook); virtual; abstract;
|
procedure ReadFromStream(AStream: TStream; AData: TsWorkbook); virtual;
|
||||||
{ Record reading methods }
|
{ Record reading methods }
|
||||||
procedure ReadFormula(AStream: TStream); virtual; abstract;
|
procedure ReadFormula(AStream: TStream); virtual; abstract;
|
||||||
procedure ReadLabel(AStream: TStream); virtual; abstract;
|
procedure ReadLabel(AStream: TStream); virtual; abstract;
|
||||||
@ -145,13 +160,15 @@ type
|
|||||||
|
|
||||||
{@@ TsCustomSpreadWriter }
|
{@@ TsCustomSpreadWriter }
|
||||||
|
|
||||||
|
{ TsCustomSpreadWriter }
|
||||||
|
|
||||||
TsCustomSpreadWriter = class
|
TsCustomSpreadWriter = class
|
||||||
public
|
public
|
||||||
{ General writing methods }
|
{ General writing methods }
|
||||||
procedure WriteCellCallback(data, arg: pointer);
|
procedure WriteCellCallback(data, arg: pointer);
|
||||||
procedure WriteCellsToStream(AStream: TStream; ACells: TFPList);
|
procedure WriteCellsToStream(AStream: TStream; ACells: TFPList);
|
||||||
procedure WriteToFile(AFileName: string; AData: TsWorkbook); virtual;
|
procedure WriteToFile(AFileName: string; AData: TsWorkbook); virtual;
|
||||||
procedure WriteToStream(AStream: TStream; AData: TsWorkbook); virtual; abstract;
|
procedure WriteToStream(AStream: TStream; AData: TsWorkbook); virtual;
|
||||||
{ Record writing methods }
|
{ Record writing methods }
|
||||||
procedure WriteFormula(AStream: TStream; const ARow, ACol: Word; const AFormula: TRPNFormula); virtual; abstract;
|
procedure WriteFormula(AStream: TStream; const ARow, ACol: Word; const AFormula: TRPNFormula); virtual; abstract;
|
||||||
procedure WriteLabel(AStream: TStream; const ARow, ACol: Word; const AValue: string); virtual; abstract;
|
procedure WriteLabel(AStream: TStream; const ARow, ACol: Word; const AValue: string); virtual; abstract;
|
||||||
@ -176,6 +193,10 @@ procedure RegisterSpreadFormat(
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
var
|
||||||
|
{ Translatable strings }
|
||||||
|
lpUnsupportedReadFormat, lpUnsupportedWriteFormat: string;
|
||||||
|
|
||||||
{@@
|
{@@
|
||||||
Registers a new reader/writer pair for a format
|
Registers a new reader/writer pair for a format
|
||||||
}
|
}
|
||||||
@ -293,6 +314,75 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
Returns the number of cells in the worksheet with contents.
|
||||||
|
|
||||||
|
This routine is used together with GetCellByIndex to
|
||||||
|
iterate througth all cells in a worksheet efficiently.
|
||||||
|
|
||||||
|
@return The number of cells with contents in the worksheet
|
||||||
|
|
||||||
|
@see TCell
|
||||||
|
@see GetCellByIndex
|
||||||
|
}
|
||||||
|
function TsWorksheet.GetCellCount: Cardinal;
|
||||||
|
begin
|
||||||
|
Result := FCells.Count;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
Obtains the cell with a specific index in the internal list of cells.
|
||||||
|
|
||||||
|
The index goes from 0 to GetCellCount - 1.
|
||||||
|
|
||||||
|
This routine is used together with GetCellCount to
|
||||||
|
iterate througth all cells in a worksheet efficiently.
|
||||||
|
|
||||||
|
@param AIndex The index of the cell to be obtained
|
||||||
|
|
||||||
|
@return A pointer to the cell, or nil if it doesn't exist
|
||||||
|
|
||||||
|
@see TCell
|
||||||
|
@see GetCellCount
|
||||||
|
}
|
||||||
|
function TsWorksheet.GetCellByIndex(AIndex: Cardinal): PCell;
|
||||||
|
begin
|
||||||
|
if FCells.Count > AIndex then Result := PCell(FCells.Items[AIndex])
|
||||||
|
else Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
Reads the contents of a cell and converts it to a user readable text,
|
||||||
|
if it isn't already a text.
|
||||||
|
|
||||||
|
@param ARow The row of the cell
|
||||||
|
@param ACol The column of the cell
|
||||||
|
|
||||||
|
@return The text representation of the cell
|
||||||
|
}
|
||||||
|
function TsWorksheet.ReadAsAnsiText(ARow, ACol: Cardinal): ansistring;
|
||||||
|
var
|
||||||
|
ACell: PCell;
|
||||||
|
begin
|
||||||
|
ACell := FindCell(ARow, ACol);
|
||||||
|
|
||||||
|
if ACell = nil then
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
case ACell^.ContentType of
|
||||||
|
|
||||||
|
//cctFormula
|
||||||
|
cctNumber: Result := FloatToStr(ACell^.NumberValue);
|
||||||
|
cctString: Result := ACell^.StringValue;
|
||||||
|
cctWideString: Result := ACell^.WideStringValue;
|
||||||
|
else
|
||||||
|
Result := ACell^.StringValue;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
{@@
|
{@@
|
||||||
Clears the list of Cells and releases their memory.
|
Clears the list of Cells and releases their memory.
|
||||||
}
|
}
|
||||||
@ -375,6 +465,10 @@ begin
|
|||||||
inherited Create;
|
inherited Create;
|
||||||
|
|
||||||
FWorksheets := TFPList.Create;
|
FWorksheets := TFPList.Create;
|
||||||
|
|
||||||
|
// In the future: add support for translations
|
||||||
|
lpUnsupportedReadFormat := 'Tryed to read a spreadsheet using an unsupported format';
|
||||||
|
lpUnsupportedWriteFormat := 'Tryed to write a spreadsheet using an unsupported format';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{@@
|
{@@
|
||||||
@ -389,6 +483,27 @@ begin
|
|||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
Convenience method which creates the correct
|
||||||
|
reader object for a given spreadsheet format.
|
||||||
|
}
|
||||||
|
function TsWorkbook.CreateSpreadReader(AFormat: TsSpreadsheetFormat): TsCustomSpreadReader;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
|
||||||
|
for i := 0 to Length(GsSpreadFormats) - 1 do
|
||||||
|
if GsSpreadFormats[i].Format = AFormat then
|
||||||
|
begin
|
||||||
|
Result := GsSpreadFormats[i].ReaderClass.Create;
|
||||||
|
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Result = nil then raise Exception.Create(lpUnsupportedReadFormat);
|
||||||
|
end;
|
||||||
|
|
||||||
{@@
|
{@@
|
||||||
Convenience method which creates the correct
|
Convenience method which creates the correct
|
||||||
writer object for a given spreadsheet format.
|
writer object for a given spreadsheet format.
|
||||||
@ -407,7 +522,41 @@ begin
|
|||||||
Break;
|
Break;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if Result = nil then raise Exception.Create('Unsuported spreadsheet format.');
|
if Result = nil then raise Exception.Create(lpUnsupportedWriteFormat);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
Reads the document from a file.
|
||||||
|
}
|
||||||
|
procedure TsWorkbook.ReadFromFile(AFileName: string;
|
||||||
|
AFormat: TsSpreadsheetFormat);
|
||||||
|
var
|
||||||
|
AReader: TsCustomSpreadReader;
|
||||||
|
begin
|
||||||
|
AReader := CreateSpreadReader(AFormat);
|
||||||
|
|
||||||
|
try
|
||||||
|
AReader.ReadFromFile(AFileName, Self);
|
||||||
|
finally
|
||||||
|
AReader.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
Reads the document from a seekable stream.
|
||||||
|
}
|
||||||
|
procedure TsWorkbook.ReadFromStream(AStream: TStream;
|
||||||
|
AFormat: TsSpreadsheetFormat);
|
||||||
|
var
|
||||||
|
AReader: TsCustomSpreadReader;
|
||||||
|
begin
|
||||||
|
AReader := CreateSpreadReader(AFormat);
|
||||||
|
|
||||||
|
try
|
||||||
|
AReader.ReadFromStream(AStream, Self);
|
||||||
|
finally
|
||||||
|
AReader.Free;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{@@
|
{@@
|
||||||
@ -517,9 +666,34 @@ end;
|
|||||||
|
|
||||||
{ TsCustomSpreadReader }
|
{ TsCustomSpreadReader }
|
||||||
|
|
||||||
procedure TsCustomSpreadReader.ReadFromFile(AFileName: string; AData: TsWorkbook);
|
{@@
|
||||||
begin
|
Default file reading method.
|
||||||
|
|
||||||
|
Opens the file and calls ReadFromStream
|
||||||
|
|
||||||
|
@param AFileName The input file name.
|
||||||
|
@param AData The Workbook to be filled with information from the file.
|
||||||
|
|
||||||
|
@see TsWorkbook
|
||||||
|
}
|
||||||
|
procedure TsCustomSpreadReader.ReadFromFile(AFileName: string; AData: TsWorkbook);
|
||||||
|
var
|
||||||
|
InputFile: TFileStream;
|
||||||
|
begin
|
||||||
|
InputFile := TFileStream.Create(AFileName, fmOpenRead);
|
||||||
|
try
|
||||||
|
ReadFromStream(InputFile, AData);
|
||||||
|
finally
|
||||||
|
InputFile.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
This routine should be overriden in descendent classes.
|
||||||
|
}
|
||||||
|
procedure TsCustomSpreadReader.ReadFromStream(AStream: TStream; AData: TsWorkbook);
|
||||||
|
begin
|
||||||
|
raise Exception.Create(lpUnsupportedReadFormat);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ TsCustomSpreadWriter }
|
{ TsCustomSpreadWriter }
|
||||||
@ -580,6 +754,15 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{@@
|
||||||
|
This routine should be overriden in descendent classes.
|
||||||
|
}
|
||||||
|
procedure TsCustomSpreadWriter.WriteToStream(AStream: TStream; AData: TsWorkbook);
|
||||||
|
begin
|
||||||
|
raise Exception.Create(lpUnsupportedWriteFormat);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
finalization
|
finalization
|
||||||
|
|
||||||
SetLength(GsSpreadFormats, 0);
|
SetLength(GsSpreadFormats, 0);
|
||||||
|
|||||||
@ -33,6 +33,21 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
{ TsSpreadBIFF2Reader }
|
||||||
|
|
||||||
|
TsSpreadBIFF2Reader = class(TsCustomSpreadReader)
|
||||||
|
private
|
||||||
|
RecordSize: Word;
|
||||||
|
FWorksheet: TsWorksheet;
|
||||||
|
public
|
||||||
|
{ General reading methods }
|
||||||
|
procedure ReadFromStream(AStream: TStream; AData: TsWorkbook); override;
|
||||||
|
{ Record writing methods }
|
||||||
|
procedure ReadFormula(AStream: TStream); override;
|
||||||
|
procedure ReadLabel(AStream: TStream); override;
|
||||||
|
procedure ReadNumber(AStream: TStream); override;
|
||||||
|
end;
|
||||||
|
|
||||||
{ TsSpreadBIFF2Writer }
|
{ TsSpreadBIFF2Writer }
|
||||||
|
|
||||||
TsSpreadBIFF2Writer = class(TsCustomSpreadWriter)
|
TsSpreadBIFF2Writer = class(TsCustomSpreadWriter)
|
||||||
@ -274,15 +289,108 @@ begin
|
|||||||
AStream.WriteBuffer(AValue, 8);
|
AStream.WriteBuffer(AValue, 8);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ TsSpreadBIFF2Reader }
|
||||||
|
|
||||||
|
procedure TsSpreadBIFF2Reader.ReadFromStream(AStream: TStream; AData: TsWorkbook);
|
||||||
|
var
|
||||||
|
BIFF2EOF: Boolean;
|
||||||
|
RecordType: Word;
|
||||||
|
CurStreamPos: Int64;
|
||||||
|
begin
|
||||||
|
BIFF2EOF := False;
|
||||||
|
|
||||||
|
{ In BIFF2 files there is only one worksheet, let's create it }
|
||||||
|
FWorksheet := AData.AddWorksheet('');
|
||||||
|
|
||||||
|
{ Read all records in a loop }
|
||||||
|
while not BIFF2EOF do
|
||||||
|
begin
|
||||||
|
{ Read the record header }
|
||||||
|
RecordType := AStream.ReadWord;
|
||||||
|
RecordSize := AStream.ReadWord;
|
||||||
|
|
||||||
|
CurStreamPos := AStream.Position;
|
||||||
|
|
||||||
|
case RecordType of
|
||||||
|
|
||||||
|
INT_EXCEL_ID_NUMBER: ReadNumber(AStream);
|
||||||
|
INT_EXCEL_ID_LABEL: ReadLabel(AStream);
|
||||||
|
INT_EXCEL_ID_FORMULA: ReadFormula(AStream);
|
||||||
|
INT_EXCEL_ID_BOF: ;
|
||||||
|
INT_EXCEL_ID_EOF: BIFF2EOF := True;
|
||||||
|
else
|
||||||
|
// nothing
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Make sure we are in the right position for the next record
|
||||||
|
AStream.Seek(CurStreamPos + RecordSize, soFromBeginning);
|
||||||
|
|
||||||
|
if AStream.Position >= AStream.Size then BIFF2EOF := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TsSpreadBIFF2Reader.ReadFormula(AStream: TStream);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TsSpreadBIFF2Reader.ReadLabel(AStream: TStream);
|
||||||
|
var
|
||||||
|
L: Byte;
|
||||||
|
ARow, ACol: Word;
|
||||||
|
AValue: array[0..255] of Char;
|
||||||
|
AStrValue: ansistring;
|
||||||
|
begin
|
||||||
|
{ BIFF Record data }
|
||||||
|
ARow := AStream.ReadWord();
|
||||||
|
ACol := AStream.ReadWord();
|
||||||
|
|
||||||
|
{ BIFF2 Attributes }
|
||||||
|
AStream.ReadByte();
|
||||||
|
AStream.ReadByte();
|
||||||
|
AStream.ReadByte();
|
||||||
|
|
||||||
|
{ String with 8-bit size }
|
||||||
|
L := AStream.ReadByte();
|
||||||
|
AStream.ReadBuffer(AValue, L);
|
||||||
|
AValue[L] := #0;
|
||||||
|
AStrValue := AValue;
|
||||||
|
|
||||||
|
{ Save the data }
|
||||||
|
FWorksheet.WriteAnsiText(ARow, ACol, AStrValue);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TsSpreadBIFF2Reader.ReadNumber(AStream: TStream);
|
||||||
|
var
|
||||||
|
ARow, ACol: Word;
|
||||||
|
AValue: Double;
|
||||||
|
begin
|
||||||
|
{ BIFF Record data }
|
||||||
|
ARow := AStream.ReadWord();
|
||||||
|
ACol := AStream.ReadWord();
|
||||||
|
|
||||||
|
{ BIFF2 Attributes }
|
||||||
|
AStream.ReadByte();
|
||||||
|
AStream.ReadByte();
|
||||||
|
AStream.ReadByte();
|
||||||
|
|
||||||
|
{ IEE 754 floating-point value }
|
||||||
|
AStream.ReadBuffer(AValue, 8);
|
||||||
|
|
||||||
|
{ Save the data }
|
||||||
|
FWorksheet.WriteNumber(ARow, ACol, AValue);
|
||||||
|
end;
|
||||||
|
|
||||||
{*******************************************************************
|
{*******************************************************************
|
||||||
* Initialization section
|
* Initialization section
|
||||||
*
|
*
|
||||||
* Registers this reader / writer on fpSpreadsheet
|
* Registers this reader / writer on fpSpreadsheet
|
||||||
*
|
*
|
||||||
*******************************************************************}
|
*******************************************************************}
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
|
|
||||||
RegisterSpreadFormat(TsCustomSpreadReader, TsSpreadBIFF2Writer, sfExcel2);
|
RegisterSpreadFormat(TsSpreadBIFF2Reader, TsSpreadBIFF2Writer, sfExcel2);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user