Функция AnsiEndsStr – возвращается истина, если строка заканчивается подстрокой

Функция AnsiPos в Delphi возвращает истину, если строка заканчивается подстрокой.

Функция AnsiEndsStr: Пример кода

var
  haystack : AnsiString;
begin
  haystack := 'The cat sat on the mat';

  // Обратите внимание, что AnsiContainsStr чувствителен к регистру
  if AnsiEndsStr('the MAT', haystack)
  then ShowMessage('''the MAT'' заканчивает предложение')
  else ShowMessage('''the MAT'' не заканчивает предложение');

  if AnsiEndsStr('the mat', haystack)
  then ShowMessage('''the mat'' заканчивает предложение')
  else ShowMessage('''the mat'' не заканчивает предложение');
end;