Есть ли функция поиска подстроки

[galover]

Только чтобы поиск был с конца строки, а не с начала?

[Ged]

предикат Like

[galover]

мне позиция вхождения нужна, а не факт наличия подстроки

[galover]

похоже нет, ладно, свой вариант накидал

Код: Выделить всё

 private function LastIndexOf(str : string; val : string) : byte; 
 {  
      result := 0;
      var valPos : byte;
      
      while (true)
      {
         valPos := Pos(val, str);
         
         if (valPos = 0)
            exit;
         
         result += valPos;
         str := SubStr(str, valPos + 1, Length(str) - valPos);
      }    
 }