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

* fpspreadsheet: use buffered streams for performance

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3623 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-10-03 06:35:21 +00:00
parent d4547b864b
commit f8c6435689
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/fpsexport.pas
View File

@ -117,6 +117,9 @@ procedure TCustomFPSExport.DoBeforeExecute;
begin begin
Inherited; Inherited;
FSpreadsheet:=TsWorkbook.Create; FSpreadsheet:=TsWorkbook.Create;
// For extra performance. Note that virtual mode is not an option
// due to the data export determining flow of the program.
FSpreadsheet.Options:=FSpreadsheet.Options+[boBufStream];
FSheet:=FSpreadsheet.AddWorksheet('1'); FSheet:=FSpreadsheet.AddWorksheet('1');
FRow:=0; FRow:=0;
end; end;
@ -166,8 +169,6 @@ procedure TCustomFPSExport.ExportField(EF: TExportFieldItem);
var var
F : TFPSExportFieldItem; F : TFPSExportFieldItem;
begin begin
// todo: look into virtual mode in case large exports are used, maybe also
// boBufStream
F:=EF as TFPSExportFieldItem; F:=EF as TFPSExportFieldItem;
with F do with F do
begin begin