22.4. Работа с графическими образами на диске

Как уже говорилось, прямой доступ к памяти видеоадаптеров затруднен в связи с тем, что при этом необходимо обращаться к их специальным управляющим регистрам. Для тех, кому могут понадобиться манипуляции с изображением на экране, может быть полезна изложенная ниже информация.

Мы уже рассматривали, каким образом можно получить копию изображения с экрана на принтере (см. разд. 19.6.1). Теперь {520} попробуем записать изображение с экрана на диск. Казалось бы просто — достаточно немного изменить процедуру CopyToPrint. Однако при таком подходе место на диске будет расходоваться неэкономно: в каждом байте старшие четыре (как минимум) бита не используются. Исключение составляют все режимы с количеством цветов 256 и более (VGA, MCGA, IBM8514). Чтобы не заботиться об этом, можно воспользоваться функцией ImageSize (см. разд. 19.6.1) — она возвращает размер картинки в байтах, уже учтя все нюансы ее расположения в ОЗУВ. Воспользовавшись затем процедурой GetImage, можно сохранить изображение на диске (рис. 22.11).

USES Graph; {$I initgraf.pas} {процедура инициализации (см. гл. 19) } { Процедура записи на диск картинки с экрана. } { Максимальный размер 640x200 при 16 цветах. } PROCEDURE SaveScreen( X1, Y1 { координаты картинки } X2, Y2 : Word; FileName : String ); { имя файла картинки } VAR PicFile : File; { бестиповый файл } size :Word; { размер файла } dataptr : Pointer; { указатель на буфер } BEGIN Size := ImageSize(X1,Y1, X2, Y2); { размер картинки } GetMem( dataptr, size ); { выделение памяти } GetImage(X1,Y1,X2,Y2,dataptr^); { картинку – в буфер } Assign( PicFile, FileName ); { Открытие файла для } Rewrite( PicFile, size ); { записи картинки. } BlockWrite(PicFile,dataptr^,1); { запись картинки } Close( PicFile ); { закрытие файла } FreeMem( dataptr, size ) { освобождение кучи } END; BEGIN { Пример вызова процедуры } GrInit; SetFillStyle(1,15); Bar( 0, 0, GetMaxX, GetMaxY ); SetFillStyle(2, 2); Bar(40, 40, GetMaxX-40, GetMaxY-40 ); SetFillStyle(3, 3); Bar(120, 120, GetMaxX-120, GetMaxY-120); SetFillStyle(4, 4);Bar(240, 180, GetMaxX-240, GetMaxY-180); ReadLn; SaveScreen(70,70, GetMaxX-70, GetMaxY-70, 'graph.scr'); CloseGraph END.

Рис. 22.11 {521}

А с помощью процедуры PutImage можно восстановить это изображение (рис. 22.12).

USES Graph; {$I initgraf.pas} {процедура инициализации (см. гл. 19) } {Процедура вывода на экран картинки, записанной на диск. } {Максимальный размер - экран в режиме 640x200, 16 цветов. } PROCEDURE LoadScreen(X,Y:Word; { координаты левого верх- } { него угла картинки } FileName : String; { имя файла картинки } Put : Word ); { режим вывода на экран } VAR PicFile :File; { бестиповый файл } size : Word; { размер файла в байтах } dataptr : Pointer; { указатель на начало } BEGIN Assign( PicFile, FileName ); { Открытие файла для } Reset( PicFile, 1 ); { чтения по одному байту. } size := FileSize( PicFile ); { размер файла в байтах } Reset( PicFile, size ); { смена буфера файла } GetMem( dataptr, size ); { выделение памяти } BlockRead(PicFile,dataptr^,1); { чтение картинки } PutImage(X,Y,dataptr^,put); { вывод картинки на экран } Close( PicFile ); { закрытие файла } FreeMem( dataptr, size ) { освобождение памяти } END; BEGIN { Пример вызовов процедуры } GrInit; LoadScreen( 0, 0, 'graph.scr', XORPut ) ; LoadScreen(20, 20, 'graph.scr', XORPut ) ; LoadScreen(40, 40, 'graph.scr', XORPut ) ; LoadScreen(60, 60, 'graph.scr', XORPut } ; LoadScreen(80, 80, 'graph.scr', XORPut ) ; ReadLn; CloseGraph END.

Рис. 22.12

При таком способе сохранения изображений существует ограничение на их размер. Это связано с тем, что функция ImageSize возвращает результат типа Word. Таким образом, картинка не должна занимать в памяти больше 65520 байт. Для адаптера EGA, {522} например, полностью весь экран можно записать на диск максимум в режиме 640x200, 16 цветов — это займет 64004 байта. Кроме того, если размеры картинки таковы, что она полностью не сможет поместиться на экран, то выводиться на него при чтении с диска она не будет.

