如何以最优雅的方式将字符数组分配给字符串？

Question

我喜欢 Pascal 的清晰性，因此请相信以下代码 sn-p 以及问题标题是不言自明的：

procedure TForm1.FormClick(Sender: TObject);
const
  N = 42; { fnord }
type
  { this structure merely defines memory layout }
  TStringStruct = record
    NumberOfCharacters: Cardinal;
    { this array supposed to be friendly for the string type }
    StringCompatibleArray: array [0..N-1] of Char;
  end;
  { actual work is done with pointer to that structure }
  PStringStruct = ^TStringStruct;
var
  StringStruct: PStringStruct;
  S: string;
begin
  StringStruct := PopulatedElsewhere;

  { most pleasant code but will copy no more than N characters }
  S := StringStruct^.StringCompatibleArray;

  { this construct works but is way too ugly and complex }
  SetString(
    S,
    { in particular: must reference the array and then typecast to make it work }
    { default $T- state assumed, unfortunately $T+ has global effect and not useful here }
    PChar(@StringStruct^.StringCompatibleArray),
    StringStruct^.NumberOfCharacters
  );
end;

如果有人想要正式的问题：我想看看我必须执行哪些选项来执行此类分配，最好比SetString 电话显示的更隐蔽。

注意：我知道哪些解引用运算符对于结构化类型是可选的。

Answer 1

SetString 通常是要走的路。只有当人们继续对其有用性一无所知时，它才会变得晦涩难懂。类型转换是必要的，因为有两个重载，并且 char 数组与预期的参数类型（PAnsiChar 和 PWideChar）都不完全匹配。

它很冗长，但在您的情况下，它很容易包装到您的数据类型的函数中，例如ToString。正如 David 在评论中建议的那样，您可以让该函数成为 Implicit 运算符，然后您会自动获得转换：

class operator TStringStruct.Implicit(const Value: TStringStruct): string;
begin
  SetString(Result, Value.StringCompatibleArray, Value.NumberOfCharacters);
end;

S := StringStruct^;