/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/pointers6.pas
31 строка
546 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
type TRec = record b1, b2, b3, b4, b5, b6, b7, b8: byte; end; var rec : TRec; r : real := 3.14; prec : ^TRec; pi : ^int64; i : int64; pr : ^real; ptr : pointer; iptrptr : ^^integer; iptr : ^integer; i2 : integer; begin prec := pointer(@r); rec := prec^; pi := pointer(@r); i := pi^; pr := pointer(pi); assert(pr^=3.14); i2 := 7; iptr := @i2; ptr := iptr; iptr := ptr; ptr := pointer(iptr); iptr := PInteger(ptr); iptr := pinteger(pointer(iptrptr)); iptrptr := ptr; end.