Testar se uma palavra está em uma string usando AnsiContainsStr e ContainsStr

Testar se uma palavra está em uma string usando AnsiContainsStr e ContainsStr

  março 02, 2023    Ana Paula Novello

---

Vira e mexe precisamos testar se contém alguma palavra no meio de uma string para isso temos duas funções que podemos utilizar AnsiContainsStr e ContainsStr;

A função AnsiContainsStr é uma busca sensitive com isso ela diferencia minuscula de maiúsculas já a função ContainsStr não tem essa distinção.

procedure TFVendas_NFSe.actTesteExecute(Sender: TObject);
var
  lDescricao: String;
begin
  lDescricao := 'Meu nome é Ana Paula Novello';
  if AnsiContainsStr(lDescricao, 'novello') then begin
    ShowMessage('Nome correto');
  end else begin
    ShowMessage('Nome incorreto');
  end;
  if AnsiContainsText(lDescricao, 'novello') then begin
    ShowMessage('Nome correto');
  end else begin
    ShowMessage('Nome incorreto');
  end;
//  PreencherBoletos(True);
end;

Em negrito está marcado as opções que a função vai retornar, reparem que o novello está resultando como verdadeiro apenas na função ContainsStr isso porque na variável que está comparando esta com letra maiúscula.