type
TMyBit=0..7;
TMyBits=set of TMyBit;
...
var
Mybits:TMyBits;
f:File;
i:Integer;
...
MyBits:=[]; //b00000000
i:=0;
MyBits:=MyBits+[i]; //b00000001
MyBits:=MyBits+[1]; //b00000011
MyBits:=MyBits+[7]; //b10000011
MyBits:=MyBits-[7]; //b00000011
MyBits:=[0..7]; //b11111111
AssignFile(f,'c:\test.data');
Rewrite(f,1);
BlockWrite(f,MyBits,1);
CloseFile(f);
这是写,读就不用说了,
这是我从CSDN上学来的,
TMyBit=0..7;
TMyBits=set of TMyBit;
...
var
Mybits:TMyBits;
f:File;
i:Integer;
...
MyBits:=[]; //b00000000
i:=0;
MyBits:=MyBits+[i]; //b00000001
MyBits:=MyBits+[1]; //b00000011
MyBits:=MyBits+[7]; //b10000011
MyBits:=MyBits-[7]; //b00000011
MyBits:=[0..7]; //b11111111
AssignFile(f,'c:\test.data');
Rewrite(f,1);
BlockWrite(f,MyBits,1);
CloseFile(f);
这是写,读就不用说了,
这是我从CSDN上学来的,
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货