Функция POS - поиск в обратном направлении

← →
Max_ (2004-04-09 10:20) [0]

Задача искать символы от конца к началу- в обратном направлении.
Помню, усть такая функция в Delphi, но забыл как называется Unit и её название.

← →
Семен Сорокин © (2004-04-09 10:27) [1]

for _i := Lenfth(text) downto 1 do
if text[_i] = "a" then
// Нашел симаол "a"

← →
MetalFan © (2004-04-09 10:29) [2]

SearchBuf + F1

← →
Max_ (2004-04-09 10:51) [3]

SearchBuf - что то похожее, но там была string функцияю (то ли в HTTPApp модуле то ли в другом)

Pos(ReverseString) -)

sublen:=Length(SubStr); rpos:=Length(Str)-sublen; if(sublen>0)then while(rpos>0)and (not MemoryCompare(@Str[rpos],@SubStr[1],sublen)) do dec(rpos);