Функція 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 — шукає задані символи у рядку.
