Тема 3.8 Объектно-ориентированная программирование (ООП)

Uses

Overlay, Crt, OvrDemol, OvrDemo2;

{$O OvrDemo1} {Указание оверлейных модулей из}

{$O OvrDevo2} {числа указанных в uses-списке }

begin

TextAttr:= White; { Используем средства модуля Crt }

CIrScr;

Ovrlnit(•OVRDEMO.OVR•);{ Инициализация системы управления оверлеями }

if OvrResult <> 0 then

begin

Writeln('Ошибка: ', OvrResult); Halt(l)

end;

{ Коды процедур Write 1 и Write2, расположенные в оверлейных модулях, будут при выполнении программы попеременно загружаться в оверлейный буфер }

repeat

Writel;

Write2

Until KeyPressed

end.

Файл OVRDEM01.PAS Файл OVRDEM02.РАS

($0+,F+} ($0+,F+)

unit OvrDemol; unit OvrDemo2;

interface interface

procedure Writel; procedure Write2;

implementation implementation

procedure Write1; procedure Write2;

begin begin

Writeln('Один...') Writeln('Два...')

end; end;

end. End.

Рисунок 20 Структура оверлейных файлов

Вопросы для самоконтроля

1.Что является базовыми принципами оверлейного механизма представления программы

2.Что содержит основная часть оверлейной программы.

3.Недостаток работы оверлейных модулей.

4.Схема распределения памяти в оверлейных программах

Дата добавления: 2014-01-07