|
|
Регистрация | << Правила форума >> | 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; Не работает. Как сделать правильно? |
#2
|
||||
|
||||
Используй TFileStream.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
grib_aga (17.03.2013)
|
#3
|
|||
|
|||
Цитата:
Спасибо, проблема решена. |