мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слеваПредыдущая версия
Следующая версияСледующая версия справа и слева
pascal:modules [20/10/2009 12:06] – ybezrukovpascal:modules [22/10/2009 15:03] – dnaumov
Строка 2: Строка 2:
 FIXME FIXME
  
 +<code pascal|Оформление модуля - своей библиотеки>
 +unit mygraph; {заголовок модуля}
 +interface      
 +
 +uses crt, oglgraph; {описание используемых библиотек в модуле}
 +
 +var
 +   gd, gm   : integer;
 +
 +{заголовки доступных из программы процедур}
 +Procedure Graphini; 
 +Procedure GraphEnd;
 +
 +implementation {содержимое модуля - сами процедуры и функции}
 +
 +Procedure Graphini; {процедура инициализации графического окна}
 +begin
 +   gd:=detect;
 +   gm:=detectmode;
 +   initGraph(gd,gm,'');
 +   if Graphresult<>GrOk then
 +      begin
 +         writeln('Graphics is not Ok');
 +         halt(1);
 +      end else
 +         writeln('GraphResult = ',graphresult);
 +   SetDoubleBuffer(true);        
 +   clearviewport;
 +   delay(300);
 +end;
 +
 +Procedure GraphEnd; {процедура закрытия графического окна}
 +begin
 +   SetDoubleBuffer(false);
 +   clearviewport;
 +   CloseGraph;
 +end;
 +
 +begin {часть модуля, которая исполняется при вызове его из программы}
 +
 +end.
 +</code>