string - 如何将使用 Windows 代码页 1251 编码的字符串转换为 Unicode 字符串

Question

我的应用收到的 cyrllic 字符串使用(我相信)下表:

说我相信，因为我测试的所有字符都适合这个表。

问题:如何将这样的东西转换成一个字符串，在我的delphi中默认是unicode？ 或者更好:Delphi 中是否有现成的转换器，或者我应该编写一个？

Answer 1

如果您使用的是 Delphi 2009 或更高版本，这是自动完成的:

type
  CyrillicString = type AnsiString(1251);

procedure TForm1.FormCreate(Sender: TObject);
var
  UnicodeStr: string;
  CyrillicStr: CyrillicString;
begin
  UnicodeStr := 'This is a test.'; // Unicode string
  CyrillicStr := UnicodeStr; // ...converted to 1251

  CyrillicStr := 'This is a test.'; // Cryllic string
  UnicodeStr := CyrillicStr; // ...converted to Unicode
end;