paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-20 14:42:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: lazutf8: fixed TStringList.LoadFromFile load UTF8 by default

Browse Source 
git-svn-id: trunk@61976 -
This commit is contained in:
mattias 2019-10-04 12:05:40 +00:00
parent bd6759940d
commit ec34c3f2f1
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/winlazutf8.inc
View File

@ -597,6 +597,12 @@ begin
end else end else
Result:=0; Result:=0;
end; end;
function UTF8GetStandardCodePage(const stdcp: TStandardCodePageEnum
): TSystemCodePage;
begin
Result:=CP_UTF8;
end;
{$ENDIF} {$ENDIF}
procedure InitLazUtf8; procedure InitLazUtf8;
@ -635,6 +641,7 @@ begin
widestringmanager.StrICompAnsiStringProc:=@UTF8StrICompAnsiString; widestringmanager.StrICompAnsiStringProc:=@UTF8StrICompAnsiString;
widestringmanager.StrLCompAnsiStringProc:=@UTF8StrLCompAnsiString; widestringmanager.StrLCompAnsiStringProc:=@UTF8StrLCompAnsiString;
widestringmanager.StrLICompAnsiStringProc:=@UTF8StrLICompAnsiString; widestringmanager.StrLICompAnsiStringProc:=@UTF8StrLICompAnsiString;
widestringmanager.GetStandardCodePageProc:=@UTF8GetStandardCodePage;
// Does anyone need these two? // Does anyone need these two?
//widestringmanager.StrLowerAnsiStringProc; //widestringmanager.StrLowerAnsiStringProc;
//widestringmanager.StrUpperAnsiStringProc; //widestringmanager.StrUpperAnsiStringProc;