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

fpspreadsheet: Add TsWorksheetDataset.Flush to write a spreadsheet file to disk.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8100 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-09-28 22:15:10 +00:00
parent db6dc4b039
commit 83268bfd02
1 changed files with 9 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
components/fpspreadsheet/source/dataset/fpsdataset.pas
View File

@ -203,6 +203,7 @@ type
const AWorkbookFileName, ASheetName: String);
function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
procedure CreateTable;
procedure Flush;
function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
function Locate(const KeyFields: String; const KeyValues: Variant;
Options: TLocateOptions): boolean; override;
@ -1063,18 +1064,15 @@ begin
end;
end;
(*
// Removes characters from AText which would make it an invalid fieldname.
function TsWorksheetDataset.FixFieldName(const AText: String): String;
var
ch: char;
procedure TsWorksheetDataset.Flush;
const
OVERWRITE = true;
begin
Result := '';
for ch in AText do
if (ch in ['A'..'Z', 'a'..'z', '0'..'9']) then
Result := Result + ch;
if FAutoFileFormat then
FWorkbook.WriteToFile(FFileName, OVERWRITE)
else
FWorkbook.WriteToFile(FFileName, FFileFormat, OVERWRITE);
end;
*)
procedure TsWorksheetDataset.FreeBlobPointers(Buffer: TRecordBuffer);
var
@ -1389,10 +1387,7 @@ begin
FIsOpen := false;
if FModified then begin
if FAutoFileFormat then
FWorkbook.WriteToFile(FFileName, true)
else
FWorkbook.WriteToFile(FFileName, FFileFormat, true);
Flush;
FModified := false;
end;
FreeWorkbook;