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

Merged revision(s) 62474 #6f1497ade1 from trunk:

Browse Source 
revert 61976 #ec34c3f2f1:
lazutils: lazutf8: fixed TStringList.LoadFromFile load UTF8 by default
* not needed any more because the latest FPC trunk has TEncoding.Default=SystemEncoding that is UTF-8 in Lazarus/LazUTF8
........

git-svn-id: branches/fixes_2_0@62617 -
This commit is contained in:
maxim 2020-02-07 22:11:21 +00:00
parent 4f57011244
commit f4e5f3f56a
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/winlazutf8.inc
View File

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