Нетипизированый файл, BlockRed & Block Write Опции

[suriv]

Код

uses crt;
var
f:file;
s:string;
i:integer;
begin
clrscr;
assign(f,'c:\log.txt');
reset(f);
blockread(f,s,sizeof(s),i);
write(s);
readln;
end.

В файле c:\log.txt написано Hello World


Кокда компилю выдаёт вот что:

ello world ♀♀♀♀♀♀♀♀♀♀♀♀♀ и т.д

Во первых куда делась первая буква ?
Во вторых из за чего появились эти ♀♀

[volvo]

для чего нужны нетипизированые файлы

Допустим, ты пишешь программу для работы с файлами PCX... Перед началом работы с самим изображением надо прочитать заголовок (фиксированной длины), а затем читать сами данные. Как будешь описывать этот файл? Text? (но в нем не содержатся ASCII символы) File Of Byte? (тогда за одно чтение из файла ты сможешь прочитать только 1 байт, а если тебе надо 1Кбайт - 1024 прохода...)

Делаем так: описываем как File (нетипизированный) и читаем за один раз столько информации, сколько нужно...