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

LCL: removed broken override for specifying the SystemEncoding

Browse Source 
git-svn-id: trunk@15197 -
This commit is contained in:
vincents 2008-05-21 13:30:05 +00:00
parent f94b387c2c
commit 4164fa92e0
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/lconvencoding.pas
View File

@ -108,7 +108,6 @@ end;
function GetSystemEncoding: string;
var Lang: string;
i: integer;
s: string;
begin
if EncodingValid then begin
Result:=SystemEncoding;
@ -134,13 +133,6 @@ begin
if (i>0) and (i<=length(Lang)) then
Result:=copy(Lang,i+1,length(Lang)-i);
// check parameters
for i:=1 to ParamCount do
begin
s:=ParamStr(i);
if s='--charset=' then Result:=copy(s,pos(#61,s),length(s));
end;
Result:=NormalizeEncoding(Result);
SystemEncoding:=Result;