Функция StringReplace – заменяет одну или несколько подстрок, найденных в заданной строке

Функция StringReplace в Delphi заменяет одну или несколько подстрок, найденных в заданной строке.

Функция StringReplace: Замена ' a ' на ' THE ' в предложении

var
  before, after : string;

begin
  // Попытка заменить все вхождения A на THE
  before := 'This is a way to live A big life';

  after  := StringReplace(before, ' a ', ' THE ',
                          [rfReplaceAll, rfIgnoreCase]);
  ShowMessage('Before = '+before);
  ShowMessage('After  = '+after);
end;