/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/pointers11.pas
24 строки
346 B
Бондарев Иван
bug fix #1978
10 июн 2019, 15:02
10 июн 2019, 15:02
c95b0aa
Код
Авторство
О чём код?
type t0<T> = class end; t1 = class(t0<byte>) ptr: ^byte; ptr2: ^string[5]; procedure p1; begin New(ptr); ptr^ := 2; New(ptr2); ptr2^ := 'abcdef'; end; end; begin var o := new t1; o.p1; assert(o.ptr^ = 2); assert(o.ptr2^ = 'abcde'); dispose(o.ptr); dispose(o.ptr2); end.