como remover palavras de uma frase....???

20/01/2006

0

Tenho uma TStringList com palavras para remover ex:

´as´ ´os´ ´em´ ´para´

e tenho uma frase...

´todas as pessoas sao programadoras´

queria saber como faço pra remover dessa frase a palavra ´as´
tentei fazer aki mas ele tava removendo de todas as palavras...
entao ficava assim...

´tod pess sao programador´

quero tirar apenas as palavras repetidas na frase... e nao as letras de uma palavra inteira....

alguem sabe como fazer isso?


valeu :)


Salsa

Salsa

Responder

Posts

20/01/2006

Wilson Brito

Function RemoverPalavras(Frase,Palavra_Remover:String): String;
Var
  Aux: String;
begin
  Aux := ´ ´ + Frase + ´ ´;
  Aux := StringReplace(Aux,´ ´+Palavra_Remover+´ ´,´ ´,[rfReplaceAll]);
  Result := Copy(Aux,2,Length(Aux)-1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := RemoverPalavras(Edit1.Text,´as´);
end;



Responder

20/01/2006

Salsa

valeuuu :)


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar