如何转换使用 Lazarus 将 CodePage 1250 (Windows-1250) 转换为 Unicode

Question

Objective:

使用 Lazarus 创建一个函数，将代码页 1250 (Windows-1250) 中的字符串转换为 Unicode。

Answer 1

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

uses
  LConvEncoding;

...

function ConvertStrFromCP1250ToUnicode(TextAsCP1250: string): unicodestring;

var
  TextAsUTF8: string;

begin

  TextAsUTF8 := CP1250ToUTF8(TextAsCP1250);

  Result := TextAsUTF8;

end;