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

InstallerSamples/LanguageFeatures/Boxing.pas

22 строки680 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ��������-���������� ��������� �����
var 
  i: integer := 2;
  r: real := 3.14;
  o: object;

begin
  o := i; // ��������: ������ ���������� ���� integer ������������� � ������ ���������� ����, 
          // ������ � ������������� ���������� o
          // �������������� ����� ��� �������� - �������
  writeln(integer(o)); // ����������: �� ������������ ������� ����������� ��������        
                       // �������������� ����� ��� ���������� - �����
  o := r;
  writeln(real(o));
  
  try // ��� �������� �������������� ����� ������������ ���������� InvalidCastException
    writeln(shortint(o));
  except
    on e: Exception do
      writeln(e.GetType);
  end;
end.