Поиск и замена байтов

[Fakov]

Собственно сабж братцы в следующем.
Хочу найти в файле двоичную последовательность, и перед ней заменить байт на нужный мне.
Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  imp:=ExtractFileName(f);
  s:=$0D;

  fs:=TFileStream.Create(imp, fmOpenReadWrite);
  fs.Seek($42544E, fs.Position-1);
  fs.Read(s, sizeof(s));
  if s<>$0D42544E then
    begin
    fs.Seek($42544E, fs.Position-1);
    //fs.Position:=fs.Position-4;
    s:=$0D;
    fs.Write(s, sizeof(s));
    end;
  fs.Free;

end;

(это уже многочисленная вариация попытки, знаю что не работает). Собственно как это сделать правильно?

Я ищу последовательность $42544E, и хочу перед ней поставить байт 0D если там стоит 00 или 05. Как это сделать?

[Serge_Bliznykov]

Сообщение от Fakov

fs.Seek($42544E

это не поиск, это попытка установить позицию в файле по смещению 4346958

поиск придётся писать самому, сравнивая побайтно.
примерно, как тут описано - http://programmersforum.ru/showthread.php?t=196864

[digitalis]

А если там непрерывная последовальность бит, и искомая маска не выравнивается на границу байта/слова ?
001011100010001100......, маска поиска 10111
Конкретно задача неизвестна, но не исключен вариант побитного сравнения

[northener]

Сообщение от digitalis

А если там непрерывная последовальность бит, и искомая маска не выравнивается на границу байта/слова ?

Для сего форума это перебор. Про биты ТС говорит только по своей малограмотности.
Ну и в добавок. Где, когда и в каком файле вы видели "последовательность бит" без привязки к байтам этого файла?

[digitalis]

Я предвидел этот вопрос и накорябал черно-белый .bmp Так там побитно все. И без привязки (не к байтам, а к границам байта) .
И если бы я искал последовательность "точка - две_точки - три_точки" - она нашлась бы не на границе байта.
Впрочем, Вы правы - для этого вопроса это слишком глубокие дебри. Кстати, про биты ТС не говорит, это уж я расширил вопрос до неприличия