文件流，字符运算的高手进来看看！！！(200分)

procedure TForm1.Button2Click(Sender: TObject);
var
FileStream: TFileStream;
i: integer;
filesize: integer;
bufferARRchar;
begin
screen.Cursor := crHourGlass;
filesize := 3;
//这里是DST文件，或是JPG什么的。。
FileStream:= TFileStream.Create('d:/RP533.DST',fmOpenRead);
MemoryStream := TmemoryStream.Create;
try
MemoryStream.LoadFromStream(FileStream);
finally
FileStream.Free;
end;
TempMemory := TmemoryStream.create;
i:=0;
try
MemoryStream.Position := 512;
//MemoryStream.SaveToFile('aaa.ini');
while MemoryStream.Position < MemoryStream.Size -1 do
begin
TempMemory.Position := 0 ;
TempMemory.Size := 0;
if MemoryStream.Size - MemoryStream.Position < FileSize then
FileSize := MemoryStream.Size - MemoryStream.Position;
TempMemory.CopyFrom(MemoryStream,FileSize);
TempMemory.Read(BufferARR,TempMemory.Size);
//这里按照我的理解BufferARR应该有三个byte吧！~现在我想把它以二进制的
//形式取出来，然后按位进行处理！小菜搞了二天一个晚上，555
//大侠帮帮忙，要不101又完了！！！！！
ReadMemory();
end;
finally
MemoryStream.Free;
TempMemory.Free;
end;
screen.Cursor := crDefault;
end;

gzing

关注！

有个麻烦的办法
1.先用 IntToHex 将各个Byte转化成十六进制的字符串，得到2个字符的十六进制字符串
2.取出每个字符，自己写个函数转化成二进制制符串，得到八个字符的二进制字符串
3.处理这个字符串
4.将这个二进制字符串转化成Byte类型的十进制数，写回Byte的地址