如何转换例如使用拉撒路代码页1250（Windows的1250）转换为Unicode

Question

目的：

使用拉撒路创建从代码页1250（Windows的1250）成Unicode字符串转换的功能。

Answer 1

我发现只有一种方法可以有效地做到这一点，随时添加自己的研究。

uses 
    LConvEncoding; 

...

function ConvertStrFromCP1250ToUnicode(TextAsCP1250: string): unicodestring; 

var 
    TextAsUTF8: string; 

begin 

    TextAsUTF8 := CP1250ToUTF8(TextAsCP1250); 

    Result := TextAsUTF8; 

end;