14 lines
206 B
ObjectPascal
14 lines
206 B
ObjectPascal
|
type
|
||
|
|
Person = class
|
||
|
|
|
||
|
|
end;
|
||
|
|
Student = class(Person)
|
||
|
|
public
|
||
|
|
i: integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
var persons := Arr(new Student, new Student);
|
||
|
|
foreach x: Person in persons do
|
||
|
|
Print(x.GetType);
|
||
|
|
end.
|