Поиск подстроки в строке с заданной позицииDelphi , Синтаксис , Текст и СтрокиПоиск подстроки в строке с заданной позиции
Автор: Romkin { **** UBPFD *********** by delphibase.endimus.com **** >> Поиск подстроки в строке с заданной позиции S - строка, в которой искать SubStr - образец fromPos - с какой позиции Все на асемблере, принцип простой - ищется первый символ, затем часть строки сравнивается с образцом начиная с этого символа Если образец не найден, возвращает 0 Если найден - номер первого символа вхождения Зависимости: Нету их! Автор: Romkin, romkin@pochtamt.ru, Москва Copyright: Модернизированная функция из SysUtils Дата: 18 июля 2002 г. ***************************************************** } function TailPos(const S, SubStr: AnsiString; fromPos: integer): integer; asm PUSH EDI PUSH ESI PUSH EBX PUSH EAX OR EAX,EAX JE @@2 OR EDX,EDX JE @@2 DEC ECX JS @@2 MOV EBX,[EAX-4] SUB EBX,ECX JLE @@2 SUB EBX,[EDX-4] JL @@2 INC EBX ADD EAX,ECX MOV ECX,EBX MOV EBX,[EDX-4] DEC EBX MOV EDI,EAX @@1: MOV ESI,EDX LODSB REPNE SCASB JNE @@2 MOV EAX,ECX PUSH EDI MOV ECX,EBX REPE CMPSB POP EDI MOV ECX,EAX JNE @@1 LEA EAX,[EDI-1] POP EDX SUB EAX,EDX INC EAX JMP @@3 @@2: POP EAX XOR EAX,EAX @@3: POP EBX POP ESI POP EDI end; Статья Поиск подстроки в строке с заданной позиции раздела Синтаксис Текст и Строки может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |