paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed NeedRTLAnsi

Browse Source 
git-svn-id: trunk@28191 -
This commit is contained in:
mattias 2010-11-12 20:57:25 +00:00
parent 423aab1554
commit 86f517a9f7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/unixfileutil.inc
View File

@ -281,8 +281,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;
FNeedRTLAnsiValid:=true; FNeedRTLAnsiValid:=true;
Result:=FNeedRTLAnsi; Result:=FNeedRTLAnsi;