Delphi 将两个字节合并为WideChar

是否可以将两个

字节

组合到

WideChar

中？如果可以，如何组合？
例如，二进制字母“ē”是

00010011

=

19

和

00000001

=

1

，或

275

var
  WChar: WideChar;
begin
  WChar := WideChar(275); // Result is "ē"

---

如何在Delphi中从两个字节中获取WideChar？

您应该能够创建一个类型并强制转换：

type
  DoubleByte = packed record
    B1: Byte;
    B2: Byte;
  end;

var
  DB: DoubleByte;
  WC: WideChar;
begin
  DB.B1 := 19;
  DB.B2 := 1;

  WC = WideChar(DB);
end;

---

如果强制转换失败，您可以使用

Move（）

代替，只需复制内存即可。

啊，我忘了MakeWord，很好：）

WChar := WideChar(MakeWord(B1, B2));

WChar := WideChar(MakeWord(B1, B2));