Произвести поиск байта или слова в строке

Автор: sunsb.dax.ru

У семейства x86 есть группа специализированных строковых инструкций, одна из которых - scasb/scasw - производит поиск байта/слова в строке. Использовать преимущества этой инструкции в Delphi позволяют длинные строки, которых в старых паскалях не было.

Никаких сложностей с пониманием, на мой взгляд, быть не должно. Единственное это смена режима открытия файла (FileMode := 0), которая позволит открыть файлы заблокированные ядром Windows и сдвиг указателя файла при чтении нового блока влево на длину искомой строки. Сдвиг делается на случай разрезания искомой строки на части при чтении файла. Полный текст проверенной программы:

program search;
{$APPTYPE CONSOLE}
uses  SysUtils;
const buffSize  = 16384;
var F           : File;
var buff        : AnsiString;
var oldFileMode : integer;
var SearchString: shortString='SunSB';
var SearchPos   : integer = -1;
var readed      : integer;
var blockStart: integer;
begin
   SetLength( buff, buffSize);
   assignFile( F, 'Speedometer2.exe');
   oldFileMode := FileMode;
   FileMode := 0;
   reset( F,1);
   while not eof( F ) do begin
      blockStart := filePos( F );
      blockRead( F, buff[1], buffSize, readed);
      SearchPos:=Pos( SearchString, buff );
      if SearchPos >  0 then begin
         WriteLn( 'Substr found at pos ',
                        blockStart+SearchPos );
         break;
      end;
      if readed=buffSize then
         seek( F, ( filePos( F ) -
                    length( SearchString )));
   end;
   closeFile( F );
   FileMode := oldFileMode;
   SetLength( buff, 0 );
   if SearchPos = 0 then
      WriteLn( 'Substr not found.');
   readLn;
end.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 880 • TDictionary Custom Sort 5 986 • Fast Watermark Sources 5 775 • 3D Designer 8 591 • Sik Screen Capture 6 117 • Patch Maker 6 545 • Айболит (remote control) 6 538 • ListBox Drag & Drop 5 403 • Доска для игры Реверси 95 238 • Графические эффекты 6 754 • Рисование по маске 5 914 • Перетаскивание изображений 4 927 • Canvas Drawing 5 303 • Рисование Луны 5 032 • Поворот изображения 4 573 • Рисование стержней 3 247 • Paint on Shape 2 487 • Генератор кроссвордов 3 370 • Головоломка Paletto 2 687 • Теорема Монжа об окружностях 3 456 • Пазл Numbrix 2 284 • Заборы и коммивояжеры 2 968 • Игра HIP 1 932 • Игра Go (Го) 1 848 • Симулятор лифта 2 185 • Программа укладки плитки 1 915 • Генератор лабиринта 2 353 • Проверка числового ввода 2 041 • HEX View 2 361 • Физический маятник 1 996

Произвести поиск байта или слова в строке

Похожие по теме исходники