Есть ли функция поиска подстроки
Модераторы: m0p3e, edward_K, Модераторы
Есть ли функция поиска подстроки
Только чтобы поиск был с конца строки, а не с начала?
похоже нет, ладно, свой вариант накидал
Код: Выделить всё
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);
}
}