Ссылки, работающие не с кучей

Традиционно понятие «ссылка» всегда увязывается с динамическими переменными, кучей и т.п. У Турбо Паскаля тоже есть традиции. Одна из них — расширение общепринятых стандартов. В частности, ничто, кроме традиционных учебников стандартного Паскаля, не обязывает связывать ссылки или указатели именно с кучей. Ссылки могут указывать на что угодно: даже на выполнимый код программы (крайний и бесполезный случай). Обычно в разных трюках ссылки связываются со статическими данными или с системными областями памяти ПЭВМ (областью данных БСВВ, видеопамятью и др.).

Кроме способа связывания, такие ссылки ничем не отличаются от рассмотренных ранее (рис. 11.8).

PROGRAM NoHeap; { ПРИМЕР ССЫЛОК БЕЗ ИСПОЛЬЗОВАНИЯ КУЧИ } TYPE { базовые типы: } VideoArray=Array[1..4000] of RECORD {структура экрана } Symbol : Char; Attrib : Byte END; Vector=Array[1..100] of Real; { одномерный массив } Matrix=Array[1..10,1..10] of Real;{ матрица 10 на 10 } VAR VideoPtr : ^VideoArray; { ссылка на структуру экрана } Vec : Vector; { ссылка на одномерный массив } MatPtr : ^Matrix; { ссылка на массив — матрицу } P : Pointer; { просто указатель } i : Word; { счетчик для циклов }

Рис. 11.8 {211}

BEGIN VideoPtr := Ptr( $B800, 0 ); {Переменная VideoPtr теперь содержит адрес начала видеопамяти в цветных и черно-белых режимах. Для режима mono надо подставить в присваивании Ptr{$B000,0). После этого можно непосредственно обращаться к видеопамяти. } for i:=1 to 4000 do begin { Заполнение видеопамяти } VideoPtr^[i].Symbol:= '+'; { символом '+' в ярко- } VideoPtr^[i].Attrib:=15+128 { белом цвете с мерцанием} end {for}; ReadLn; { пауза до нажатия клавиши ввода } { Заполнение статического массива Vec: } for i:=1 to 100 do Vec[i] := i*3.14; MatPtr := Addr(Vec); {передача его адреса ссылке MatPtr} {Теперь к 100 элементам одномерного массива Vec можно обращаться и как к элементам матрицы 10x10, используя разыменование ссылочной переменной MatrPtr^. Здесь мы распечатаем диагональные элементы матрицы: } for i:=1 to 10 do WriteLn(' ':i, MatPtr^[i,i]:-9:2 ); ReadLn; { пауза до нажатия клавиши ввода } { и т.п. } END.

Рис. 11.8 (окончание)

Советуем внимательно рассмотреть пример на рис. 11.8. В нем нет ни процедур New/Dispose, ни GetMem/FreeMem! Динамические переменные здесь не создаются и не освобождаются. Взамен этого в ссылки «ручным способом» записываются адреса тех блоков памяти, с которыми мы хотели бы работать. А далее мы обращаемся с ними, как будто они есть структурированные динамические переменные.

Подобная техника открывает доступ к видеопамяти через любые структуры, позволяет проделывать такие вещи, как запись текстов с экрана на диск или их загрузку, подмену структур обращения к данным (как альтернатива приведению типов) и многое другое. Ссылки без кучи в последующих программах-иллюстрациях будут использоваться не раз, особенно при работе с видеопамятью.