Модуль: SysUtils

Описание
Функция просматривает длинную строку S, начиная с первого символа, и возвращает указатель на первый обнаруженный символ Chr. Нулевой символ конца строки рассматривается данной функцией как часть строки. Если строка не содержит ни одного символа Chr, то функция возвращает nil. В отличие от StrScan, данная функция поддерживает многобайтовые наборы символов (MBCS).

Пример
var
   P1,P2: PChar;
begin
   P1:= 'http://www.atrussk.ru/delphi';
   P2:= AnsiStrScan(P1, '/');     { P2 := '//www.atrussk.ru/delphi' }
   MessageDlg( P2, mtInformation, [mbOk], 0);
end;