Справочник функций и процедур Delphi: LastDelimiter

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

LastDelimiter
Функция
Находит последнюю позицию указанных символов в строке SysUtils unit
  function LastDelimiter ( const Delimiters, Source : string ) : Integer;

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

Если найдено, возвращается позиция. Иначе, возвращается 0.
Примечания
Первый символ строки имеет индекс 1.
Похожие команды
AnsiPos  Находит позицию одной строки в другой

StrScan  Ищет заданные символы в строке

 
Пример кода : Нахождение последней позиции 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 позиции
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook