https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=110008&view=findpost&p=816680 Mon, 24 Dec 2001 04:43:00 +0000 https://forum.sources.ru/index.php?showtopic=110008&view=findpost&p=816680 Булат Шакиров 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=110008&view=findpost&p=816679 Fri, 21 Dec 2001 20:50:00 +0000 https://forum.sources.ru/index.php?showtopic=110008&view=findpost&p=816679 Jin X 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=110008&view=findpost&p=816678 Fri, 21 Dec 2001 08:35:00 +0000 https://forum.sources.ru/index.php?showtopic=110008&view=findpost&p=816678 в последней строке дает ошибку:
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;]]> Булат Шакиров 32-битные компиляторы