如何转换，例如使用Lazarus将CodePage 1250（Windows-1250）转换为Unicode

Question

目的：

使用Lazarus为CodePage 1250（Windows-1250）转换字符串创建一个函数为Unicode。

Answer 1

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

uses
  LConvEncoding;

...

function ConvertStrFromCP1250ToUnicode(TextAsCP1250: string): unicodestring;

var
  TextAsUTF8: string;

begin

  TextAsUTF8 := CP1250ToUTF8(TextAsCP1250);

  Result := TextAsUTF8;

end;