SysUtils.IsDelimiter 判断字符串的某个位置是不是指定的字符串

 
var
  s: string;
  b: Boolean;
begin
  s := 'CodeDear Delphi';
  b := IsDelimiter('de', s, 3);
  ShowMessage(BoolToStr(b));  {返回 -1, 就是 True}
end;

说明：　 b := IsDelimiter('de', s, 4);　 返回也是{返回 -1, 就是 True}　　end;　　其它为0