файлы, тинизированные и нетипизированные Опции

[-Alex-]

Зачем существует деление файлов на тепизированные и нетипизированные, ведь по сути нетипизированные файлы болльшоц роли не игроют, а любоц файл можно открыть как типизированный (file of bite)?????????????????????????

[Altair]

открыть-то можно.... но у тебя каждая компонента будет типизированна - byte,
а еслиты используешь нетипизированные файлы, ты можешь считывать любые структуры (разные) из файла, причем структуры любой сложности,
всего одним оператором...
то есть соль в том, что имею нетипизированный файл можно туда записывать данные имеющие разную структуру!


Вот тебе пример.
модуль для чтения и вывода BMP
такую структуру :

type 
 TPaletteEntry = record {тип п литры} 
  B,G,R:Byte; 
  Flags:Byte; 
 end; 
 TBitmapFileHeader = record 
 bfType :word; 
 bfsize :longint; 
 bfReserved1 :word; 
 bfReserved2 :word; 
 bfOffBits :longint; 
 biSize :longint; 
 biWidth,BiHeight :longint; 
 BiPlanes :word; 
 bibitCount :word; 
 biCompression :longint; 
 biSizeImage :longint; 
 biXPelsPerMeter, biYPelsPerMeter :Longint; 
 biClrUsed, biCLrImportant :longint; 
 end; 

 TpPalArray =array[0..255, red..BLUE] of byte; 
var 
 F :FILE; { BMP file } 
 bfh :TBitMapFileHeader; {з головок ф йл } 
 Pal : array[0..256] of TPaletteEntry;

мы считываем всего одним оперератром.

BlockRead(f,BFH,SizeOf(BFH));

а потом совсем другую структуру, тоже одним оператором

BLOCKREAD(f,Pal,Palsize*4);

(палитра).
А теперь подумай что было бы если бы мы файл как байтвый открыли? читай-кавсе это ....

Сообщение отредактировано: Oleg_Z - 22.06.2005 17:12