mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 15:49:21 +02:00
* Correct UTF8 detection
This commit is contained in:
parent
186f93a8c9
commit
6d49f7db7b
@ -2747,7 +2747,7 @@ begin
|
|||||||
Result:=sofBinary
|
Result:=sofBinary
|
||||||
else if (AnsiChar(Sig[0]) in StartChars) then
|
else if (AnsiChar(Sig[0]) in StartChars) then
|
||||||
Result:=sofText
|
Result:=sofText
|
||||||
else if (Sig[1]=$BF) and (Sig[2]=$BB) and (Sig[3]=$EF) then
|
else if (Sig[0]=$EF) and (Sig[1]=$BB) and (Sig[2]=$BF) then
|
||||||
Result:=sofUTF8Text;
|
Result:=sofUTF8Text;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user