TurboPower_iPro: Better fix to encoding issue than r64079 #75bc98773e. Issue #37992.

git-svn-id: trunk@64080 -
This commit is contained in:
wp 2020-10-28 11:52:52 +00:00
parent 75bc98773e
commit 1c839c1369

View File

@ -5799,8 +5799,8 @@ begin
{$IFDEF IP_LAZARUS}
Lst := TStringList.Create;
GetSupportedEncodings(Lst);
if Lst.IndexOf(FDocCharset)=0 then
FDocCharset := 'UTF-8';
if Lst.IndexOf(FDocCharset)=-1 then
FDocCharset := '';
Lst.Free;
{$ENDIF}
end;