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

lazutils: paswstring: clean up

Browse Source 
git-svn-id: trunk@47095 -
This commit is contained in:
mattias 2014-12-04 16:11:59 +00:00
parent a4c4c3a904
commit a937271d53
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/paswstring.pas
View File

@ -339,11 +339,8 @@ begin
// Copy the originating string taking into account the specified length
SetLength(ansistr, len);
System.Move(source^, ansistr[1], len);
{$ifdef PASWSTRING_SUPPORT_NONUTF8_ANSISTRING}
// Convert to UTF-8
ansistr := ConvertEncoding(ansistr, GetDefaultTextEncoding(), EncodingUTF8);
{$endif}
// Now convert it, using UTF-8 -> UTF-16
dest := UTF8ToUTF16(ansistr);
end else begin