将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。