SysUtils.LastDelimiter - 判断一个字符串在另一个字符串中最后出现的位置

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

 

说明：以最后一个字符为准，如果没有完全一样的，也会为其中的某个字符匹配。