Создание/запись бинароного файла

← →
Урфин Джус (2004-08-10 13:17) [0]

Мастера! Подскажите, как можно создать бинарный файл и записать туда 1 байт, например. До этого я работал только с текстовыми, примерно так:
AssignFile(TF,"C:\index.htm"); ReWrite(TF); Writeln(TF,"<html>"); ... Writeln(TF,"</html>"); CloseFile(TF);
Заранее благодарю.

← →
MacroDenS © (2004-08-10 13:20) [1]

....
var f:file of byte; b:byte; begin assigfile(f, FileName); rewrite(f); b:=65; blockwrite(f, b, 1); closefile(f); end;

← →
Koster (2004-08-10 13:26) [2]

2 MacroDenS: зачем blockwrite, тут просто write по стандартам (хотя наверно и так можно)

← →
Урфин Джус (2004-08-10 13:31) [3]

Ага, MacroDenS, спасибо!
Для опыта всю таблицу ASCII получил и записал в файл!

← →
MacroDenS © (2004-08-10 13:32) [4]

а это на будущее, вдруг нужно будет в файл 2, 3 байта запихать... А если 1024, тык это вообще...

← →
MacroDenS © (2004-08-10 13:34) [5]

to Урфин Джус

Можно объявить еще так:
b:array[1..1024] of byte; //а потом сразу по 1 килу кидать .... blockwrite(f, b, 1024);

to Anatoly Podgoretsky ©
а про размер ничего не говорилось, сказано было, как записать туда 1 байт. В файле же один байт. а сколько он на диске места резервит это уже другая теемя.

Создание/запись бинароного файла Найти похожие ветки