如何把编辑文件的二进制位呢?

[tyjcdsn]

我想做到打开一个文件,
如果这个文件的第100个二进制位是0,就把它改成1,
然后保存文件!

[haitao]

二进制打开文件，读写方式，seek到位置，写

[一如当初]

var
  FS: TFileStream;
  Value: Byte;
begin
  FS := TFileStream.Create('test.exe', fmOpenReadWrite);
  FS.Position := 100;
  FS.ReadBuffer(Value, SizeOf(Value));
  if Value = 0 then
  begin
    FS.Position := 100;
    Value := 1;
    FS.WriteBuffer(Value, SizeOf(Value));
  end;
  FS.Free;
end;

[蓝色光芒]

如果这个文件的第100个二进制位是0,就把它改成1,

有歧义,从0开始的第100,还是从1开始的第100,
还有第100个二进制位? 不是第100字节的?