好 var: MS:TMemoryStream; i,iPos:integer; buffer,buffer1:array[0..5] of byte ; begin MS:=TMemoryStream.create; MS.loadfromfile('aa.dat'); MS.Postion:=0; buffer1[4]=$11; buffer1[3]=$22; buffer1[2]=$33 ; buffer1[1]=$ff; buffer1[0]=$dd; iPos:=0; while iPos<MS.size do begin MS.seek(iPos,0); MS.readbuffer(Buffer,5) if buffer[0]=$11 and buffer[1]=$22 and buffer[2]=$33 and buffer[3]=$ff and buffer[4]=$dd then begin MS.seek(iPos,0); MS.writebuffer(buffer1,5); iPos:=iPos+5; end else inc(iPos); end;
var:
MS:TMemoryStream;
i,iPos:integer;
buffer,buffer1:array[0..5] of byte ;
begin
MS:=TMemoryStream.create;
MS.loadfromfile('aa.dat');
MS.Postion:=0;
buffer1[4]=$11;
buffer1[3]=$22;
buffer1[2]=$33 ;
buffer1[1]=$ff;
buffer1[0]=$dd;
iPos:=0;
while iPos<MS.size do
begin
MS.seek(iPos,0);
MS.readbuffer(Buffer,5)
if buffer[0]=$11 and buffer[1]=$22 and buffer[2]=$33 and buffer[3]=$ff and buffer[4]=$dd then
begin
MS.seek(iPos,0);
MS.writebuffer(buffer1,5);
iPos:=iPos+5;
end
else
inc(iPos);
end;
freeandnil(MS);