17 lines
232 B
ObjectPascal
17 lines
232 B
ObjectPascal
unit u_genericarr1;
|
|
type TArr<T> = array of T;
|
|
|
|
const a : -1..1 = 1;
|
|
|
|
type TClass<T> = class
|
|
arr : TArr<T>;
|
|
end;
|
|
|
|
var c : TClass<integer>;
|
|
|
|
begin
|
|
c := new TClass<integer>;
|
|
SetLength(c.arr,10);
|
|
c.arr[2] := 7;
|
|
assert(c.arr[2]=7);
|
|
end. |