27 lines
485 B
ObjectPascal
27 lines
485 B
ObjectPascal
|
type TClass<T> = class
|
||
|
|
a : array of T;
|
||
|
|
constructor Create(params arr : array of T);
|
||
|
|
begin
|
||
|
|
a := arr;
|
||
|
|
end;
|
||
|
|
function getItem(i : integer):T;
|
||
|
|
begin
|
||
|
|
Result := a[i];
|
||
|
|
end;
|
||
|
|
procedure setItem(i : integer; item: T);
|
||
|
|
begin
|
||
|
|
a[i] := item;
|
||
|
|
end;
|
||
|
|
property PropA[i : integer]: T read getItem write setItem; default;
|
||
|
|
property PropB[i : integer]: T read getItem write setItem;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var t : TClass<real>;
|
||
|
|
|
||
|
|
begin
|
||
|
|
t := new TClass<real>(1.3,2,2.5);
|
||
|
|
assert(t[0] = 1.3);
|
||
|
|
t[0] := 4;
|
||
|
|
assert(t[0] = 4);
|
||
|
|
end.
|