14 lines
225 B
ObjectPascal
14 lines
225 B
ObjectPascal
type
|
|
A<T> = class
|
|
fielda: integer := 1;
|
|
end;
|
|
|
|
B<T> = class(A<T>)
|
|
property PropA: integer write fielda read fielda;
|
|
end;
|
|
|
|
begin
|
|
var b1 := B&<integer>.Create;
|
|
b1.Propa := 2;
|
|
Assert(b1.Propa = 2);
|
|
end. |