Процедура очистки памяти

Freemem (<параметр1>,<параметр2>)

Парметр1-ссылочная переменная или указатель.

Парметр2 –размер.

Данная процедура используется для освобождения непрерывных участков памяти. Участок памяти с адресом определённым 1 параметром и размером определенным 2 параметром после выполнения данной процедуры считается свободным. Данная процедура считается пареной процедуре Getmem и используется в основном с указателями типа Pointer.

Пример: помещение в блок динамической памяти и извлечение части графического экрана.

Uses crt;

Var

P:pointer;

Size:word;

Bedin

.

.

Size:=imagesize(x,y,x1,y1);

Getmem(p,size);

Getimage(x,y,x1,y1,p^);

Putimage(x,y,p^,1);

.

.

Freemem(p,size);

End;

Процедура маркировки адреса динамической памяти.

Mark(<ссылка или указатель >);

После выполнения данной процедуры в ссылку или указатель записывается записывается адрес нижней границы свободной области памяти(значение указателя HeapPtr)