37 lines
528 B
ObjectPascal
37 lines
528 B
ObjectPascal
type TClass = class
|
|
a : array[1..5] of integer;
|
|
b : array of real;
|
|
procedure Test;
|
|
procedure Test2(var a : array of integer);
|
|
end;
|
|
|
|
procedure TClass.Test;
|
|
var arr : array of integer;
|
|
procedure Nested;
|
|
begin
|
|
SetLength(arr,5);
|
|
arr[2] := 100;
|
|
assert(arr[2] = 100);
|
|
end;
|
|
|
|
begin
|
|
Nested;
|
|
end;
|
|
|
|
procedure TClass.Test2(var a : array of integer);
|
|
begin
|
|
SetLength(a,10);
|
|
a[2] := 45;
|
|
assert(a[2] = 45);
|
|
end;
|
|
|
|
|
|
var t : TClass;
|
|
a : array of integer;
|
|
|
|
begin
|
|
t := new TClass();
|
|
t.Test;
|
|
t.Test2(a);
|
|
assert(a[2] = 45);
|
|
end. |