تعریف آرایه متغیر

[seyed_farid]

چگونه میتوان آرایه متغیر را در یک پروسیجر تعریف کرد که تعداد جملات آن نیز متغیر باشد؟
مثلا تو مایه های خط زیر باشه:

Procedure TForm1.Merge(n: integer; S:Array[1..h] of integer);

[ghabil]

type
TestArr = array of integer;

...

procedure TestProc(AParam: TestArr);
begin
ShowMessage(IntToStr(AParam[Length(AParam)]));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
AnArr: TestArr;

begin
SetLength(AnArr,3);
AnArr[3] := 2;
TestProc(AnArr);
end;

سعی کردم هرچی لازم داری توش باشه

[seyed_farid]

ممنون. چک میکنم.