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

FPSpreadsheet: Adds a reader method which guesses the format from the extension.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1642 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-05-25 13:52:46 +00:00
parent 038d224034
commit 7f8e1edddb
2 changed files with 20 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

117
components/fpspreadsheet/examples/excel8demo/excel8write_format.lpi
View File

@@ -9,11 +9,11 @@
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<UseDefaultCompilerOptions Value="True"/> <UseDefaultCompilerOptions Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/> <Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
@@ -21,7 +21,7 @@
<VersionInfo> <VersionInfo>
<StringTable ProductVersion=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1" Active="Default"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
@@ -39,124 +39,13 @@
<PackageName Value="laz_fpspreadsheet"/> <PackageName Value="laz_fpspreadsheet"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="4"> <Units Count="1">
<Unit0> <Unit0>
<Filename Value="excel8write_format.pas"/> <Filename Value="excel8write_format.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="excel8write_format"/> <UnitName Value="excel8write_format"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="31"/>
<CursorPos X="12" Y="44"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1>
<Filename Value="..\..\fpspreadsheet.pas"/>
<UnitName Value="fpspreadsheet"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="93"/>
<CursorPos X="1" Y="105"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\..\..\..\..\lazarus29\fpc\2.4.3\source\packages\fcl-image\src\fpimage.pp"/>
<UnitName Value="FPimage"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="10"/>
<CursorPos X="3" Y="30"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\xlsbiff8.pas"/>
<UnitName Value="xlsbiff8"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="758"/>
<CursorPos X="61" Y="766"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
</Units> </Units>
<JumpHistory Count="18" HistoryIndex="17">
<Position1>
<Filename Value="excel8write_format.pas"/>
<Caret Line="29" Column="1" TopLine="9"/>
</Position1>
<Position2>
<Filename Value="excel8write_format.pas"/>
<Caret Line="35" Column="23" TopLine="20"/>
</Position2>
<Position3>
<Filename Value="excel8write_format.pas"/>
<Caret Line="15" Column="25" TopLine="2"/>
</Position3>
<Position4>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="160" Column="78" TopLine="146"/>
</Position4>
<Position5>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="122" Column="25" TopLine="116"/>
</Position5>
<Position6>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="132" Column="25" TopLine="114"/>
</Position6>
<Position7>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="131" Column="10" TopLine="106"/>
</Position7>
<Position8>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="132" Column="24" TopLine="112"/>
</Position8>
<Position9>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="17" Column="35" TopLine="3"/>
</Position9>
<Position10>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="132" Column="25" TopLine="111"/>
</Position10>
<Position11>
<Filename Value="excel8write_format.pas"/>
<Caret Line="15" Column="25" TopLine="5"/>
</Position11>
<Position12>
<Filename Value="excel8write_format.pas"/>
<Caret Line="47" Column="25" TopLine="33"/>
</Position12>
<Position13>
<Filename Value="..\..\xlsbiff8.pas"/>
<Caret Line="941" Column="11" TopLine="926"/>
</Position13>
<Position14>
<Filename Value="..\..\xlsbiff8.pas"/>
<Caret Line="125" Column="17" TopLine="116"/>
</Position14>
<Position15>
<Filename Value="..\..\xlsbiff8.pas"/>
<Caret Line="933" Column="61" TopLine="924"/>
</Position15>
<Position16>
<Filename Value="excel8write_format.pas"/>
<Caret Line="57" Column="29" TopLine="36"/>
</Position16>
<Position17>
<Filename Value="excel8write_format.pas"/>
<Caret Line="28" Column="54" TopLine="14"/>
</Position17>
<Position18>
<Filename Value="excel8write_format.pas"/>
<Caret Line="41" Column="14" TopLine="28"/>
</Position18>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="10"/>

18
components/fpspreadsheet/fpspreadsheet.pas
View File

@@ -190,7 +190,8 @@ type
destructor Destroy; override; destructor Destroy; override;
function CreateSpreadReader(AFormat: TsSpreadsheetFormat): TsCustomSpreadReader; function CreateSpreadReader(AFormat: TsSpreadsheetFormat): TsCustomSpreadReader;
function CreateSpreadWriter(AFormat: TsSpreadsheetFormat): TsCustomSpreadWriter; function CreateSpreadWriter(AFormat: TsSpreadsheetFormat): TsCustomSpreadWriter;
procedure ReadFromFile(AFileName: string; AFormat: TsSpreadsheetFormat); procedure ReadFromFile(AFileName: string; AFormat: TsSpreadsheetFormat); overload;
procedure ReadFromFile(AFileName: string); overload;
procedure ReadFromStream(AStream: TStream; AFormat: TsSpreadsheetFormat); procedure ReadFromStream(AStream: TStream; AFormat: TsSpreadsheetFormat);
procedure WriteToFile(const AFileName: string; procedure WriteToFile(const AFileName: string;
const AFormat: TsSpreadsheetFormat; const AFormat: TsSpreadsheetFormat;
@@ -777,6 +778,21 @@ begin
end; end;
end; end;
{@@
Reads the document from a file. This method will try to guess the format from
the extension. In the case of the ambiguous xls extension, it will simply
assume that it is BIFF8. Note that it could be BIFF2, 3, 4 or 5 too.
}
procedure TsWorkbook.ReadFromFile(AFileName: string);
var
Str: String;
begin
Str := ExtractFileExt(AFileName);
if Str = STR_EXCEL_EXTENSION then ReadFromFile(AFileName, sfExcel8)
else if Str = STR_OOXML_EXCEL_EXTENSION then ReadFromFile(AFileName, sfOOXML)
else if Str = STR_OPENDOCUMENT_CALC_EXTENSION then ReadFromFile(AFileName, sfOpenDocument);
end;
{@@ {@@
Reads the document from a seekable stream. Reads the document from a seekable stream.
} }