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

lazutils: fixed NeedRTLAnsi under non Windows

Browse Source 
git-svn-id: trunk@35423 -
This commit is contained in:
mattias 2012-02-17 15:10:57 +00:00
parent 2ab91a0316
commit 587a1ef0fd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/lazutf8.pas
View File

@ -143,10 +143,10 @@ begin
{$ELSE}
FNeedRTLAnsi:=false;
Lang := SysUtils.GetEnvironmentVariable('LC_ALL');
if Length(lang) = 0 then
if lang = '' then
begin
Lang := SysUtils.GetEnvironmentVariable('LC_MESSAGES');
if Length(Lang) = 0 then
if Lang = '' then
begin
Lang := SysUtils.GetEnvironmentVariable('LANG');
end;
@ -154,8 +154,8 @@ begin
i:=System.Pos('.',Lang);
if (i>0) then begin
Encoding:=copy(Lang,i+1,length(Lang)-i);
FNeedRTLAnsi:=(SysUtils.CompareText(Encoding,'UTF-8')=0)
or (SysUtils.CompareText(Encoding,'UTF8')=0);
FNeedRTLAnsi:=(SysUtils.CompareText(Encoding,'UTF-8')<>0)
and (SysUtils.CompareText(Encoding,'UTF8')<>0);
end;
{$ENDIF}
FNeedRTLAnsiValid:=true;