在Delphi 7中，chr等效於Unicode

Question

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

var
  ws : Widestring;
begin

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

end;

那我可以用什么？

謝謝

Answer 1

我不確定有什么簡單的方法可以做你想做的事。 您可以使用簡單的WideChar轉換將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]);