string 类型的动态数组，怎么作为参数传递给过程（函数）。急急急，谢谢大家

Question

procedure Clear(var A: array of shortstring);var
  I: Integer;
begin
  for I := 0 to High(A) do 
///
end;

Answer 1

传址吧？
Low（），High（）来调用

Answer 2

aa是个地址，当然不能SetLength

Answer 3

需要定义新数据类型：
TShortStr = array of shortstring

Answer 4

type 
   dd:array of shortstring
然后再用DD

Answer 5

aa是你过程中的参数，不可以这样赋值的。
type 
  bb:array of shortstring
begin
  setlength(bb,10)
end;

Answer 6

我也正有这个问题，怎么没有人好好回答呢？
难道一定要自定义新数据类型？
能不能错用Variant来呢？
请大家帮帮我。thank.

Answer 7

从错误上：类型不兼容，shortstring 不能被setlength 
而setlength不能设置shortstring