举例:
var s: string; b: Boolean; begin s := 'CodeDear Delphi'; b := IsDelimiter('de', s, 3); ShowMessage(BoolToStr(b)); {返回 -1, 就是 True} end;SysUtils 单元下的公用函数目录