bengore
asked on
dyn. array as parameter of a procedure
I need a procedure to fill a dyn. array. How to do that? The following example cause an error at "SetLength(v, 10);". Can you correct the example?
procedure FillArray(var v:array of integer);
begin
SetLength(v, 10);
v[5]:=12;
end;
procedure TForm1.Button1Click(Sender : TObject);
var v:array of integer;
begin
FillArray(v);
if v[5]=12 then beep;
end;
procedure FillArray(var v:array of integer);
begin
SetLength(v, 10);
v[5]:=12;
end;
procedure TForm1.Button1Click(Sender
var v:array of integer;
begin
FillArray(v);
if v[5]=12 then beep;
end;
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thank you Madshi!
procedure FillArray(var v:array of integer);
begin
v[5]:=12;
end;
procedure TForm1.Button1Click(Sender
var v:array of integer;
begin
SetLength(V, 10);
FillArray(v);
if v[5]=12 then beep;
end;
Motaz