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

fpspreadsheet: Call Flush() at the end of TsWorksheetDataset.CopyFromDataset to make sure that the output file is written.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8687 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-16 18:51:24 +00:00
parent 8b5c04226d
commit 75b3b0004b
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -432,7 +432,7 @@ begin
with PsBlobData(buffer)^ do with PsBlobData(buffer)^ do
Write(Data[0], Length(Data)); // Writes the data into the stream Write(Data[0], Length(Data)); // Writes the data into the stream
Position := 0; Position := 0;
SaveToFile('test.txt'); // SaveToFile('test.txt');
end; end;
Position := 0; Position := 0;
end; end;
@ -718,7 +718,7 @@ var
stream: TMemoryStream; stream: TMemoryStream;
bm: TBookmark; bm: TBookmark;
codepageStr: String; codepageStr: String;
s: RawByteString; s: RawByteString = '';
sUTF8: UTF8String; sUTF8: UTF8String;
begin begin
if Active then if Active then
@ -816,6 +816,7 @@ begin
end; end;
inc(FAutoIncValue); inc(FAutoIncValue);
FModified := true; FModified := true;
Flush;
finally finally
stream.Free; stream.Free;
ADataset.GotoBookmark(bm); ADataset.GotoBookmark(bm);