Консультация № 130806
06.04.2008, 14:37
0.00 руб.
0 1 1
Здравствуйте! Такой вопрос. В библиотеке Turbo Professional есть функция TextPos(f) и процедура TextSeek(f,i). Есть ли в Делфи аналоги или можно ли их как-то заменить? Заранее всем спасибо.

Обсуждение

Неизвестный
06.04.2008, 16:34
общий
это ответ
Здравствуйте, Grayswan!

<b>function Pos ( const Needle, HayStack : string ) : Integer;</b>

Функция <b>Pos</b> находит позицию одной строки <b>Needle</b> в другой строке <b>HayStack</b>.

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

Поиск чувствителен к регистру.

<hr>

<b>function AnsiPos ( const Needle, HayStack : string ) : Integer;</b>

Функция <b>AnsiPos</b> ищет подстроку <b>Needle</b> в строке <b>HayStack</b>, возвращая позицию первого вхождения.

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

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

Поиск чувствителен к регистру.

<hr>

В 7-й версии Delphi в составе модуля <b>StrUtils</b> присутствует также функция <b>PosEx</b>.

<b>function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;</b>

Функция <b>PosEx</b> возвращает вхождение строки <b>SubStr</b> в строке <b>S</b>, поиск начинается с символа <b>Offset</b>. Если <b>Offset</b> равен 1 ( как по умолчанию), <b>PosEx</b> эквивалентно <b>Pos</b>.

<b>PosEx</b> возвращает 0 если:
<li> <b>SubStr</b> не найдена в <b>S</b>
<li> <b>Offset</b> больше длины строки <b>S</b>
<li> <b>Offset</b> меньше 1
Форма ответа