Найти строку в 16-ричном представлении файла Опции

[Unconnected]

Нужно представить файл в шестнадцатеричном виде и найти в нём определённую текстовую строку. Вот что я смог:

var f:file of byte;
    s,z,buf:string;
    x:byte;
    a,b,bufsize:integer;
begin
  assignfile(f,'C:\***************************************************');
  reset(f);
  for a:=1 to filesize(f)-15 do
  begin
     for b:=a to a+14 do
     begin
       seek(f,b);
       read(f,x);
       s:=s+inttostr(x);
     end;
     bintohex(pchar(s),pchar(z),bufsize);
     if z='**************' then begin
                                                 edit1.text:=z;
                                  break;
                                end
     else z:='';

end;

end;

По идее пограмма читает файл "порциями" по 14 символов(строка,которую надо найти,такой длины), потом переводит в шестнадцатеричный вид и, если строка соответствует нужной, останавливает цикл. Только не работает В делфях ещё мало понимаю,обьясните пожалуйста...


Сейчас ещё нашёл,что нужно в ASCII виде представить это...

Сообщение отредактировано: Unconnected - 28.10.2008 20:13

[volvo]

BinToHex не делает того, чего ты хочешь... Эта процедура берет число (число, а не строку), и возвращает его представление в 16-ричной СС. Тебе что найти-то надо? Файл байтов, допустим, начинается сочетанием байт со значениями от 1 до 14... Тогда приведенная к 16-ричному представлению эта последовательность будет иметь вид:
0102030405060708090A0B0C0D0E
Ты будешь искать строки, заданные именно в таком виде? Тогда вот так:

  if OpenDialog1.Execute then begin
    assignfile(f, OpenDialog1.FileName);
    reset(f);
    for a := 0 to filesize(f) - 14 do begin
      s := '';
      Seek(f, a);
      for b := 1 to 14 do begin
        read(f, X); { <--- Читаем побайтно и сразу переводим в Hex... }
        s := s + IntToHex(X, 2); { <--- ... и складываем в строку }
      end;

      if s = '0102030405060708090A0B0C0D0E' then begin
        // нашли строку, делай что нужно
      end;

    end; // for a
  end; // OpenDialog.Execute