德尔福XE3:如何将WideChar数组转换为Unicode字符串？

Question

我在这里对上面给出的问题做了一些研究，并提出了以下代码：

VarStr = array of WideChar;

function ArrayToString(const a: VarStr): UnicodeString;
begin
  if Length(a) > 0 then
    begin
      ShowMessage ('Länge des übergebenen Strings: ' + IntToStr(Length(a)));
      SetString(Result, PWideChar(@a[0]), Length(a) div 2)
    end
  else
    Result := '';
end;

ShowMessage显示给定数组中正确的字符数，但函数的结果始终是空字符串。

请给我你的主意？

Answer 1

Result:= Trim(string(a));

更新：作为同事在评论中亲切地指出，这是错误的答案！这只是因为内部字符串和动态数组实现非常相似，而且不能保证这些代码在将来的编译器版本中能够工作。到DynArray->String转换的正确方法在David答案中进行了描述。我不会删除我的答案以保留评论，我认为它们的价值要大得多。