Функция LastDelimiter – находит последнюю позицию указанных символов в строке

Функция LastDelimiter в Delphi находит последнюю позицию указанных символов в строке.

Функция LastDelimiter: Нахождение последней позиции 1 или более символов в строке

var
  source, find : string;
  position     : Integer;

begin
  // Создание строки
  source := '12345678901234567890';

  // Нахождение позиции последней 1
  position := LastDelimiter('1', source);
  ShowMessage('Последняя 1 в '+IntToStr(position)+' позиции');

  // Нахождение позиции последней 2, 4 или 6
  position := LastDelimiter('246', source);
  ShowMessage('Последняя 2, 4 или 6 в '+IntToStr(position)+' позиции');
end;