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

20/01/2006

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

Respostas

20/01/2006

Wilson Brito

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

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



Responder Citar

20/01/2006

Salsa

valeuuu :)


Responder Citar