delphi - Delphi 7 中 Unicode 的 chr 等效项

Question

我需要在 Delphi 7 中初始化 Widestring，但我无法使用 ANSI 的 chr 函数

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]);