У такого способа записи изображений есть одно удобное свойство: в каком бы графическом режиме картинка не была записана, она всегда сможет быть прочитана и показана в любом другом графическом режиме.

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

USES Graph; {$I initgraf.pas} {процедура инициализации (см. гл. 19) } TYPE g_plan=Array [1..38400] of Byte; { массив-плоскость } {Процедура сохранения изображения всего экрана на диске. Для каждой битовой плоскости создается отдельный файл. Параметр file_name - имя файла без расширения. } PROCEDURE SaveBitPlanes( file name : String ); VAR scr_buf:Pointer ; { указатель на буфер данных } scr_arr:g_plan absolute $A000:$0; { память адаптера } plen,mx,my:LongInt; { размер плоскости } { Вложенная процедура записи плоскости на диск } PROCEDURE WriteBlk( name : String ); VAR image_file : File; BEGIN Assign( image_file, name ); Rewrite( image_fite, plen ); BlockWrite( image_file, scr_buf^, 1 ); Close( image file ) END; BEGIN mx := GetMaxX+1; my := GetMaxY+1; { размеры плоскости }

Рис. 22.13 {523}

plen := mx*my div 8; { получение длины буфера } GetMem( scr_buf, plen ); { память для буфера } Port[$3CE]:=4; Port[$3CF]:=0; { чтение плоскости Blue } Move(scr_arr,scr_buf^,plen); { копирование ее в буфер } WriteBlk(file_name+'.blu'); { запись буфера на диск } Port[$3CE]:=4; Port[$3CF]:=1; { чтение плоскости Green } Move(scr_arr,scr_buf^,plen); { копирование ее в буфер } WriteBlk(file_name+'.grn'}; { запись буфера на диск } Port[$3CE]:=4; Port[$3CF]:=2; { чтение плоскости Red } Move(scr_arr,scr_buf^,plen); { копирование ее в буфер } WriteBlk(file name+'. red'); { запись буфера на диск } Port[$3CE]:=4; Port[$3CF]:=3; { плоскость яркости } Move(scr_arr,scr_buf^,plen); { копирование ее в буфер } WriteBlk(file_name+'.int'); { запись буфера на диск } FreeMem( scr_buf, plen ); { освобождение памяти } Port[$3CE]:=4; Port[$3CF]:=0; { восстановление портов } END; {Процедура чтения файлов изображения и вывода их на экран. Параметр file_name - hmz файла без расширения. } PROCEDURE LoadBitPlanes( file_name : String ); VAR scr_buf:Pointer ; { указатель на буфер данных } scr_arr:g_plan absolute $A000:$0; { память адаптера } plen,mx,my:LongInt; { размер плоскости } { Вложенная процедура чтения плоскости с диска } PROCEDURE ReadBlk( name : String ); VAR image file : File; BEGIN Assign( image.file, name ); Reset( image_file, plen ); BlockRead( image_file, scr_buf^, 1 ); Close( image_file ) END; BEGIN mx:=GetMaxX+1; my:=GetMaxY+1; {размеры плоскости } plen := mx*my div 8; {получение длины буфера } GetMem( scr_buf, plen ); {память для буфера } ReadBlk( file_name+'.blu' ); {чтение с диска в буфер } Port[$3C4]:=2; Port[$3C5]:=1; {Буфер копируется } Move(scr_buf^,scr_arr,plen); {в плоскость Blue. } ReadBlk(file_name+'.grn' ); {чтение с диска в буфер }

Рис. 22.13 (продолжение) {524}

Port[$3C4]:=2; Port[$3C5]:=2; { Буфер копируется } Move(scr_buf^,scr_arr,plen); { в плоскость Green. } ReadBlk( file_name+'.red' ); { чтение с диска в буфер } Port[$3C4]:=2; Port[$3C5]:=4; { Буфер копируется } Move(scr_buf^,scr_arr,plen ); { в плоскость Red. } ReadBlk( file_name+'.int' ); { чтение с диска в буфер } Port[$3C4]:=2; Port[$3C5]:=8; { Буфер копируется } Move(scr_buf^,scr_arr,plen ); { в плоскость яркости. } FreeMem( scr_buf, plen ); { освобождение памяти } Port[$3C4]:=2;Port[$3C5]:=15; { восстановление портов } END; BEGIN { Пример вызовов процедур } GrInit; SetFillStyle(1,15); Bar( 0, 0, GetMaxX, GetMaxY ); SetFillStyle(2, 2); Bar(40, 40,GetMaxX-40, GetMaxY-40 ); SetFillStyle(3,3); Bar(120,120, GetMaxX-120, GetMaxY-120); SetFillStyle(4,4); Bar(240,180, GetMaxX-240, GetMaxY-180); ReadLn; SaveBitPlanes( 'plane' ); ClearDevice; ReadLn; LoadBitPlanes( 'plane' ); ReadLn; CloseGraph END.

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

