如何恢复由于 Delphi 中的错误编码而损坏的文本？ [关闭]

Question

我使用 Delphi 2009。我收到一个字符串形式的文本，看起来像 'Р'РёР·РіСѓРЅРѕРІ (ранний) {VHS}'。使用在线解码器，我能够确定它实际上是 Win-1251 代码页。

我应该怎么做才能恢复正常，换句话说，让它再次可读？

Answer 1

var s: string;
    rbs: RawByteString;
begin
    rbs := Utf8ToAnsi('Визгунов (ранний) {VHS}');
    SetCodePage(rbs, 1251, false);
    s := string(rbs); // s = 'Визгунов (ранний) {VHS}'
end;