архивация Опции

[Client]

Привет!
решил сделать программку для архивации и... сейчас есть 2 проблемки:
1) начал считывать файл через blockread и получаю ошибку I/O 998. ошибка доступа, но почему? файл создался и в корне диска и в папке с проектом.
procedure TForm1.Button2Click(Sender: TObject);

var
  f : file;
  buf : array [0..255] of Char;
begin
  AssignFile(f, 'D:\asd.bin');
  Reset(f);
  BlockRead(f, buf, 250);  <-- тут вылазит ошибка 
  Memo1.Text := buf;
  CloseFile(f);
end;

2)пока до этого не дошел, но.. какой у меня будет выигрыш? Допустим, есть текстовый файл, я его прочитал, составил таблицу частот символов, построил дерево, а потом что? у меня получатся цепочки из 3-х бит и более, но как мне записать именно эти 3 бита а не байт целиком?

[Client]

побитно? т.е. сначала считал байт и разбил его или прям побитно? по-моему меньше байта нельзя прочитать

хм, ну так в теории вроде понятно, что я записал в файл я и прочитаю. но все равно я не понял
например, есть (101)(10)(0101)(011)(1011)(1001)(1011) в скобках "короткий символ".
Вот читаю 1 байт, прохожу по битам, смотрю 101, да он совпадает, в таблице есть такая цепочка бит, можно читать дальше. Но, если взять еще 1 бит, будет 1011. Такая кодировка символа тоже есть в таблице. И дальше больше.

Этот момент я не пойму как разобрать

Сообщение отредактировано: Client - 1.04.2011 15:38