How can I write bit values to a file?

[Kudel]

Hi all!

How can I write bit values to a file?

Any tip, trick or comment is appreciated.

-Kudel

 

[FamWS]

You may implement it by using set of integer.

e.g.
var BitValue : set of integer;

begin
:
BitValue := [1,2,3];
write(TxtFile, BitValue);
:
end

 

[alunjones]

hi,

If you're looking at exact bit usage in a file (e.g. write 3 bits of info, then 7 bits, all compacted together), then I've got a filestream descendent class that'll do it for you. If you're interested, then reply to the thread

 

[Kudel]

hi alunjones!

Yes, that sounds interesting!