結合兩個字節WideChar

Question

是否有可能結合兩個Bytes至WideChar如果是的話，那麼如何？
例如，二進制中的字母「ē」是00010011 = 19和00000001 = 1或275在一起。

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

var 
    B1, B2: Byte; 
    WChar: WideChar; 
begin 
    B1 := 19; 
    B2 := 1; 
    WChar := CombineBytesToWideChar(B1, B2); // ??? 

我如何WideChar從德爾福兩個字節？

Answer 1

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

Answer 2

你應該只能夠創建一個類型和投：

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()代替，簡單地複製內存。