2015-12-28 14:25:15 +03:00
|
|
|
|
// Все типы кроме указателей - производные от Object
|
2015-05-14 22:35:07 +03:00
|
|
|
|
var
|
|
|
|
|
|
i: integer;
|
|
|
|
|
|
r: real;
|
|
|
|
|
|
o: object;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
o := i;
|
|
|
|
|
|
writeln(o.GetType);
|
|
|
|
|
|
o := r;
|
|
|
|
|
|
writeln(o.GetType);
|
|
|
|
|
|
if o.GetType=typeof(real) then
|
2015-12-28 14:25:15 +03:00
|
|
|
|
writeln('В переменной o - вещественный тип');
|
2015-05-14 22:35:07 +03:00
|
|
|
|
end.
|
