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