InstallerSamples/LanguageFeatures/Boxing.pas - master - n-dimens/pascalabcnet

InstallerSamples/LanguageFeatures/Boxing.pas

22 строки980 B

Artem Pelenitsyn

change encoding for all *.pas and *.cs files: cp1251 -> utf-8

28 дек 2015, 14:25

28 дек 2015, 14:2549378a6

// Упаковка-распаковка размерных типов
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.