Побитная запись в файл

08.09.2009, 12:45. **Показов** 1404. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Всем привет! Объясните мне как в delphi записывать в файл побитно!!! Именно побитно....Т.е. у меня есть таблица:
в ней хранится, например такой байт: 01000000
Вопрос как мне его записать в файл?
Предпологаю, что либо побитно имеющие 0 или 1, либо объявить переменную, затем в нее записать эти биты, чтобы получился 1 байт, а затем уже этот байт записать.
Помогите, нужно очень срочно, но не тот не тот вариант я не могу сделать...

09.09.2009, 11:58

А в файле находится массив из байтов или
необходимо иметь бесконечное количество бит?

По любому доступ осуществляется в byte, words, etc..

Можно, например, сделать так:

var F: file of byte;

procedure UpdateBit(Position: Longint; //позиция байта
BitShift: Byte; //смещение бита 0-7
Value : Boolean);//Значение 0-1
var
B: Byte;
begin
Seek(F, Position);
Blockread(F, B, 1);
If Value then
B:=B OR (1 SHL BitShift)
else
B:=B AND (1 SHL BitShift XOR $FF);
Seek(F, Position);
BlockWrite(F, B, 1);
end;

bombina
		1
	Побитная запись в файл 08.09.2009, 12:45. Показов 1404. Ответов 1 Метки нет (Все метки) Всем привет! Объясните мне как в delphi записывать в файл побитно!!! Именно побитно....Т.е. у меня есть таблица: в ней хранится, например такой байт: 01000000 Вопрос как мне его записать в файл? Предпологаю, что либо побитно имеющие 0 или 1, либо объявить переменную, затем в нее записать эти биты, чтобы получился 1 байт, а затем уже этот байт записать. Помогите, нужно очень срочно, но не тот не тот вариант я не могу сделать...

albor
	09.09.2009, 11:58	2
	А в файле находится массив из байтов или необходимо иметь бесконечное количество бит? По любому доступ осуществляется в byte, words, etc.. Можно, например, сделать так: var F: file of byte; procedure UpdateBit(Position: Longint; //позиция байта BitShift: Byte; //смещение бита 0-7 Value : Boolean);//Значение 0-1 var B: Byte; begin Seek(F, Position); Blockread(F, B, 1); If Value then B:=B OR (1 SHL BitShift) else B:=B AND (1 SHL BitShift XOR $FF); Seek(F, Position); BlockWrite(F, B, 1); end;