Функция RCharPos

Функция RCharPos находит позицию последнего вхождения заданного символа в строке.
Принимает два параметра:

Prm:SubString   String   - Искомый символ
Prm:String         String    - Строка, в которой производится поиск

Если длина Prm:SubString не равна 1-у символу, то функция сразу возвращает 0.

Прототип:  RCharPos Function(String,String),UShort

RCharPos  Function( Prm:SubString, Prm:String )
!===============================================
loc:LoopVar  Long

  Code

  If Len(Clip(Prm:SubString)) > 1
    Return(0)
  End
  Loop Loc:LoopVar = Len(Clip(Prm:String)) To 1 By -1
    If Prm:String[Loc:LoopVar] = Prm:SubString
      Return(Loc:LoopVar)
    End
  End

Эта функция взята из статьи Пола Атрайда "Использование реестра", где имеются также две других удобных функции GetRegistry и  PutRegistry.