Нужно читать файл побайтово и сравнивать его с эталоном до совпадения, делаю так:
Код:
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;
Не работает. Как сделать правильно?