阳光有点冷

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

该函数不区分大小写, 举例: var   s: string;   i: Integer; begin   s := 'CodeDear Delphi';   i := LastDelimiter('Del',s);   ShowMessage(IntToStr(i));  {12} end;

有简单提示的链接有效. 过程或函数名  分类   简单提示  Abort     AddExitProc     AddTerminateProc     AdjustLineBreaks   Unix 与 Windows 的换行符互换 AnsiC

var   ss,s: string; begin   ss := '  Delphi  ';   s := Trim(ss);              {删除两边空格}   ShowMessage('^' + s + '$'); {^Delphi$}   s := TrimLeft(ss);          {删除左空格}   ShowMessage('^' + s + '$'); {^D