[grib_aga]

Нужно читать файл побайтово и сравнивать его с эталоном до совпадения, делаю так:

Код:

var
  F:	file of Byte;
  b, n:	Byte;

begin
if OpenDialog1.Execute then
   begin
      AssignFile(f, OpenDialog1.FileName);
      Reset(f);
   while not Eof(f) do
      begin
         blockRead(f, b, 1);
         n := 'искомый байт';
        if b = n then 
           begin
              Label1.Caption := 'Совпадение';
              exit;
           end;
      end;
   end;
	CloseFile(f);
end;

Не работает. Как сделать правильно?

[M.A.D.M.A.N.]

Используй TFileStream.

[grib_aga]

Сообщение от M.A.D.M.A.N.

Используй TFileStream.

Спасибо, проблема решена.