Как организовать поБИТовое чтение/запись из/в файла

← →
netVare © (2004-05-20 01:10) [0]

Каким образом из файла можно читать и записывать в него последовательности и отдельные биты по средствам Delphi?

← →
Гаврила © (2004-05-20 01:15) [1]

Меньше байта все равно не запишешь. И число бит некратное 8 не запишешь.
Так что писать \ читать байтами, а потом уже плясать от этого

← →
netVare © (2004-05-20 01:24) [2]

А если мне надо записать символ с кодом бякспейса, он же не пишется а просто затирает то что было раньше указателя... Мне надо чтобы читалось и записывалось как есть...

← →
Rouse_ © (2004-05-20 01:30) [3]

> Гаврила © (20.05.04 01:15) [1]
Еще как запишешь - вот только это называется уже модификацией :)

← →
Rouse_ © (2004-05-20 01:32) [4]

> И число бит некратное 8 не запишешь.
Кстати - я бы предостерегся делать такие заявления при невыясненной файловой системе... :)

← →
DHDD (2004-05-20 04:21) [5]

Выясняйте файловую систему. [Rouse_ ©]
Close

Можно написать наследника от TBits и прикрутить ему метод SaveToFile. Там определять байты примерно так

CharNo:=0;
for i:=0 to 7 do
if Bits[j+i] then
CharNo:=CharNo+power(2,i);
MyChar:=chr(CharNo);

> А если мне надо записать символ с кодом бякспейса, он же
> не пишется а просто затирает то что было раньше указателя...
>

Это как? С чего это он затирать должен. Ты же в файл пишешь, а не в Memo.

Как организовать поБИТовое чтение/запись из/в файла Найти похожие ветки