delphi - 将UTF16转换为Windows 1250

Question

我有一个文件，用FileStream打开，然后修改文本。其标准编码为UTF16。在此之后，我想将修改后的文件上传到某个地方，但这必须是Windows-1250格式。

如何将UTF16转换为Windows-1250编码？

Answer 1

使用TEncoding将字符串编码为特定的编码。

var
  Ansi1250Enc: TEncoding;
....
Ansi1250Enc := TEncoding.GetEncoding(1250);

然后，您可以使用GetBytes将字符串编码为字节数组：

var
  EncodedBytes: TBytes;
  str: string;
....
str := ...; // get your text into a string variable by whatever means
EncodedBytes := Ansi1250Enc.GetBytes(str);

或者，如果您将文本存储在字符串列表中，则可以将其保存为：

Strings.SaveToFile(FileName, Ansi1250Enc);

完成操作后，别忘了销毁Ansi1250Enc。