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

fpspreadsheet: Fix utf8 issues in rpn formulas (biff8)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3263 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-07-01 14:55:27 +00:00
parent 0aaff39316
commit 24f4023486
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/xlsbiff8.pas
View File

@ -927,7 +927,7 @@ begin
INT_EXCEL_TOKEN_TSTR: { fekString } INT_EXCEL_TOKEN_TSTR: { fekString }
begin begin
// string constant is stored as widestring in BIFF8 // string constant is stored as widestring in BIFF8
wideStr := AFormula[i].StringValue; wideStr := UTF8Decode(AFormula[i].StringValue);
len := Length(wideStr); len := Length(wideStr);
AStream.WriteByte(len); // char count in 1 byte AStream.WriteByte(len); // char count in 1 byte
AStream.WriteByte(1); // Widestring flags, 1=regular unicode LE string AStream.WriteByte(1); // Widestring flags, 1=regular unicode LE string