|
@@ -254,7 +254,7 @@ begin
|
|
if (cp=CP_UTF8) then
|
|
if (cp=CP_UTF8) then
|
|
begin
|
|
begin
|
|
destLen:=UnicodeToUtf8(nil,High(SizeUInt),source,len);
|
|
destLen:=UnicodeToUtf8(nil,High(SizeUInt),source,len);
|
|
- SetLength(dest,destLen);
|
|
|
|
|
|
+ SetLength(dest,destLen-1);
|
|
UnicodeToUtf8(@dest[1],destLen,source,len);
|
|
UnicodeToUtf8(@dest[1],destLen,source,len);
|
|
SetCodePage(dest,cp,False);
|
|
SetCodePage(dest,cp,False);
|
|
exit;
|
|
exit;
|