Клуб программистов

    Delphi функция LastDelimiter возвращает позицию в строке, в которой символ встречается в последний раз.

    Если символ не обнаружен то возвращается 0, если обнаружен то число обозначающие позицию этого символа в строке.

var
   source, find : string;
   position : Integer;

begin
   // Create a string
   source := '12345678901234567890';

   // Find the position of the last 1
   position := LastDelimiter('1', source);
   ShowMessage('The last 1 is at '+IntToStr(position));

   // Find the position of the last 2, 4 or 6
   position := LastDelimiter('246', source);
   ShowMessage('The last 2, 4 or 6 is at '+IntToStr(position));
end;

The last 1 is at 11
The last 2, 4 or 6 is at 16