mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Cache encoding list

Browse source
This commit is contained in:
Alexander Koblov 2017-10-06 20:34:36 +00:00
commit 497eb06fd8
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/uconvencoding.pas
View file

@ -358,11 +358,15 @@ procedure GetSupportedEncodings(List: TStrings);
var
Index: Integer;
begin
TStringList(List).CaseSensitive:= False;
LConvEncoding.GetSupportedEncodings(List);
Index:= List.IndexOf(EncodingAnsi);
List[Index] := UpperCase(EncodingAnsi);
List.Insert(Index + 1, UpperCase(EncodingOem));
if SupportedEncodings.Count > 0 then
List.Assign(SupportedEncodings)
else begin
TStringList(List).CaseSensitive:= False;
LConvEncoding.GetSupportedEncodings(List);
Index:= List.IndexOf(EncodingAnsi);
List[Index] := UpperCase(EncodingAnsi);
List.Insert(Index + 1, UpperCase(EncodingOem));
end;
end;
function DetectEncoding(const S: String): String;