Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
LastDelimiter
Функция
Находит последнюю позицию указанных символов в строке SysUtils unit
  function LastDelimiter ( const Delimiters, Source : string ) : Integer;
Описание
Функция 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 позиции
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия