請問各位高手大大，小弟想傳遞動態陣列變數，可是函數傳遞動態陣列變數似乎不能設定陣列大小，是小弟哪邊觀念需要更新或可行的辦法，delphi 無法透過函數設定動態陣列大小嗎? 尋找解答中，感謝各位大大花時間觀看，和感激解答的大大和高手!


[code delphi]
function test(a:array of integer);
begin
setlength(a,2); //===> 編譯錯誤
a[0]:=1;
a[1]:=2;
end;


procedure Button2Click(Sender: TObject);
var a:array of integer;
begin
test(a);
Showmessage(inttostr(a[0]));
end;
[/code]

[code delphi]
type TIntArray = array of Integer;

procedure test(var aa: TIntArray);
begin
setlength(aa, 2);
aa[0]:=1;
aa[1]:=2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a: TIntArray;
begin
test(a);
Showmessage(inttostr(a[0]));
end;
[/code]


===================引 用 weston 文 章===================

請問各位高手大大，小弟想傳遞動態陣列變數，可是函數傳遞動態陣列變數似乎不能設定陣列大小，是小弟哪邊觀念需要更新或可行的辦法，delphi無法透過函數設定動態陣列大小嗎?尋找解答中，感謝各位大大花時間觀看，和感激解答的大大和高手!


[code delphi]
function test(a:array of integer);
begin
setlength(a,2); //===> 編譯錯誤
a[0]:=1;
a[1]:=2;
end;


procedure Button2Click(Sender: TObject);
var a:array of integer;
begin
test(a);
Showmessage(inttostr(a[0]));
end;
[/code]