![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Client |
![]()
Сообщение
#1
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: ![]() ![]() ![]() |
Привет!
решил сделать программку для архивации и... сейчас есть 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 бита а не байт целиком? |
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 0:17 |