请问Delhpi7如何对每个比特进行操作？ ( 积分: 10 )

P

pshust

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-16

• #1

举个简单的例子，我陆续抄收到信息，通过中间环节不断写入到文件tmp.dat中。
中间环节就是对tmp.dat的每个比特进行取反运算，如何处理？

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-16

• #2

var
tmpFileStream: TFileStream;
tmpData: array of Byte;
begin
tmpFileStream := TFileStream.Create('c:/tmp.dat', fmOpenReadWrite);
try
SetLength(tmpData, tmpFileStream.Size);
tmpFileStream.Read(tmpData, tmpFileStream.Size);
for i := 0 to Length(tmpData) - 1 do
tmpData := not tmpData;
{ tmpData中就是取反后的数据 }
finally
en;d
end;

 

P

pshust

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-20

• #3

谢谢楼上，但不是byte
我说的是对bit的操作
把一个文件按0101来处理，通过与某个“01”组合的与运算，生成新的文件
这样说可能更明了了

 

J

julyzergcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-20

• #4

procedure TForm1.Button2Click(Sender: TObject);
var tmpFileStream: TFileStream;
buf:array[0..1]of word;
dst:word;
begin
tmpFileStream := TFileStream.Create('c:/tmp.dat', fmOpenReadWrite);
tmpFileStream.ReadBuffer(buf[0],2);
buf[0]:=0;
dst:=buf[0];
asm
mov ax,dst
not ax
mov &dst,ax
end;
tmpFileStream.WriteBuffer(dst,1);
end;

 

P

pshust

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-15

• #5

就是如何获得一个字符串每一个对应的bit值？
例如字符串ABCD，总共32个bit，我需要方便知道每个bit的值（是0还是1）。请问如何操作？
能否给出详细的例子，比较着急……

 

独

独帅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-16

• #6

给个检查一个字节的(变量为X)，多个字节分别判断即可：
var
i: Integer;
begin
for i:=0 to 7 do
begin
if (X and (1 shl i))>0 then //字节X的第i位为1
else //字节X的第i位为0

end;
end;

 

P

pshust

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-17

• #7

谢谢了，昨天太着急了
后来自己想到了通过
(X shr n) and 1
来获得X的第n位的值，感觉还不错，谢谢大家了

 

独

独帅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-17

• #8

殊途同归[][][]