Использование PosEx взамен Pos

Delphi , Синтаксис , Текст и Строки

В Delphi 7 в модуле StrUtils внесены некоторые изменения.

Есть новая функция: PosEx.

Обьявление этих функций:

Code:

Function Pos(Substr: String; S: String): Integer;

Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;

Новая функция PosEx, позволяет указать начальную позицию поиска внутри строки, что избавит вас от необходимости изменения исходной строки. Незабудьте указать модуль StrUtils.

Ниже приведена реализация функции в модуле StrUtils (если вы используете более старшую версию среди разработки вы сможете сами добавить этот код и использовать его вместо функции Pos):

Code:

Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;

var

I,X: Integer;

Len, LenSubStr: Integer;

begin

If Offset = 1 Then

Result := Pos(SubStr, S)

Else

begin

I := Offset;

LenSubStr := Length(SubStr);

Len := Length(S) - LenSubStr + 1;

While I <= Len Do

begin

If S[I] = SubStr[1] Then

begin

X := 1;

While (X < LenSubStr) And (S[I + X] = SubStr[X + 1]) Do

Inc(X);

If (X = LenSubStr) Then

begin

Result := I;

Exit;

End;

Inc(I);

End;

Result := 0;

End;

Автор RoboSol Взято из http://forum.sources.ru

В статье описывается новая функция PosEx в модуле StrUtils Delphi 7, которая позволяет указать начальную позицию поиска в строке, что упрощает процесс поиска подстроки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Текст и Строки ::

Время компиляции файла: 2024-12-22 20:14:06
2025-04-04 05:46:04/0.0053751468658447/0