|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Побайтовое чтение файла и его дальнейшее сравнение
Нужно читать файл побайтово и сравнивать его с эталоном до совпадения, делаю так:
Код:
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; Не работает. Как сделать правильно? |