小编Ste*_*fan的帖子

我在这里做了一些关于上面给出的问题的研究并得出以下代码:

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在给定数组中显示正确的字符数,但该函数的结果始终为空字符串.

你的想法好吗？