paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 20:21:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: LoadFromCSVStream: fixed reading UTF16

Browse Source 
git-svn-id: trunk@50232 -
This commit is contained in:
mattias 2015-11-06 12:05:15 +00:00
parent 6d5708e02c
commit a1e2f1e248
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lcsvutils.pas
View File

@ -193,7 +193,7 @@ var
if CSVEncoding=ceUTF16be then if CSVEncoding=ceUTF16be then
ConvertToUTF16; ConvertToUTF16;
SetLength(W,(tailPtr-leadPtr) div 2 +1); SetLength(W,(tailPtr-leadPtr) div 2 +1);
System.Move(leadPtr^,W[1],length(W)); System.Move(leadPtr^,W[1],length(W)*2);
Buffer := UTF8Encode(W); Buffer := UTF8Encode(W);
leadPtr := @Buffer[1]; leadPtr := @Buffer[1];
BufLen := length(Buffer); BufLen := length(Buffer);