n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/AllFromObject.pas

14 строк237 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ��� ���� - ����������� �� 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.