26 lines
680 B
ObjectPascal
26 lines
680 B
ObjectPascal
unit u_property3;
|
||
|
||
type
|
||
t1 = class
|
||
public i: integer;
|
||
procedure p1(ind: integer);
|
||
|
||
// Обязательно default индексное свойство
|
||
// Обязательно упомянуть p1, реализованное после объявления t2
|
||
// Не важно как упомянуть
|
||
public property Item[ind: byte]: word write p1(ind); default;
|
||
|
||
end;
|
||
|
||
// Обязательно шаблон
|
||
// Обязательно наследовать от t1
|
||
t2<T> = class(t1) end;
|
||
|
||
procedure t1.p1(ind: integer);
|
||
begin
|
||
// Обязательно упомянуть t2
|
||
var a: t2<real>;
|
||
self.i := ind;
|
||
end;
|
||
|
||
end. |