Commit 3dc70523 authored by Benito van der Zander's avatar Benito van der Zander

put actual encoding in XML header

rather than CP-0 for default encoding
parent 2d1de30f
......@@ -3452,7 +3452,9 @@ end;
function encodingName(e: TSystemCodePage): string;
begin
e := strActualEncoding(e);
case e of
CP_UTF8: result := 'UTF-8'; //XML prefers uppercase
CP_UTF16BE, CP_UTF16: result := 'UTF-16'; //XML does not need BE/LE in name
CP_UTF32BE, CP_UTF32: result := 'UTF-32';
else begin
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment