Delphi-Help

Описание

function LastDelimiter ( const Delimiters, Source : string ) : Integer;

Функция LastDelimiter находит последнее вхождение любого набора символов разделителей (Delimiter) в строке (Source).

Если найдено, возвращается позиция. Иначе, возвращается 0.

Пример кода

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 позиции

Примечание

Первый символ строки имеет индекс 1.