Эти процедуры работают для всех режимов, кроме CGA (так как в нем другой способ хранения данных). Поэтому для него приведем отдельные процедуры (рис. 22.14).

USES Graph; TYPE g_plan=Array [1..16384] of Byte; { массив двух блоков } {Процедура сохранения изображения всего экрана на диске } { для адаптеров, работающих в режиме CGA. } PROCEDURE SaveCGAScr(file_name:String); {полное имя файла } VAR image_file : File; scr_buf : Pointer; { ссылка на буфер } scr_addr:g_plan absolute $B800:0; { память адаптера } plen, mx, my : LongInt; { размер плоскости }

Рис. 22.14 {525}

BEGIN mx := GetMaxX+1; my := GetMaxY+1; { размеры плоскости } if GetGraphMode = CGAHi { размер буфера: } then plen := mx*my div 8 + 384 { один бит на точку } else { или } plen := mx*my div 4 + 384; { два бита на точку } GetMem( scr_buf, plen ); { выделение памяти } Assign( image_file, file_name ); { связь файлов } Rewrite( image_file, plen ); { открытие файла } Move( scr_addr, scr_buf^, plen ); { экран – в буфер } BlockWrite(image_file,scr_buf^,1); { запись его в файл } Close( image_file ); { закрытие файла } FreeMem( scr_buf, plen ) { удаление буфера } END; { Процедура чтения изображения с диска и вывода его на } { экран для адаптеров, работающих в режиме CGA } PROCEDURE LoadCGAScr(file_name:String ); {полное имя файла } VAR image_file : File; scr_buf : Pointer; { ссылка на буфер } scr_addr:g_plan absolute $8800:0; { память адаптера } plen,mx,my: LongInt; { размер плоскости } BEGIN mx := GetMaxX+1; my := GetMaxY+1; { размеры плоскости } if GetGraphMode = CGAHi { размер буфера: } then plen := mx*my div 8 + 384 { один бит на точку } else { или } plen := mx*my div 4 + 384; { два бита на точку } GetMem( scr_buf, plen ); { отводится память } Assign( image_file, file_name ); { связь файлов } Reset( image_file, plen ); { открытие файла } BlockRead(image_file,scr_buf^,1); { чтение картинки } Close( image.file ); { закрытие файла } Move(scr_buf^,scr_addr, plen); { буфер – на экран } FreeMem( scr buf, plen ) { удаление буфера } END;

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

Подобный способ хранения изображений используется в некоторых графических пакетах программ (PBrush, DrHALO). Однако формат записи, используемый в них, другой. Поэтому они не совместимы ни между собой, ни с другими графическими пакетами. {526}

ПРИЛОЖЕНИЕ 1

Сообщения и коды ошибок, генерируемые компилятором

При обнаружении ошибки компилятор Турбо Паскаля интегрированной среды программирования автоматически загружает исходный файл программы и помещает курсор около ошибки. Компилятор ТРС.ЕХЕ выводит на экран сообщение об ошибке, номер и исходную строку, используя для указания места ошибки символ «^». Учтите, что некоторые ошибки в исходном тексте до определенного времени не обнаруживаются. Если около курсора нет очевидной ошибки, ищите ее слева от курсора или в предыдущем тексте. После выдачи кода ошибки в интегрированной среде нажатие клавиши F1 выдаст комментарий к этому коду.

Ниже даны комментированные коды и сообщения компилятора.

1 Out of memory (выход за границы памяти)

Данная ошибка появляется, если компилятором уже израсходована вся свободная память. Имеется ряд возможных решений этой проблемы:

— если в меню Compile/Destination (Компиляция/Направление) установлено значение Memory (память), измените его на Disk (диск);

— если для параметра Link Buffer в меню Option/Linker (Опция/Редактор связей) в интегрированной среде установлено значение Memory, измените его на Disk; другой путь состоит в размещении директивы {$L-} в начале программы; при работе с транслятором ТРС используйте опцию /L;

— удалите из памяти резидентные программы, в использовании которых нет крайней необходимости;

— если работа осуществляется в среде, попробуйте заменить ее компилятором ТРС.ЕХЕ: он занимает меньше памяти.

Если ни одна из рекомендаций не помогает, то, возможно, программа (модуль) просто слишком велика, чтобы компилировать ее в таком объеме памяти. В этом случае следует разбить ее на два или более программных модуля.

2 Identifier expected (ожидается идентификатор)

В этом месте должен находиться идентификатор. Возможно имеет место попытка использовать зарезервированное слово.

3 Unknown identifier (неизвестный идентификатор)

Этот идентификатор не был описан.

4 Duplicate identifier (повторное описание идентификатора)

5 Syntax error (синтаксическая ошибка)

В исходном тексте найден неверный знак. Возможно, не заключена в кавычки строковая константа или неправильно написан оператор. {527}

