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

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

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

AnsiPos
Функция
Находит позицию одной строки в другой SysUtils unit
  function AnsiPos ( const Needle, HayStack : string ) : Integer;

Delphi Sources

Описание
Функция 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
 


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте