delphi - Delphi 7 の Unicode に相当する chr

Question

Delphi 7 で Widestring を初期化する必要がありますchrが、ANSI の関数を使用できません

var
  ws : Widestring;
begin

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

end;

では、何を使用できますか？

ありがとう

Answer 1

あなたが望むことをする簡単な方法があるかどうかはわかりません。単純なキャストで aWordを a に変換できます。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]);