6 Error in real constant (ошибка в действительной константе)

Нарушен синтаксис константы вещественного типа.

7 Error in integer constant (ошибка в целой константе)

Нарушен синтаксис константы целого типа. ( Учтите, что после целых чисел, выходящих из диапазона представления целых чисел, должны ставиться точка и ноль, например 12345678912.0.)

8 String constant exceeds line (строковая константа превышает размеры строки)

Вероятно, в конце строковой константы не стоит кавычка константы, или она перенесена на следующую строку.

9 Too many nested files (слишком много вложенных файлов)

Компилятор допускает не более восьми вложенных исходных файлов. Вероятно, нарушено это правило.

10 Unexpected end of file (неожиданный конец файла).

Это сообщение об ошибке могло быть получено по одной из следующих причин:

• исходный файл закончился перед последним END основного блока программы; вероятно, количество операторов BEGIN и END не одинаково;

• включаемый файл заканчивается в середине раздела операторов; каждый раздел операторов должен целиком помещаться в одном файле;

• не закончен комментарий.

11 Line too long (строка слишком длинна)

Максимальная длина строки не может превышать 126 символов.

12 Type identifier expected (ожидается идентификатор типа)

В ожидаемом месте не указан идентификатор типа.

13 Too many open files (слишком много открытых файлов)

Файл CONFIG.SYS не включает параметр FILES=xx, или этот параметр указывает слишком мало файлов. Увеличьте число файлов до какого-либо подходящего значения, например 20.

14 Invalid file name (неверное имя файла)

Имя файла неверно или указывает несуществующий путь (маршрут).

15 File not found (файл не найден)

Файл не может быть найден ни в текущем каталоге, ни в каком-либо другом, предназначенном для файлов этого типа.

16 Disk full (диск заполнен)

Удалите некоторые файлы или воспользуйтесь другим диском.

17 Invalid compiler directive (неправильная директива или ключ компилятора)

Неверная буква в директиве компилятора, или один из параметров директивы компилятора — неверный, или используется глобальная директива компилятора, когда компиляция тела программы уже началась.

18 Too many files (слишком много файлов) {528}

В компиляции программы или программного модуля участвует слишком много файлов. Попытайтесь не использовать так много файлов, например, объединяя включаемые файлы.

19 Undefined type in pointer definition (неопределенный тип в определении ссылки)

При описании ссылочного типа указан не введенный программой базовый тип.

20 Variable identifier expected (нужен идентификатор переменной)

В этом месте ожидается идентификатор (имя) переменной.

21 Error in type (ошибка в определении типа)

Определение типа не может начинаться с этого символа.

22 Structure too large (слишком большая структура)

Максимально допустимый размер объявляемой структуры данных — 65520 байт.

23 Set base type out of range (базовый тип множества нарушает разрешенные границы)

Базовый тип множества должен представлять собой отрезок типа с границами в пределах от 0 до 255 или перечислимый тип с не более чем 256 значениями.

24 File components may not be files or objects (компоненты файла не могут быть файлами или объектами)

Тип компонента файла не может быть типом объекта, типом файла, или любым другим структурным типом с компонентом типа файла либо типа объекта.

25 Invalid string length (неверная длина строки)

Максимальная длина строки должна находиться в диапазоне от 0 до 255.

26 Type mismatch (несоответствие типов)

Возможные причины ошибки:

• несовместимы типы переменной и выражения в операторе присваивания;

• несовместимы типы фактического и формального параметров в обращении к процедуре или функции;

• тип выражения не совместимым с типом индекса при индексировании массива;

• несовместимы типы операндов в выражении.

27 Invalid subrange base type (неправильный базовый тип для диапазона)

28 Lower bound greater then upper bound (нижняя граница больше верхней)

Описание диапазона указывает нижнюю границу, большей чем верхняя.

29 Ordinal type expected (нужен перечислимый тип)

Действительные, строковые, структурные и ссылочные типы в данном случае не допускаются.

30 Integer constant expected (ожидается целая константа) {529}

31 Constant expected (ожидается константа)

32 Integer or real constant expected (ожидается целая или действительная константа)

33 Type identifier expected (ожидается имя типа)

Данный идентификатор не обозначает тип.

34 Invalid function result type (неправильный тип результата функции)

Правильными типами результата функции являются все простые, строковые и ссылочные типы.

35 Label identifier expected (нужен идентификатор метки)

Метка не обозначена с помощью идентификатора, как это требуется.

36. BEGIN expected (ожидается BEGIN)

37. END expected (ожидается END)

38 Integer expression expected (ожидается выражение целого типа)

Предыдущее выражение должно иметь целый тип.

39 Ordinal expression expected (ожидается выражение перечислимого типа)

Предшествующее выражение должно иметь перечислимый тип.

40 Boolean expression expected (ожидается логическое выражение)

Предшествующее выражение должно иметь логический тип Boolean.

