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

LazUtils: In GetSupportedEncodings return codepage names as they are. They are already mixed case.

Browse Source 
git-svn-id: trunk@64549 -
This commit is contained in:
juha 2021-02-12 10:33:10 +00:00
parent d608622e30
commit 95c347474a
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
components/lazutils/lconvencoding.pas
View File

@ -2300,26 +2300,26 @@ begin
List.Add('UTF-8BOM');
List.Add('Ansi');
List.Add(UpperCase(EncodingCP1250));
List.Add(UpperCase(EncodingCP1251));
List.Add(UpperCase(EncodingCP1252));
List.Add(UpperCase(EncodingCP1253));
List.Add(UpperCase(EncodingCP1254));
List.Add(UpperCase(EncodingCP1255));
List.Add(UpperCase(EncodingCP1256));
List.Add(UpperCase(EncodingCP1257));
List.Add(UpperCase(EncodingCP1258));
List.Add(UpperCase(EncodingCP437));
List.Add(UpperCase(EncodingCP850));
List.Add(UpperCase(EncodingCP852));
List.Add(UpperCase(EncodingCP866));
List.Add(UpperCase(EncodingCP874));
List.Add(EncodingCP1250);
List.Add(EncodingCP1251);
List.Add(EncodingCP1252);
List.Add(EncodingCP1253);
List.Add(EncodingCP1254);
List.Add(EncodingCP1255);
List.Add(EncodingCP1256);
List.Add(EncodingCP1257);
List.Add(EncodingCP1258);
List.Add(EncodingCP437);
List.Add(EncodingCP850);
List.Add(EncodingCP852);
List.Add(EncodingCP866);
List.Add(EncodingCP874);
{$IFnDEF DisableAsianCodePages}
List.Add(UpperCase(EncodingCP932));
List.Add(UpperCase(EncodingCP936));
List.Add(UpperCase(EncodingCP949));
List.Add(UpperCase(EncodingCP950));
List.Add(EncodingCP932);
List.Add(EncodingCP936);
List.Add(EncodingCP949);
List.Add(EncodingCP950);
{$ENDIF}
List.Add('ISO-8859-1');