Поиск подстроки в строке с заданной позиции (стандартный вариант)Delphi , Синтаксис , Текст и СтрокиПоиск подстроки в строке с заданной позиции (стандартный вариант)
Автор: Romkin { **** UBPFD *********** by delphibase.endimus.com **** >> Поиск подстроки в строке с заданной позиции (стандартный вариант) Вроде работает Substr - подстрока, S - строка, fromPos - с какой позиции искать Если вхождение не найдено, возвращает 0 Ограничения - как для ansiStrPos Зависимости: SysUtils Автор: Romkin, romkin@pochtamt.ru, Москва Copyright: Romkin Дата: 18 июля 2002 г. ***************************************************** } function fAnsiPos(const Substr, S: string; FromPos: integer): Integer; var P: PChar; begin Result := 0; P := AnsiStrPos(PChar(S) + fromPos - 1, PChar(SubStr)); if P <> nil then Result := Integer(P) - Integer(PChar(S)) + 1; end; Статья Поиск подстроки в строке с заданной позиции (стандартный вариант) раздела Синтаксис Текст и Строки может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |