如何使用Lazarus将代码页1250（Windows-1250）转换为Unicode

目标：

---

使用Lazarus创建一个函数，用于将字符串从代码页1250（Windows-1250）转换为Unicode。

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

uses
  LConvEncoding;

---

请展示你的作品。@AdamMartin看到答案了吗？你使用的是什么版本的FreePascal/Lazarus？最新版本现在支持。您可以定义一个与代码页1250关联的

ansisting

，然后将其按原样分配给一个

UnicodeString

，编译器/RTL将在运行时为您执行正确的Unicode转换。@RemyLebeau Lazarus 1.6/FreePascal 3.0。在您的评论之后，我从1.4版本切换到了1.4版本。由于存储库中没有最新版本，我手动下载了该软件包，但我不喜欢这样做。@burian.vlastimil：我不知道您指的是哪个存储库，因为SourceForge上的主要FreePascal和Lazarus存储库分别有3.0.0和1.6。

function ConvertStrFromCP1250ToUnicode(TextAsCP1250: string): unicodestring;

var
  TextAsUTF8: string;

begin

  TextAsUTF8 := CP1250ToUTF8(TextAsCP1250);

  Result := TextAsUTF8;

end;