为什么两个看似相同的动态数组类型被认为不兼容？

Question

只是一个小问题，我没有找到具体的答案，所以我猜在这里问可能会更快。

编译器拒绝以下代码并出现以下错误：

“动态数组”和“字符串数组”类型不兼容

TMailInfo = record
  FileName,
  MailAdresse,
  MailBCC,
  MailCC,
  MailBetreff: string;
  MailText,
  Anhang: array of string;
  MailAcknowledge,
  MailTXT: Boolean
end;

class function TEMail.SendOutlookCOMMail(aFileName, aMailAdresse, 
  aMailBCC, aMailCC, aMailBetreff: string; 
  aMailText, aAnhang: array of string; 
  const aMailAcknowledge, aMailTXT: Boolean): Boolean;
var
  mailInfo: TMailInfo;
begin
...
  mailInfo.MailBetreff := aMailBetreff;  // these two lines cause the error
  mailInfo.MailText := aMailText;
...
end;

我做错了什么？两者都是字符串数组，所以我不明白为什么一个似乎是动态的。

Answer 1

您不能轻易地分配给MailText 和Anhang，因为您不能声明另一个具有兼容类型的对象。那是因为您在记录声明中使用了内联动态数组类型。您确实需要使用可以命名的类型。为了更好地说明，请考虑一下：

X: array of Integer;
Y: array of Integer;

现在X 和Y 是不同的类型，X := Y 不能编译。

另一个问题是您的开放数组参数。开放数组参数是不兼容的赋值。您可以逐个复制元素，但不能一次性分配数组。

最好的办法是像这样声明字段：

MailText,
Anhang: TArray<string>;

并将函数中的开放数组参数更改为该类型。

然后你需要决定是要复制引用还是数组：

MailText := aMailText; // copy reference, or
MailText := Copy(aMailText); // copy array

Answer 2

你有两个问题。首先，正如大卫所说，一个类型的两个声明看起来相同，但分别声明，使它们不同，赋值不兼容的类型。

奇怪的是，对于泛型类型（如TArray<string>）而言并非如此，因此如果您的 Delphi 版本支持它，那么使用它是有意义的。

但第二个问题是您将像aMailText 这样的开放数组参数 与像mailInfo.MailText 这样的动态数组 混淆了。 aMailText这个参数，根本就不一定是动态数组，可以是任何一种数组。

查看文档：Open Arrays

另一种解释：Open array parameters and array of const