Delphi Последнее Вхождение Символа В Строку

В Delphi есть несколько способов найти последнее вхождение символа в строку. Один из них - использование функции PosEx, которая находит позицию первого вхождения символа, начиная с указанной позиции, и работает справа налево.

var  s: string;  ch: Char;  pos: Integer;begin  s := 'example';  ch := 'e';  pos := PosEx(ch, s, Length(s));  if pos > 0 then     ShowMessage(IntToStr(pos))  else    ShowMessage('Not found');end;

Здесь мы ищем последнее вхождение символа 'e' в строку 'example'. Функция Length(s) указывает на позицию, начиная с которой нужно искать символ. Если символ не найден, то выводится сообщение 'Not found'.

Еще один способ - использование цикла, который начинает поиск символа справа налево:

var  s: string;  ch: Char;  i: Integer;begin  s := 'example';  ch := 'e';  for i := Length(s) downto 1 do    if s[i] = ch then    begin      ShowMessage(IntToStr(i));      Break;    end;end;

Здесь мы проходим циклом по строке справа налево, начиная с позиции Length(s). Если символ найден, то выводится позиция и цикл прерывается командой Break.