disabled utf8 console output for Windows XP and 7

This commit is contained in:
Ivan Bondarev 2021-09-10 20:50:27 +02:00
parent 3a16bafce0
commit a33d2cdcf1

View file

@ -14068,7 +14068,8 @@ procedure __InitModule;
begin begin
try try
DefaultEncoding := Encoding.GetEncoding(1251); DefaultEncoding := Encoding.GetEncoding(1251);
System.Console.OutputEncoding := Encoding.UTF8; if (System.Environment.OSVersion.Version.Major >= 6) and (System.Environment.OSVersion.Version.Minor >= 2) then
System.Console.OutputEncoding := Encoding.UTF8;
except except
DefaultEncoding := Encoding.UTF8; DefaultEncoding := Encoding.UTF8;
end; end;