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
AnsiPos
Функция
Находит позицию одной строки в другой SysUtils unit
  function AnsiPos ( const Needle, HayStack : string ) : Integer;
Описание
Функция AnsiPos ищет подстроку Needle в строке HayStack, возвращая позицию в строке первого вхождения.

Весь Ansi команды поддерживают многобайтовые символы и символы с диакритическим знаком.

Если строка не найдена, то возвращается 0.

Поиск чувствителен к регистру.
Примечания
Обратите внимание, что строки начинаются с позиции равной 1.

Многобайтовые наборы символов, определенные операционной системой. Например, Восточные версии Windows используют многобайтовые символы для поддержания их очень большого набора символов.
Похожие команды
AnsiIndexStr  Сравнивает строку со списком строк, возвращает соответствующий индекс

AnsiMatchStr  Возвращается истина, если строка точно соответствует какой-либо строке из списка

LastDelimiter  Находит последнюю позицию указанных символов в строке

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

 
Пример кода : Нахождение слова в предложении
var
  position : Integer;

begin
  // Поиск слово 'Cat' в предложении
  // Обратите внимание: что этот поиск чувствителен к регистру, так, что
  //                    первое 'cat' не рассматривается
  position := AnsiPos('Cat', 'The cat sat on the Cat mat');
  if position = 0
  then ShowMessage('''Cat'' не найдено в предложении')
  else ShowMessage('''Cat'' было найдено начиная с символа '+IntToStr(position));
end;
'Cat' было найдено начиная с символа 20
 



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