41 Operand types do not match operator (типы операндов не соответствуют оператору)

Данный оператор не может быть применен к операндам данного типа. Такая ошибка возникнет, например, при попытке символ 'А' разделить на 2.

42 Error in expression (ошибка в выражении)

Данный символ не может участвовать в выражении указанным образом. Возможно, не проставлена операция между двумя операндами.

43 Illegal assignment (неверное присваивание)

Возможные причины ошибки:

— файлам и переменным без типа нельзя присваивать значения; — идентификатору функции можно присваивать значения только внутри раздела операторов данной функции.

44 Field identifier expected (ожидается имя поля записи)

Данный идентификатор не соответствует полю предшествующей переменной типа « запись» или « объект» .

45 Object file too large (объектный файл слишком большой)

Турбо Паскаль не может компоновать OBJ-файлы, большие чем 64K.

46 Undefined external (неопределенная внешняя процедура)

Внешняя процедура или функция не имеет соответствующего определения PUBLIC в объектном файле. Убедитесь, что указаны все объектные файлы в директивах ($L Файл.OBJ) и проверьте написание идентификаторов процедуры или функции в соответствующих файлах Файл. ASM. {530}

47 Invalid object file record (неправильная запись объектного файла)

Файл .OBJ содержит неверную объектную запись. Убедитесь, что данный файл является действительно OBJ-файлом.

48 Code segment too large (сегмент кода слишком большой)

Максимальный размер кода программы или модуля — 65520 байт. При компиляции программы или модуля разбейте его на два (или более) модуля.

49 Data segment too large (сегмент данных слишком велик)

Максимальный размер сегмента данных программы равен 65520 байт, включая данные, описываемые используемыми программными модулями. Если нужно большее количество глобальных данных, опишите большие структуры с помощью ссылок и выделяйте для них динамическую память с помощью процедуры New.

50. DO expected (ожидается слово DO)

51. Invalid PUBLIC definition (неверное определение PUBLIC)

Возможные причины ошибки:

• данный идентификатор получил тип PUBLIC с помощью директивы PUBLIC в языке ассемблера, но не соответствует описанию external в программе или программном модуле;

• две или более директивы PUBLIC на языке ассемблера определяют один и тот же идентификатор;

• OBJ-файлы определяют символы PUBLIC, не находящиеся в сегменте CODE.

52 Invalid EXTRN definition (неверное определение EXTRN)

Возможные причины ошибки:

• идентификатор осуществил ссылку в языке ассемблера с помощью директивы EXTRN, но это не было описано в программе или программном модуле на Паскале и не было описано в интерфейсной секции используемых программных модулей;

• идентификатор обозначает абсолютную переменную;

• идентификатор обозначает процедуру или функцию типа inline.

53 Too many EXTRN definition (слишком много определений типа EXTRN)

Турбо Паскаль не может обрабатывать OBJ-файлы при более чем 256 определениях EXTRN.

54. OF expected (ожидается слово OF)

55. INTERFACE expected (ожидается интерфейсная секция)

56. Invalid relocatable reference (недействительная перемещаемая ссылка)

Возможные причины ошибки:

— OBJ-файл содержит данные и перемещаемые ссылки в сегментах, отличных от CODE, например, при попытке описать инициализированные переменные в сегменте DATA;

— OBJ-файл содержит ссылки с размерами в байтах на перемещаемые символы. Такая ошибка происходит в случае {531} использования операторов HIGH и DOWN с перемещаемыми символами или ссылки в директивах DB на перемещаемые символы;

• операнд ссылается на перемещаемый символ, который не был определен в сегментах CODE или DATA;

• операнд ссылается на процедуру EXTRN или функцию EXTRN со сдвигом, например CALL SortProc+8.

57. THEN expected (ожидается слово THEN)

58. ТО or DOWNTO expected (ожидается слово ТО или DOWNTO)

59. Undefined forward (неопределенное опережающее описание)

Возможные причины ошибки:

• были описаны процедура или функция в интерфейсной секции и программного модуля или типе объекта, но их определение (реализация) отсутствует;

• процедуры или функции были описаны с помощью опережающего описания, но их определение не найдено.

60 Too many procedures (слишком много процедур)

Турбо Паскаль допускает не более 512 процедур или функций в одном модуле. При компиляции программы поместите некоторые процедуры или функции в программные модули. При компиляции модуля разбейте его на два или несколько модулей.

61 Invalid typecast (неверное приведение типа)

Возможные причины ошибки:

• размеры переменной и тип результата отличаются друг от друга при приведении типа переменной;

• попытка осуществить приведение типа выражения, когда разрешается только ссылка на переменную, процедуру или функцию.

62 Division by zero (деление на нуль)

Предшествующая операция пытается выполнить деление на нуль.

63 Invalid file type (неверный файловый тип)

