TMT Pascal?

[Булат Шакиров]

Посмотрите на source:
в последней строке дает ошибку:
Expected begin, что вообще странно
а хотя в нелпе написано все верно.
Прикол или ошибся?
Type
PcxPalette = array[0..15,0..2] of Byte; {Формат палитры PC PaintBrush}
{Заголовок PCX-файла}
PcxHeader = Record {Заголовок PCX-файла}
Creator : Byte; {ZSoft =10}
Version : Byte; {Версия PCX:
0 - версия 2.5 без палитры;
2 - версия 2.8 с палитрой;
3 - версия 2.8/3.0 без палитры;
5 - версия 3.0 с палитрой.
}
Encoding : Byte; {1 - тип сжатия RLE}
Bits : Byte; { Число битов на пиксел }
Xmin,
Ymin,
Xmax,
Ymax : integer;{ Размеры картинки }
Hres,
Vres : integer;{ Разрешение }
Palette : PcxPalette; {Палитра}
Vmode : Byte; { Резерв}
Planes : Byte; { Число цветовых плоскостей}
BytesPerLine: Word; { Число байтов на строку}
PaletteInfo: Word; { Информация о палитре:
1 - цветная / черно-белая;
2 - градации серого;
}
shres,
svres : Word; { Разрешение сканера}
xtra : array[0..53] of Byte;{ Резервировано }
end;

[Jin X]

А почему бы ему её не выдавать, если у тебя нет основного кода? Стоит только определение двух типов PcxPalette и PcxHeader ))

[Булат Шакиров]

Это inc-файл, и Борланд его отлично нюхает и компиляет! Ладно, сам разберусь ((