| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Pos() RTL

Чапаев ©   (2006-08-09 18:37:00) 

Нужно искать последнее вхождение подстроки в строку. Конечно, можно циклически PosEx() вызывать, но это очень неудобно, так как позже понадобится предпоследнее вхождение и тыды.

Как бы организовать поиск "справа налево" с наименьшими трудозатратами?

---

Dmitrij_K   (2006-08-09 20:32:00) [1]

Посмотри модуль AcedStrings.pas acedutils.narod.ru функции G_LastPos*

---

Jeer   (2006-08-09 18:52:00) [2]

Перевернуть и искать перевернутое же.

---

Desdechado   (2006-08-09 18:40:00) [3]

Написать самому?

Когда-то писал для эксперимента. На эталон не претендует :)
{----- поиск подстроки lpSub от конца строки lpStr -----}
function fn_StrAtR( lpSub, lpStr: PChar ): Integer; cdecl; export;
var
 nLenSub, nLenStr, nStrPos, i: Integer;
begin
 result := 0;
 nLenSub := StrLen( lpSub );
 nLenStr := StrLen( lpStr );
 if( ( nLenSub > 0 ) and ( nLenStr > 0 ) and ( nLenSub <= nLenStr ) ) then
   begin
     nStrPos := nLenStr - 1;     // номер символа, от которого идет поиск влево
     while( nStrPos + 1 >= nLenSub ) do
       begin
         i := 0;                 // счетчик символов в подстроке
         while( ( i < nLenSub ) and
                ( lpStr[ nStrPos - i ] = lpSub[ nLenSub - 1 - i ] ) ) do
           Inc( i );
         if( i = nLenSub ) then
           begin
             result := nStrPos - nLenSub + 2;      // для нумерации с 1
             break;
           end;
         Dec( nStrPos );
       end; // while
   end;
end;

---

Наверх