CHR相當於對Unicode在Delphi 7

Question

我需要在Delphi 7初始化WideString的，但我不能使用chr函數，它是ANSI

var 
    ws : Widestring; 
begin 

ws := chr($FFFF) + chr($FFFF) + chr($FFFF); 

end; 

我可以使用什麼呢？

謝謝

Answer 1

我不確定有一種簡單的方法來做你想做的事。你可以轉換一個Word爲WideChar用一個簡單的轉換：

WideChar($FFFF) 

，但你不能連接WideChar。所以這是一個編譯器錯誤：

WideChar($FFFF) + WideChar($FFFF) 

你可以使用一個輔助函數來完成這項工作：

function InitialiseWideString(const chars: array of Word): WideString; 
var 
    i: Integer; 
begin 
    SetLength(Result, Length(chars)); 
    for i := 0 to high(chars) do 
    Result[i+1] := WideChar(chars[i]); 
end; 

然後，你可以這樣調用：

ws := InitialiseWideString([$0054, $0069, $006D, $0065, $0020, $0074, $006F, 
    $0020, $0075, $0070, $0067, $0072, $0061, $0064, $0065]);