Функция LastDelimiter в Delphi находит последнюю позицию указанных символов в строке.
SysUtils unit
function LastDelimiter (const Delimiters, Source : string) : Integer;
Функция LastDelimiter находит последнее вхождение любого набора символов разделителей (Delimiter) в строке (Source).
Если найдено, возвращается позиция. Иначе, возвращается 0.
Примечание.
Первый символ строки имеет индекс 1.
Функция 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;
Результат
Последняя 1 в 11 позиции
Последняя 2, 4 или 6 в 16 позиции
Похожие функции, процедуры и команды
AnsiPos — находит позицию одной строки в другой.
StrScan — ищет заданные символы в строке.
