动态数组可不可以多次SetLength？

[nonlyli]

做了个小程序，有时动态数组不够用了，想按程序运行来动态添加些，却会出现异常。
只要赋值了，就不能再重新用SetLength了。

是我做错了还是没有这种功能？

[todouwang]

setlonth后数组的内存分配已固定，应该不能再次setlongth 了

[王集鹄]

//做个测试不比发贴问来得明白？～～
var
A: array of Integer;
begin
SetLength(A, 1);
A[0] := 1234567;
SetLength(A, 2);
ShowMessage(IntToStr(A[0]));
end;

[nonlyli]

那如何简单地实现动态“按需扩充”动态数组呢？

[nonlyli]

测试做过了。就是说有没有办法解决。

[fj218]

动态数组可以动态通过Setlength进行扩充或减少

[nonlyli]

procedure TForm1.Button1Click(Sender: TObject);
var
tArray:Array of Integer;
I:Integer;
begin
SetLength(tArray,10);
For I:=0 to Length(tArray)-1 do
tArray[I]:=I;

For I:=0 to Length(tArray)-1 do
ListBox1.Items.Add(IntToStr(tArray[I]));

SetLength(tArray,1000);

For I:=0 to Length(tArray)-1 do
tArray[I]:=I;

For I:=0 to Length(tArray)-1 do
ListBox1.Items.Add(IntToStr(tArray[I]));
end;

咋这次又对了呢？我再试试。

[nonlyli]

知道了。可能是我先前把动态数组的Index当成从1开始了。

[surpassable]

up~~~~~~~