/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!MainFeatures/06_Classes/Boxing.pas
22 строки
983 B
Mikhalkovich Stanislav
Поправил старые примеры 2
12 окт 2025, 22:21
12 окт 2025, 22:21
d6a70ee
Код
Авторство
О чём код?
// Упаковка-распаковка размерных типов var i: integer := 2; r: real := 3.14; o: object; begin o := i; // Упаковка: объект размерного типа integer упаковывается в объект ссылочного типа, // котрый и присваивается переменной o // Преобразование типов при упаковке - неявное Println(integer(o)); // Распаковка: из упакованного объекта извлекается значение // Преобразование типов при распаковке - явное o := r; Println(real(o)); try // При неверном преобразовании типов генерируется исключение InvalidCastException Println(shortint(o)); except on e: Exception do Println(e.GetType); end; end.