paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 12:09:21 +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} {$ELSE}
FNeedRTLAnsi:=false; FNeedRTLAnsi:=false;
Lang := SysUtils.GetEnvironmentVariable('LC_ALL'); Lang := SysUtils.GetEnvironmentVariable('LC_ALL');
if Length(lang) = 0 then if lang = '' then
begin begin
Lang := SysUtils.GetEnvironmentVariable('LC_MESSAGES'); Lang := SysUtils.GetEnvironmentVariable('LC_MESSAGES');
if Length(Lang) = 0 then if Lang = '' then
begin begin
Lang := SysUtils.GetEnvironmentVariable('LANG'); Lang := SysUtils.GetEnvironmentVariable('LANG');
end; end;
@ -154,8 +154,8 @@ begin
i:=System.Pos('.',Lang); i:=System.Pos('.',Lang);
if (i>0) then begin if (i>0) then begin
Encoding:=copy(Lang,i+1,length(Lang)-i); Encoding:=copy(Lang,i+1,length(Lang)-i);
FNeedRTLAnsi:=(SysUtils.CompareText(Encoding,'UTF-8')=0) FNeedRTLAnsi:=(SysUtils.CompareText(Encoding,'UTF-8')<>0)
or (SysUtils.CompareText(Encoding,'UTF8')=0); and (SysUtils.CompareText(Encoding,'UTF8')<>0);
end; end;
{$ENDIF} {$ENDIF}
FNeedRTLAnsiValid:=true; FNeedRTLAnsiValid:=true;