Данный файловый тип не обслуживается процедурой обработки файлов. Например, процедура ReadLn ошибочно используется для типизированного файла, или процедура Seek — для текстового файла.

64 Cannot Read or Write variables of this type (нет возможности считать или записать переменные данного типа) Возможные причины ошибки:

• процедуры Read и ReadLn могут считывать переменные символьного, целого, вещественного и строкового типов;

• процедуры Write и WriteLn могут выводить переменные символьного, целого, вещественного, булевского и строкового типов.

65 Pointer variable expected (ожидается переменная-указатель)

Предыдущая переменная должна иметь ссылочный тип или тип Pointer.

66 String variable expected (нужна строковая переменная)

Предшествующая переменная должна иметь строковый тип. {532}

67 String expression expected (нужно выражение строкового типа)

Предшествующее выражение должно иметь строковый тип.

68 Unit not found (программный модуль не найден)

Один или несколько программных модулей, используемых данным программным модулем, не указаны в директиве USES.

69 Unit name mismatch (несоответствие имен программных модулей)

Имя программного модуля, найденное в файле .TPU, не соответствует имени, указанному в директиве uses.

70 Unit version mismatch (несоответствие версий программных модулей)

Один или несколько программных модулей, используемых данной программой, были изменены после их компиляции. Воспользуйтесь опцией Compile/Make (Компиляция/Перекомпиляция) или Compile/Build (Компиляция/Построение) в интегрированной среде программирования и опциями /М или /В в компиляторе tpc, что позволит автоматически скомпилировать программные модули, нуждающиеся в перекомпиляции.

71 Duplicate unit name (повторное имя программного модуля)

Этот программный модуль уже указан в директиве USES.

72 Unit file format error (ошибка формата файла программного модуля)

TPU-файл является недействительным. Убедитесь, что это действительно TPU-файл соответствующей версии языка.

73 Implementation expected (ожидается секция реализации)

В модуле не найден раздел реализации.

74 Constant and case types do not match (типы констант и тип выражения оператора case не соответствуют друг другу)

Тип константы оператора case не совместим с выражением в операторе варианта.

75 Record variable expected (нужна переменная типа «запись»)

Предшествующая переменная должна иметь тип «запись» .

76 Constant out of range (константа нарушает границы)

Возможные причины ошибки:

• значение индексного выражения находится вне диапазона индекса для данного массива;

• попытка присвоить константу вне диапазона переменной;

• попытка передать константу вне диапазона в качестве параметра процедуре или функции.

77 File variable expected (ожидается файловая переменная)

Предшествующая переменная должна иметь файловый тип.

78 Pointer expression expected (ожидается выражение адресного типа)

Предшествующее выражение должно иметь ссылочный тип или тип Pointer.

79 Integer or real expression expected (ожидается выражение целого или вещественного типа) {533}

Предшествующее выражение должно иметь целый или вещественный тип.

80 Label not within current block (метка не находится внутри текущего блока)

Оператор Goto не может использовать метку, находящуюся вне текущего блока.

81 Label already defined (метка уже определена)

Данная метка уже помечает точку перехода.

82 Undefined label in preceding statement part (неопределенная метка в обрабатываемом разделе операторов)

83 Invalid @ argument (неправильный аргумент оператора @)

Правильными аргументами являются имена (идентификаторы) переменных, процедур или функций.

84. Unit expected (ожидается слово UNIT)

85. « ;» expected (нужно указать « ;»)

86. « :» expected (нужно указать « :» )

87. « ,» expected (нужно указать « ,» )

88. « (» expected (нужно указать « (» )

89. « )» expected (нужно указать « )» )

90. « =» expected (нужно указать « =» )

91. « :=» expected (нужно указать « :=» )

92. « [» or « (.» expected (нужно указать « [» или « (.» )

93. « ]» or « .)» expected (нужно указать « ]» или « .)» )

94. « .» expected (нужно указать « .» )

95. « ..» expected (нужно указать « ..» )

96. Too many variables (слишком много переменных)

Возможные причины ошибки:

• общий размер глобальных переменных, описанных в программе или программном модуле, не может превышать 64K;

• размер локальных переменных, описанных в программе или функции, не может превышать 64K.

97 Invalid FOR control variable (недопустимый тип управляющей переменной цикла FOR)

Управляющая переменная оператора FOR должна быть переменной перечислимого типа.

98 Integer variable expected (ожидается переменная целого типа)

Предшествующая переменная должна иметь целый тип.

99 File and procedure types are not allowed here (здесь не допускаются файловые и процедурные типы)

Типизированная константа не может иметь файловый или процедурный тип.

100 String length mismatch (несоответствие длины строки)

Длина строковой константы не соответствует количеству элементов символьного массива.

101 Invalid ordering of fields (неверный порядок полей) {534}

Поля в константе типа « запись» должны записываться в порядке их описания в конструкции RECORD...END.

