delphi - 对通过引用传递到过程的数组执行 SetLength

Question

当然，即使我也能做到......

var
  testarray : array of string;

setlength(testarray, 5);

但是如果我想变得聪明并有一个过程来通过引用传递数组，就像这样我就做不到!

procedure DoStuffWithArray(var passedarray : array of string);
begin
  setlength(passedarray, 5);
end;

编译器在我的过程中的单行代码上显示“不兼容的类型”。

如果我在调用过程之前执行 setlength，我可以在数组上执行其他操作，例如设置设置元素值，但我无法在我的过程中执行 setlength，这正是我想要做的。

非常感谢任何帮助，谢谢大家。

Answer 1

作为参数的数组类型需要有一个名称。所以:

type TStringArray = array of string;
procedure DoStuffWithArray(var passedarray: TStringArray);

然后就可以了。

但是，如果您需要动态大小的字符串组，您可能会发现 TStringList 更容易使用。