Скачать: CL | DM;
Создание/запись бинароного файла Найти похожие ветки
← →
Урфин Джус (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);
← →
Anatoly Podgoretsky © (2004-08-10 13:41) [6]MacroDenS © (10.08.04 13:20) [1]
А теперь посмотри на размер файла.
← →
MacroDenS © (2004-08-10 13:47) [7]to Anatoly Podgoretsky ©
а про размер ничего не говорилось, сказано было, как записать туда 1 байт. В файле же один байт. а сколько он на диске места резервит это уже другая теемя.
Страницы: 1 вся ветка
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.071 c
Маг Гыр
2004-05-06 12:39
2004.08.22
Mario Forever
3-1090928811
Dolvet
2004-07-27 15:46
2004.08.22
Как урезать нужное колисечтво символов из числового поля
3-1090987909
Ani
2004-07-28 08:11
2004.08.22
Как передать содержимое QuickRep в MsWord?
4-1089719131
webpauk
2004-07-13 15:45
2004.08.22
Caption Height
11-1079530890
RTWolf
2004-03-17 16:41
2004.08.22
Как в KOL уменьшить расходуемую память на компоненты?