Функция AnsiStrScan( S : PChar; Chr: Char ): PChar;
Модуль: SysUtils
Описание
Функция просматривает длинную строку S, начиная с первого символа, и возвращает указатель на первый обнаруженный символ Chr. Нулевой символ конца строки рассматривается данной функцией как часть строки. Если строка не содержит ни одного символа Chr, то функция возвращает nil. В отличие от StrScan, данная функция поддерживает многобайтовые наборы символов (MBCS).
Пример var
P1,P2: PChar; begin
P1:= 'http://www.site.ru/delphi';
P2:= AnsiStrScan(P1, '/'); { P2 := '//www.site.ru/delphi' }
MessageDlg( P2, mtInformation, [mbOk], 0); end;