102 String constant expected (ожидается константа строкового типа)

103 Integer or real variable expected (ожидается переменная вещественного или целого типа)

Предшествующая переменная должна иметь целый или вещественный тип.

104 Ordinal variable expected (ожидается переменная перечислимого типа)

Предшествующая переменная должна иметь перечислимый тип.

105 INLINE error (ошибка в операторе INLINE)

Оператор не употребляется совместно с перемещаемыми ссылками на переменные. Такие ссылки всегда имеют размер в слово.

106 Character expression expected (предшествующее выражение должно иметь символьный тип)

107 Too many relocation items (слишком много перемещаемых элементов)

Размер раздела таблицы перемещения файла .ЕХЕ превышает 64K, что является верхним пределом в Турбо Паскале. Если обнаружена эта ошибка, то значит, программа просто слишком велика для обработки редактором связей Турбо Паскаля. Возможно также, что она слишком велика для выполнения. В таком случае нужно выделить в программе основной раздел, который выполнял бы два или несколько подразделов, выделенных в самостоятельные программы, используя процедуру Exec из модуля DOS.

108 Not enough memory to run program (недостаточно памяти для выполнения программы)

Если используются резидентные программы (типа SideKick, SuperKey и др.), то удалите их. Если это не поможет, то скомпилируйте свою программу на диск и выйдите из среды программирования для ее выполнения.

109 Cannot find EXE file (не находится ЕХЕ-файл)

По какой-то причине ЕХЕ-файл, сгенерированный только что компилятором, исчез.

110 Cannot run a unit (модуль выполнять нельзя)

Программный модуль выполнить нельзя. Чтобы проверить его, напишите программу, использующую этот программный модуль.

111 Compilation aborted (компиляция прервана)

Компиляция была прервана с помощью нажатия клавиш Ctrl+Break.

112 CASE constant out of range (константа CASE нарушает допустимые границы)

Для операторов case целочисленные переключатели не должны выходить из диапазонов типов Word или Integer.

113 Error in statement (ошибка в операторе)

Данный символ не может быть первым символом в операторе. {535}

114 Cannot call an interrupt procedure (нельзя вызвать напрямую процедуру прерывания)

115 Must have an 8087 to compile this (для компиляции необходимо наличие сопроцессора 80X87)

Компилятор требует для компиляции программ и программных модулей в режиме {$N+} наличия сопроцессора 80X87.

116 Must be in 8087 mode to compile this (для компиляции необходим режим использования 80X87)

Данная конструкция может быть скомпилирована только в режиме {$N+}. В режиме {$N-} операции с вещественными типами одиночной и двойной точности, расширенными и совместимыми с ними, не допускаются.

117 Target address not found (адрес назначения не найден)

Команда Compile/Find error (Компиляция/Поиск ошибки) в интегрированной среде программирования или опция /F в командной строке компилятора tpc не позволяют обнаружить оператор, соответствующий указанному адресу.

118 Include files are not allowed here (в такой ситуации включаемые файлы не допускаются)

Каждый блок операторов должен целиком размещаться в одном файле.

119 ТР file format error (Ошибка формата файла .ТР)

Файл конфигурации .ТР является недействительным. Убедитесь, что этот файл будет в действительности файлом конфигурации для данной системы.

120. NIL expected (ожидается NIL)

121. Invalid qualifier (неверный квалификатор)

Возможные причины ошибки:

• попытка индексировать переменную, которая не является массивом;

• попытка указать поля в переменной, которая не является записью;

• попытка разыменовать переменную, которая не является указателем.

122 Invalid variable reference (неверная ссылка на переменную)

Предыдущая конструкция удовлетворяет синтаксису ссылки на переменную, но она не указывает адрес памяти. Наиболее вероятно, что вызвана функция-ссылка, но не разыменован результат.

123 Too many symbols (слишком много символов)

Программа (или модуль) описывает более 64K символов. При компиляции программы попробуйте отключить директиву {$D+). Иначе можно поместить некоторые описания в отдельный модуль.

124 Statement part too large (слишком большой раздел операторов)

Турбо Паскаль ограничивает размер кода блока операторов до величины примерно 24K. Если обнаружена эта ошибка, то поместите части разделов оператора в одну или несколько процедур. В любом {536} случае при наличии раздела операторов такого размера следует сделать более ясной и понятной структуру своей программы.

125 Module has no debug information (в модуле нет отладочной информации)

При возникновении ошибки времени выполнения в программе или модуле, не имеющих отладочной информации, отладчик не сможет указать на место сшибки в тексте программы. Перекомпилируйте модуль с опцией {$D+} и воспользуйтесь меню (Compile/Find Error) (Компиляция/Поиск ошибки), чтобы найти эту ошибку в интегрированной среде, или опцией /F в компиляторе tpc.

126 Files must be var parameters (параметры-файлы должны быть описаны как VAR)

Попытка описать формальный параметр файлового типа как параметр-значение. Поставьте слово VAR перед параметрами.

127 Too many conditional symbols (слишком много условных символов)

Отсутствует место для определения условных символов. Попытайтесь удалить некоторые символы или сократить некоторые из ключевых слов компиляции.

128 Misplaced conditional directive (пропущена условная директива)

Компилятор обнаружил директиву {$ELSE} или {$ENDIF} без соответствующих директив {$IFDEF}, {$IFNDEF} или {$IFOPT}.

129 ENDIF directive missing (пропущена директива ENDIF)

Исходный файл закончился внутри конструкции условной компиляции. В исходном файле должно быть равное количество директив {$IFxxx} и {$ENDIF}.

130 Error in initial conditional defines (ошибка в начальных условных определениях)

Исходные условные символы, указанные в меню O/C/Conditional Defines (Условные определения) или в директиве /D компилятора tpc являются недействительными.

131 Header does not match previous definition (заголовок не соответствует предыдущему определению)

Возможные причины ошибки:

• заголовок процедуры или функции, указанный в интерфейсной секции, не соответствует самому заголовку процедуры или функции;

• заголовок процедуры или функции, указанный в опережающем описании (описании forward), не соответствует самому заголовку процедуры или функции.

132 Critical disk error (критическая ошибка диска)

Во время компиляции произошла критическая ошибка диска (например, дисковод находится в состоянии « не готов» ).

133 Cannot evaluate this expression (невозможно вычислить данное выражение) {537}

В выражении-константе или в отладочном выражении используются неподдерживаемые средства, например в описании константы используется функция Sin, или в отладочном выражении вызывается определенная пользователем функция.

134 Expression Incorrectly terminated (некорректное завершение выражения)

Ожидается конец выражения или оператор, но не обнаруживается ни то, ни другое.

135 Invalid format specifier (неверный спецификатор формата)

Используется неверная спецификация формата или числовой аргумент спецификатора формата выходит за допустимые границы.

136 Invalid indirect reference (недопустимая косвенная ссылка)

Осуществляется недопустимая косвенная ссылка. Например, используются совмещенная переменная, базовая переменная которой в текущем модуле неизвестна, или в подпрограмме типа Inline делается ссылка на переменную, неопределенную в текущем модуле.

137 Structured variable are not allowed here (некорректное использование структурной переменной)

Делается попытка выполнить над структурной переменной неподдерживаемую операцию, например перемножаются две записи.

138 Cannot evaluate without System unit (нельзя вычислить без блока System)

Для того чтобы отладчик смог вычислить выражение, в файле TURBO.TPL должен содержаться модуль System.

139 Cannot access this symbol (доступ к данному символу отсутствует)

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

140 Invalid floating-point operation (недопустимая операция с плавающей запятой)

При операции с двумя действительными значениями было получено переполнение или деление на ноль.

141 Cannot compile overlay to memory (нельзя выполнить компиляцию оверлеев в память)

Программа, использующая оверлеи, должна компилироваться на диск.

142 Procedural or function variable expected (должна использоваться переменная-процедура или функция)

В этом контексте оператор получения адреса @ может использоваться только с переменной-процедурой или функцией.

143 Invalid procedure or function reference (недопустимая ссылка на процедуру или функцию)

Если конкретную реализацию процедуры или функции нужно {538} присвоить переменной-процедуре (функции), то она должна компилироваться в режиме {$F+} и не может описываться с помощью ключевых слов inline или interrupt.

144 Cannot overlay this unit (этот модуль не может быть оверлейным)

Попытка использовать в качестве оверлейного модуль, который не был скомпилирован в режиме {$О+}.

146. File access denied (доступ к файлу заблокирован DOS)

147. Object type expected (ожидается тип « объект» )

Идентификатор не обозначает тип « объект», или тип пропущен.

148 Local object types are not allowed (не допустимы локальные описания типов объектов)

Типы объектов могут быть определены только в глобальном блоке программы или модуля. Определения типа объекта внутри процедур и функций не допустимы.

149 VIRTUAL expected (необходимо слово VIRTUAL)

Отсутствует ключевое слово virtual в описании объекта.

150 Method identifier expected (ожидается идентификатор метода)

Идентификатор не обозначает метод объекта.

151 Virtual constructors are not allowed (виртуальные конструкторы не допустимы)

Правило конструктора объекта должно быть статическим.

152 Constructor identifier expected (ожидается идентификатор конструктора)

Идентификатор не обозначает конструктор объекта.

153 Destructor identifier expected (ожидается идентификатор деструктора)

Идентификатор не обозначает деструктор объекта.

154 Fail only allowed within constructors (вызов Fail допустим только из конструктора)

Стандартная процедура Fail может быть вызвана только из конструктора объекта. {539}