paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct UTF8 detection

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-14 20:08:16 +01:00
parent 186f93a8c9
commit 6d49f7db7b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classes.inc
View File

@ -2747,7 +2747,7 @@ begin
Result:=sofBinary
else if (AnsiChar(Sig[0]) in StartChars) then
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;
end;