Olá pessoal, hoje mostrarei como remover uma substring de uma string.
Para isso, usaremos a função nativa do Delphi chamada Delete, para isso é preciso declarar a unit System.
Mas para ficar melhor, criaremos uma procedure para melhor entendermos.
Então vamos lá.
procedure RemovePalavra(var origem: string; apagar: string);
var
InicioPalavra, TamanhoPalavra : Integer;
begin
InicioPalavra := pos(apagar,origem);
TamanhoPalavra := length(apagar);
if InicioPalavra > 0 then
Delete(origem,InicioPalavra,TamanhoPalavra);
end;
A função Delete recebe como parâmetro :
- String que contem a palavra a ser removida;
- Posição inicial onde achou a palavra a ser removida;
- Tamanho da palavra a ser removida.
Obs.: Vale lembrar que existe diferença entre maiúscula e minúscula, ou seja é Case Sensitive.
Obrigado.
Espero ter ajudado.
Até a próxima.
