paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 22:15:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: lconvencoding: comments

Browse Source 
git-svn-id: trunk@30447 -
This commit is contained in:
mattias 2011-04-24 08:53:42 +00:00
parent 5afc04632f
commit b3fbf217ee
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lconvencoding.pas
View File

@ -5852,13 +5852,13 @@ begin
exit;
end;
// try ucs-2le BOM FF FE
// try ucs-2le BOM FF FE (ToDo: nowadays this BOM is UTF16LE)
if (length(s)>=2) and (s[1]=#$FF) and (s[2]=#$FE) then begin
Result:=EncodingUCS2LE;
exit;
end;
// try ucs-2be BOM FE FF
// try ucs-2be BOM FE FF (ToDo: nowadays this BOM is UTF16BE)
if (length(s)>=2) and (s[1]=#$FE) and (s[2]=#$FF) then begin
Result:=EncodingUCS2BE;
exit;
@ -5903,7 +5903,7 @@ begin
if NormalizeEncoding(Result)=EncodingUTF8 then begin
// the system encoding is UTF-8, but it is not UTF-8
// use ISO-8859-1 instead. This encoding has a full 1:1 mapping to unicode,
// so no character is lost during conversions.
// so no character is lost during conversion back and forth.
Result:='ISO-8859-1';
end;
end;