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

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

Browse Source 
git-svn-id: branches/fixes_2_0@61978 -
This commit is contained in:
mattias 2019-10-04 13:59:46 +00:00
parent 4b2ad11758
commit 919869a94c
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
Result:=0;
end;
function UTF8GetStandardCodePage(const stdcp: TStandardCodePageEnum
): TSystemCodePage;
begin
Result:=CP_UTF8;
end;
{$ENDIF}
procedure InitLazUtf8;
@ -635,6 +641,7 @@ begin
widestringmanager.StrICompAnsiStringProc:=@UTF8StrICompAnsiString;
widestringmanager.StrLCompAnsiStringProc:=@UTF8StrLCompAnsiString;
widestringmanager.StrLICompAnsiStringProc:=@UTF8StrLICompAnsiString;
widestringmanager.GetStandardCodePageProc:=@UTF8GetStandardCodePage;
// Does anyone need these two?
//widestringmanager.StrLowerAnsiStringProc;
//widestringmanager.StrUpperAnsiStringProc;