TEncoding.FreeEncodings does not assign nil to FStandardEncodings
Original Reporter info from Mantis: engkin @engkin
-
Reporter name:
Original Reporter info from Mantis: engkin @engkin
- Reporter name:
Description:
TEncoding.FStandardEncodings need to be nil to reflect the change on DefaultSystemCodePage, as in LazUtils.
Calling
Steps to reproduce:
Run the following program (also attached):
program project1;
{$mode objfpc}{$H+}
uses
sysutils;
begin
WriteLn(DefaultSystemCodePage);
WriteLn(TEncoding.Default.EncodingName);
DefaultSystemCodePage := 65001;
TEncoding.FreeEncodings;
WriteLn(DefaultSystemCodePage);
WriteLn(TEncoding.Default.EncodingName);
end.
Additional information:
Related forum post: http://forum.lazarus.freepascal.org/index.php/topic,41026.0.html
Mantis conversion info:
- Mantis ID: 33681
- Fixed in version: 3.1.1
- Fixed in revision: 38896 (#7aa7f1b9)
- Target version: 3.2.0