14 lines
254 B
ObjectPascal
14 lines
254 B
ObjectPascal
// Âñå òèïû êðîìå óêàçàòåëåé - ïðîèçâîäíûå îò Object
|
|
var
|
|
i: integer;
|
|
r: real;
|
|
o: object;
|
|
|
|
begin
|
|
o := i;
|
|
writeln(o.GetType);
|
|
o := r;
|
|
writeln(o.GetType);
|
|
if o.GetType=typeof(real) then
|
|
writeln('Â ïåðåìåííîé o - âåùåñòâåííûé òèï');
|
|
end. |