【发布时间】：2022-07-01 03:56:14
【问题描述】：
我需要 Pascal（Delphi 或 Free Pascal）函数将 UTF-8 文本（例如字符串）转换为 Shift-JIS（也例如字符串）。
对于 Shift-JIS => UTF-8，我找到了代码 which is here。现在我需要反向转换器。
我想将此代码添加到 Lazarus 库 LConvEncoding，所以它必须不使用 \'iconv\' 或 Win32 API，它必须是纯 Pascal。如果用 Pascal 重写它很容易，它可能是另一种语言的代码。
-
这个可爱的函数有 1119 行长，尽管其中大约 1000 行是专用于表格的。您是否期望有人在单个 SO 答案的范围内为逆向咳出类似的东西？有什么东西阻止你自己尝试吗？
-
Delphi 的
string自 2009 年以来一直是UnicodeString，因此它不能保存 UTF-8 或 Shift-JIS 内容，只能保存 UTF-16。也许您正在考虑AnsiString？ FreePascal的string默认还是AnsiString，除非你使用{$modeswitch UnicodeStrings}或者{$mode DelphiUnicode}。